Click background in character preview to change it

code/_onclick/hud/screen_objects.dm

@@ -617,3 +617,20 @@
 /obj/screen/component_button/Click(params)
 	if(parent)
 		parent.component_click(src, params)
+
+// Character setup stuff
+/obj/screen/setup_preview
+	
+	var/datum/preferences/pref
+
+/obj/screen/setup_preview/Destroy()
+	pref = null
+	return ..()
+
+// Background 'floor'
+/obj/screen/setup_preview/bg
+	mouse_over_pointer = MOUSE_HAND_POINTER
+
+/obj/screen/setup_preview/bg/Click(params)
+	pref?.bgstate = next_in_list(pref.bgstate, pref.bgstate_options)
+	pref?.update_preview_icon()

code/modules/client/preferences.dm

@@ -259,20 +259,22 @@ datum/preferences
 	if(!client)
 		return
 
-	var/obj/screen/BG= LAZYACCESS(char_render_holders, "BG")
+	var/obj/screen/setup_preview/bg/BG = LAZYACCESS(char_render_holders, "BG")
 	if(!BG)
 		BG = new
 		BG.plane = TURF_PLANE
 		BG.icon = 'icons/effects/128x48.dmi'
+		BG.pref = src
 		LAZYSET(char_render_holders, "BG", BG)
 		client.screen |= BG
 	BG.icon_state = bgstate
 	BG.screen_loc = preview_screen_locs["BG"]
 	
 	for(var/D in global.cardinal)
-		var/obj/screen/O = LAZYACCESS(char_render_holders, "[D]")
+		var/obj/screen/setup_preview/O = LAZYACCESS(char_render_holders, "[D]")
 		if(!O)
 			O = new
+			O.pref = src
 			LAZYSET(char_render_holders, "[D]", O)
 			client.screen |= O
 		O.appearance = MA

interface/skin.dmf

@@ -1422,7 +1422,7 @@ window "preferences_window"
 		size = 200x800
 		anchor1 = 80,0
 		anchor2 = 100,100
-		right-click = false
+		right-click = true
 
 window "infowindow"
 	elem "infowindow"