Pixel-Composer/scripts/panel_workspace/panel_workspace.gml

function Panel_Workspace() : PanelContent() constructor {
	title = "Workspace";
	workspaces = [];
	w = ui(480);
	h = ui(40);
	
	scroll     = 0;
	scroll_to  = 0;
	scroll_max = 0;
	hori = false;
	
	layout_selecting = "";
	
	function refreshContent() {
		workspaces = [];
		
		var f   = file_find_first(DIRECTORY + "layouts/*", 0);
		while(f != "") {
			array_push(workspaces, filename_name_only(f));
			f = file_find_next();
		}
	}
	refreshContent();
	
	function onFocusBegin() { refreshContent(); }
	
	function drawContent(panel) {
		draw_clear_alpha(COLORS.panel_bg_clear, 0);
		
		var _hori = hori;
		hori = w > h;
		
		if(hori != _hori) scroll_to = 0;
		
		var x0 = hori? ui(6) + scroll : ui(6), x1;
		var y0 = hori? ui(6) : ui(6) + scroll, y1;
		var ww = 0;
		var hh = 0;
		var amo = array_length(workspaces);
		
		draw_set_text(f_p1, hori? fa_left : fa_center, fa_top, COLORS._main_text_sub);
		
		for( var i = 0; i <= amo; i++ ) {
			var str = i == amo? "+" : workspaces[i];
			var tw  = hori? string_width(str) + ui(16) : w - ui(16);
			var th  = string_height(str) + ui(8);
			
			x1 = x0 + tw;
			y1 = y0 + th;
			
			if(pHOVER && point_in_rectangle(mx, my, x0, y0, x1, y1)) {
				draw_sprite_stretched(THEME.button_hide_fill, 1, x0, y0, x1 - x0, y1 - y0);
				
				if(mouse_press(mb_left, pFOCUS)) {
					if(i == amo) {
						var dia = dialogCall(o_dialog_file_name, mouse_mx + ui(8), mouse_my + ui(8));
						dia.name = PREFERENCES.panel_layout_file;
						dia.onModify = function(name) { 
							var cont = panelSerialize();
							json_save_struct($"{DIRECTORY}layouts/{name}.json", cont);
							
							PREFERENCES.panel_layout_file = name;
							PREF_SAVE();
							refreshContent();
						};
					} else {
						PREFERENCES.panel_layout_file = str;
						PREF_SAVE();
						setPanel();
					}
				} 
				
				if(mouse_press(mb_right, pFOCUS)) {
					layout_selecting = str;
					menuCall("workspace_menu",,, [
						menuItem(__txt("Select"), function() { 
							PREFERENCES.panel_layout_file = layout_selecting;
							PREF_SAVE();
							setPanel();
						}),
						menuItem(__txtx("workspace_replace_current", "Replace with current"), function() { 
							var cont = panelSerialize();
							json_save_struct(DIRECTORY + "layouts/" + layout_selecting + ".json", cont);

						}),
						menuItem(__txt("Delete"), function() { 
							file_delete(DIRECTORY + "layouts/" + layout_selecting + ".json");
							refreshContent();
						}, THEME.cross),
					]);
				}
			}
			
			draw_set_color(PREFERENCES.panel_layout_file == str? COLORS._main_text : COLORS._main_text_sub)
			draw_text_add(hori? x0 + ui(8) : (x0 + x1) / 2, y0 + ui(4), str);
			
			if(hori) {
				x0 += tw + ui(4);
				ww += tw + ui(4);
			} else {
				y0 += th + ui(4);
				hh += th + ui(4);
			}
		}
		
		scroll = lerp_float(scroll, scroll_to, 5);
		
		if(hori) {
			scroll_max = max(ww - w + ui(16), 0);
			if(pHOVER) {
				if(mouse_wheel_down()) scroll_to = clamp(scroll_to - ui(128) * SCROLL_SPEED, -scroll_max, 0);
				if(mouse_wheel_up())   scroll_to = clamp(scroll_to + ui(128) * SCROLL_SPEED, -scroll_max, 0);
			}
		} else {
			scroll_max = max(hh - h + ui(16), 0);
			if(pHOVER) {
				if(mouse_wheel_down()) scroll_to = clamp(scroll_to - ui(32) * SCROLL_SPEED, -scroll_max, 0);
				if(mouse_wheel_up())   scroll_to = clamp(scroll_to + ui(32) * SCROLL_SPEED, -scroll_max, 0);
			}
		}
	}
}