IF3Si/scd/gui_core.scd

/*
	This file is part of "Interface Fractures III - Silicon".
	Copyright (c) 2015 Luka Prinčič, All rights reserved.
	This program is free software distributed under
	GNU General Public Licence. See COPYING for more info.
	- - - - - - - - - - - - - - - - - - - - - - - - - - - -

	gui_core.scd - takes care of core GUI things: layouts,
	tabs, window, sizes...

********************************************************** */



// general color palette
QtGUI.palette = QPalette.dark;

~screenWidth = 1348;
~screenHeight = 753;

~pagerbuttonwidth = 90;
~pagerbuttonheight = 55;
~pagerbuttonpadding = 3;

~pagerwidth = ~pagerbuttonpadding + ~pagerbuttonwidth * ~tabs.size - ~pagerbuttonpadding;
~pagerheight = ~pagerbuttonheight;


// make a window
w = Window.new( name: "Interface Fractures III",
	bounds: Rect(0, 2, ~screenWidth, ~screenHeight),
	//bounds: w.availableBounds,
	resizable: true,
	border: true,
	server: s,
	scroll: true
).front;
//w.fullScreen;
postln("~~~ Created window ..." + w.bounds);
w.background_(Color.gray(0.2));


~pager = View.new(w, Rect(0,0,100,100))
.minHeight_(~pagerheight)
.minWidth_(~pagerwidth)
.background_(Color.gray(0.4,0.0));

~content = View.new(w, w.view.bounds)
.minWidth_(w.view.bounds.width - 2)
.minHeight_(w.view.bounds.height - ~pagerheight - 20)
.background_(Color.gray(0.3,0.2));

w.layout = VLayout( [~pager, align:\top], 
	[~content, align:\center], nil );
w.layout.margins = 2;

~pager.layout = HLayout();//margins=1;
~pager.layout.margins = 1;

// CREATE TABS ---------------------------------------------------------------
~tabs = List["main", "chaos", "granul", "players", "processing"];
~tab_btns = List();
~tab_views = List();
~tab_names = Dictionary.new;
//~tab_btns_view = View.new();

// go through all of tabs and make buttons and views
~tabs.do(
	{ |item, i|

		~tab_names.put(item, i);

		// views / containers / pages - - - - - 
		~tab_views.add(
			View.new(~content,Rect(0, 0, 1344, 700))
			.background_(Color.gray(0.4,0.4))
			//.layout(HLayout)
			.visible_(0);
			
		);

		// buttons / tabs - - - - -
		~tab_btns.add(
			//Button(~pager, Rect((~pagerbuttonpadding + ~pagerbuttonwidth * i), 0, ~pagerbuttonwidth, ~pagerbuttonheight))
			Button(~pager, Rect((~pagerbuttonpadding + ~pagerbuttonwidth * i), 0, ~pagerbuttonwidth, ~pagerbuttonheight))
			.states_([[item],
				[item, Color.white, Color.gray(0.6)]])
			.action_({arg btn;
				switch(btn.value,
					0, { postln("~~~ Hide:" + item);
						~tab_views[i].visible = 0; },
					1, { ~tab_btns.do(
						{ |b_item,b_i|
							if (b_i != i, {
								~tab_btns[b_i].enabled_(1);
								~tab_btns[b_i].valueAction = 0;
							})
						});
						~tab_btns[i].enabled_(0);
						postln("~~~ Show:" + item + "\n");
						~tab_views[i].visible = 1;

					})
			})
			.minHeight_(~pagerbuttonheight).minWidth_(~pagerbuttonwidth);
		);
	}
);






// CLOSING ////////////////////////////////////////////////////////////////////////

w.view.keyDownAction_({ |view, char, modifiers, unicode, keycode, key|
	if (unicode == 27) {
		postln("\n- - - - - - - - - - - - - - - - - - - - - - - - - - - - - \n");
		postln("~~~ Cought an ESC key. Closing window, freeing synths...");
		postln("~~~ Wait, let me see the window bounds:" + w.bounds + "!\n");

	w.close;
		postln("\n\n<<< So long and thanks for all the fish! >>>"
			+ "\n- - - - - - - - - - - - - - - - - - - - - - - - - - - - - ");
	}
});



// free all UGens on server (stop sound, etc)
w.onClose_({
	postln("<<< Platform IDE:" + Platform.ideName);
	s.freeAll;
	
	// when running 'standalone' from shell:
	if (Platform.ideName == "none") {
		postln("<<< ... sclang is killed. Stockhausen forgives you!");
		0.exit;
	} {
	    postln("<<< ... stopping Main.");
		thisProcess.stop;
	};
	postln("- - - - - - - - - - - - - - - - - - - - - - - - - - - - - \n");
});