G4C

;
; QuickCode Prefs V1.10
;
; Prefs GUI for QuickCode
;
;
; Chris Coulson
;
; 28.12.96
; 31.12.96 - First batch of icons done
; 05.01.97 - All icons done, button selection done.
; 06.01.97 - Fixed graphics glitch on startup, and removed incorrect bank
;            selection bug on re-entry.
; 08.01.97 - Updates icon bar on exit.
; 09.01.97 - Version 1.0
;            Removed icon 14/13, since it doesn't actually have a code...
;            Removed slider, we now select a bank via the bank icons, that
;            look not entirely unlike the ones in Mathscript :-)
; 10.01.97 - Shortened code a bit
; 13.01.97 - Version 1.1
;            Version number bumped to correspond with QuickCode.rexx
; 17.01.97 - Wierd bug reported by Simon Ihmig.  I've only managed to replicate
;            it once, and I can't figure out why it happened...  So I've added
;            what seems to be the only possible fix, given the nature of the bug.
; 18.01.97 - Version 1.2
;            Added MxN matrix
; 21.01.97 - Version 1.3
;            Added new codes from Mathscript 3.1
; 25.01.97 - Version 1.4
;            Revised variable names to make them unique to Quickcode.
; 28.01.97 - Version 1.5
;            Now, finally (oh yeah :-), *that* bug is gone...
; 09.02.97 - Version 1.6
;            Removed all the absolute references to files, everything is now
;            relative to wherever the QC directory is installed.
;            Added option for quitting Gui4CLI when QuickCode is closed, for
;            people who aren't run any other Gui4CLI scripts.
; 24.05.97 - Version 1.7
;            Added options for Clear Button on/off and query.
; 31.05.97 - Version 1.8
;            Moved prefs saving code to QuickCode
; 23.08.97 - Version 1.9
;            Removed "Quit on Exit" option
;            Now uses actual button bar for selection of button to change, rather
;            that mirroring the bar within the prefs window
; 13.10.97 - Version 1.10
;            Improved redrawing routines, partly by recoding and partly by
;            upgrading to Gui4CLI 3.2...
; 14.12.97 - Variable passing now works with latest version of Gui4CLI.
;

WinBig 0 0 200 210 ""
WinOnWin quickcode.gc 0 45
WinType 00000000

NoFontSense
UseTopaz

xOnOpen
	VarPath "quickcode.gc"
	qcp_winx = $$win.l
	qcp_winy = $$win.t
	Counter qcp_winy DEC 33
	IF $qc_clrbutt = 0
		qcp_qcwinwidth = 160
	ELSE
		qcp_qcwinwidth = 200
	ENDIF
	ChangeGad quickcode.gc 0 $qcp_winx $qcp_winy $qcp_qcwinwidth 17 ""
	Redraw quickcode.gc
	Update qc_prefs.gc 301 $qc_clrbutt
	Update qc_prefs.gc 302 $qc_clrquery
	GoSub qc_prefs.gc DrawBank


; Menu definitions - mirrored from quickcode.gc

xMenu Project About "" ""
	GoSub quickcode.gc About
xMenu Project Barlabel "" ""
xMenu Project Quit "" "Q"
	GuiClose quickcode.gc

xMenu Settings "Open/Close Prefs" "" "C"
	GoSub quickcode.gc OpenClosePrefs
xMenu Settings Snapshot "" "S"
	GoSub quickcode.gc SnapShot


xCheckBox 180 176 16 16 "Show Clear button" qc_clrbutt "1" "0" ON
GadID 301
xCheckBox 180 192 16 16 "Query on clear" qc_clrquery "1" "0" OFF
GadID 302

Square 0 0 16 5 1 Fill
GadID 101
Square 16 0 16 5 1 NoFill
GadID 102
Square 32 0 16 5 1 NoFill
GadID 103
Square 48 0 16 5 1 NoFill
GadID 104
Square 64 0 16 5 1 NoFill
GadID 105
Square 80 0 16 5 1 NoFill
GadID 106
Square 96 0 16 5 1 NoFill
GadID 107
Square 112 0 16 5 1 NoFill
GadID 108
Square 128 0 16 5 1 NoFill
GadID 109
Square 144 0 16 5 1 NoFill
GadID 110

Box 3 9 69 163 Out Button

xIcon 5 10 ":icons/blank"
	GadID 211
	DoCase $qcp_Bank
		Case = 1
			qcp_Cmd = "1/1"
			Break
		Case = 2
			qcp_Cmd = "2/1"
			Break
		Case = 3
			qcp_Cmd = "3/1"
			Break
		Case = 4
			qcp_Cmd = "4/1"
			Break
		Case = 5
			qcp_Cmd = "5/1"
			Break
		Case = 6
			qcp_Cmd = "6/1"
			Break
		Case = 7
			qcp_Cmd = "7/1"
			Break
		Case = 8
			qcp_Cmd = "8/1"
			Break
		Case = 9
			qcp_Cmd = "9/1"
			Break
		Case = 10
			qcp_Cmd = "10/1"
			Break
		Case = 11
			qcp_Cmd = "11/1"
			Break
		Case = 12
			qcp_Cmd = "12/1"
			Break
		Case = 13
			qcp_Cmd = "13/1"
			Break
		Case = 14
			qcp_Cmd = "14/1"
			Break
	EndCase
	GoSub qc_prefs.gc UpdateButtons
		
xIcon 21 10 ":icons/blank"
	GadID 212
	qcp_Cmd = "lank"
	DoCase $qcp_Bank
		Case = 1
			qcp_Cmd = "1/2"
			Break
		Case = 2
			qcp_Cmd = "2/2"
			Break
		Case = 3
			qcp_Cmd = "3/2"
			Break
		Case = 4
			qcp_Cmd = "4/2"
			Break
		Case = 5
			qcp_Cmd = "5/2"
			Break
		Case = 6
			qcp_Cmd = "6/2"
			Break
		Case = 7
			qcp_Cmd = "7/2"
			Break
		Case = 8
			qcp_Cmd = "8/2"
			Break
		Case = 9
			qcp_Cmd = "9/2"
			Break
		Case = 10
			qcp_Cmd = "10/2"
			Break
		Case = 11
			qcp_Cmd = "11/2"
			Break
		Case = 13
			qcp_Cmd = "13/2"
			Break
		Case = 14
			qcp_Cmd = "14/2"
			Break
	EndCase
	GoSub qc_prefs.gc UpdateButtons

xIcon 37 10 ":icons/blank"
	GadID 213
	qcp_Cmd = "lank"
	DoCase $qcp_Bank
		Case = 1
			qcp_Cmd = "1/3"
			Break
		Case = 4
			qcp_Cmd = "4/3"
			Break
		Case = 6
			qcp_Cmd = "6/3"
			Break
		Case = 7
			qcp_Cmd = "7/3"
			Break
		Case = 11
			qcp_Cmd = "11/3"
			Break
		Case = 13
			qcp_Cmd = "13/3"
			Break
		Case = 14
			qcp_Cmd = "14/3"
			Break
	EndCase
	GoSub qc_prefs.gc UpdateButtons

xIcon 53 10 ":icons/blank"
	GadID 214
	qcp_Cmd = "lank"
	DoCase $qcp_Bank
		Case = 14
			qcp_Cmd = "14/4"
			Break
	EndCase
	GoSub qc_prefs.gc UpdateButtons

xIcon 5 26 ":icons/blank"
	GadID 221
	DoCase $qcp_Bank
		Case = 1
			qcp_Cmd = "1/4"
			Break
		Case = 2
			qcp_Cmd = "2/3"
			Break
		Case = 3
			qcp_Cmd = "3/3"
			Break
		Case = 4
			qcp_Cmd = "4/4"
			Break
		Case = 5
			qcp_Cmd = "5/3"
			Break
		Case = 6
			qcp_Cmd = "6/4"
			Break
		Case = 7
			qcp_Cmd = "7/4"
			Break
		Case = 8
			qcp_Cmd = "8/3"
			Break
		Case = 9
			qcp_Cmd = "9/3"
			Break
		Case = 10
			qcp_Cmd = "10/3"
			Break
		Case = 11
			qcp_Cmd = "11/4"
			Break
		Case = 12
			qcp_Cmd = "12/2"
			Break
		Case = 13
			qcp_Cmd = "13/4"
			Break
		Case = 14
			qcp_Cmd = "14/5"
			Break
	EndCase
	GoSub qc_prefs.gc UpdateButtons

xIcon 21 26 ":icons/blank"
	GadID 222
	qcp_Cmd = "lank"
	DoCase $qcp_Bank
		Case = 1
			qcp_Cmd = "1/5"
			Break
		Case = 2
			qcp_Cmd = "2/4"
			Break
		Case = 3
			qcp_Cmd = "3/4"
			Break
		Case = 4
			qcp_Cmd = "4/5"
			Break
		Case = 5
			qcp_Cmd = "5/4"
			Break
		Case = 6
			qcp_Cmd = "6/5"
			Break
		Case = 7
			qcp_Cmd = "7/5"
			Break
		Case = 8
			qcp_Cmd = "8/4"
			Break
		Case = 9
			qcp_Cmd = "9/4"
			Break
		Case = 10
			qcp_Cmd = "10/4"
			Break
		Case = 11
			qcp_Cmd = "11/5"
			Break
		Case = 13
			qcp_Cmd = "13/5"
			Break
		Case = 14
			qcp_Cmd = "14/6"
			Break
	EndCase
	GoSub qc_prefs.gc UpdateButtons

xIcon 37 26 ":icons/blank"
	GadID 223
	qcp_Cmd = "lank"
	DoCase $qcp_Bank
		Case = 1
			qcp_Cmd = "1/6"
			Break
		Case = 4
			qcp_Cmd = "4/6"
			Break
		Case = 6
			qcp_Cmd = "6/6"
			Break
		Case = 7
			qcp_Cmd = "7/6"
			Break
		Case = 11
			qcp_Cmd = "11/6"
			Break
		Case = 13
			qcp_Cmd = "13/6"
			Break
		Case = 14
			qcp_Cmd = "14/7"
			Break
	EndCase
	GoSub qc_prefs.gc UpdateButtons

xIcon 53 26 ":icons/blank"
	GadID 224
	qcp_Cmd = "lank"
	DoCase $qcp_Bank
		Case = 14
			qcp_Cmd = "14/8"
			Break
	EndCase
	GoSub qc_prefs.gc UpdateButtons

xIcon 5 42 ":icons/blank"
	GadID 231
	qcp_Cmd = "lank"
	DoCase $qcp_Bank
		Case = 1
			qcp_Cmd = "1/7"
			Break
		Case = 2
			qcp_Cmd = "2/5"
			Break
		Case = 3
			qcp_Cmd = "3/5"
			Break
		Case = 4
			qcp_Cmd = "4/7"
			Break
		Case = 5
			qcp_Cmd = "5/5"
			Break
		Case = 6
			qcp_Cmd = "6/7"
			Break
		Case = 7
			qcp_Cmd = "7/7"
			Break
		Case = 8
			qcp_Cmd = "8/5"
			Break
		Case = 9
			qcp_Cmd = "9/5"
			Break
		Case = 10
			qcp_Cmd = "10/5"
			Break
		Case = 12
			qcp_Cmd = "12/3"
			Break
		Case = 13
			qcp_Cmd = "13/7"
			Break
		Case = 14
			qcp_Cmd = "14/9"
			Break
	EndCase
	GoSub qc_prefs.gc UpdateButtons

xIcon 21 42 ":icons/blank"
	GadID 232
	qcp_Cmd = "lank"
	DoCase $qcp_Bank
		Case = 1
			qcp_Cmd = "1/8"
			Break
		Case = 2
			qcp_Cmd = "2/6"
			Break
		Case = 3
			qcp_Cmd = "3/6"
			Break
		Case = 4
			qcp_Cmd = "4/8"
			Break
		Case = 5
			qcp_Cmd = "5/6"
			Break
		Case = 6
			qcp_Cmd = "6/8"
			Break
		Case = 7
			qcp_Cmd = "7/8"
			Break
		Case = 8
			qcp_Cmd = "8/6"
			Break
		Case = 9
			qcp_Cmd = "9/6"
			Break
		Case = 10
			qcp_Cmd = "10/6"
			Break
		Case = 13
			qcp_Cmd = "13/8"
			Break
		Case = 14
			qcp_Cmd = "14/10"
			Break
	EndCase
	GoSub qc_prefs.gc UpdateButtons

xIcon 37 42 ":icons/blank"
	GadID 233
	qcp_Cmd = "lank"
	DoCase $qcp_Bank
		Case = 1
			qcp_Cmd = "1/9"
			Break
		Case = 4
			qcp_Cmd = "4/9"
			Break
		Case = 6
			qcp_Cmd = "6/9"
			Break
		Case = 7
			qcp_Cmd = "7/9"
			Break
		Case = 13
			qcp_Cmd = "13/9"
			Break
		Case = 14
			qcp_Cmd = "14/11"
			Break
	EndCase
	GoSub qc_prefs.gc UpdateButtons

xIcon 53 42 ":icons/blank"
	GadID 234
	qcp_Cmd = "lank"
	DoCase $qcp_Bank
		Case = 14
			qcp_Cmd = "14/12"
			Break
	EndCase
	GoSub qc_prefs.gc UpdateButtons

xIcon 5 58 ":icons/blank"
	GadID 241
	qcp_Cmd = "lank"
	DoCase $qcp_Bank
		Case = 2
			qcp_Cmd = "2/7"
			Break
		Case = 3
			qcp_Cmd = "3/7"
			Break
		Case = 4
			qcp_Cmd = "4/10"
			Break
		Case = 6
			qcp_Cmd = "6/10"
			Break
		Case = 7
			qcp_Cmd = "7/10"
			Break
		Case = 8
			qcp_Cmd = "8/7"
			Break
		Case = 9
			qcp_Cmd = "9/7"
			Break
		Case = 10
			qcp_Cmd = "10/7"
			Break
		Case = 13
			qcp_Cmd = "13/10"
			Break
		Case = 14
			qcp_Cmd = "14/13"
			Break
	EndCase
	GoSub qc_prefs.gc UpdateButtons

xIcon 21 58 ":icons/blank"
	GadID 242
	qcp_Cmd = "lank"
	DoCase $qcp_Bank
		Case = 2
			qcp_Cmd = "2/8"
			Break
		Case = 4
			qcp_Cmd = "4/11"
			Break
		Case = 6
			qcp_Cmd = "6/11"
			Break
		Case = 7
			qcp_Cmd = "7/11"
			Break
		Case = 8
			qcp_Cmd = "8/8"
			Break
		Case = 9
			qcp_Cmd = "9/8"
			Break
		Case = 10
			qcp_Cmd = "10/8"
			Break
		Case = 13
			qcp_Cmd = "13/11"
			Break
	EndCase
	GoSub qc_prefs.gc UpdateButtons

xIcon 37 58 ":icons/blank"
	GadID 243
	qcp_Cmd = "lank"
	DoCase $qcp_Bank
		Case = 4
			qcp_Cmd = "4/12"
			Break
		Case = 6
			qcp_Cmd = "6/12"
			Break
		Case = 7
			qcp_Cmd = "7/12"
			Break
		Case = 13
			qcp_Cmd = "13/12"
			Break
	EndCase
	GoSub qc_prefs.gc UpdateButtons

xIcon 53 58 ":icons/blank"
	GadID 244
	qcp_Cmd = "lank"
	GoSub qc_prefs.gc UpdateButtons

xIcon 5 74 ":icons/blank"
	GadID 251
	qcp_Cmd = "lank"
	DoCase $qcp_Bank
		Case = 2
			qcp_Cmd = "2/9"
			Break
		Case = 4
			qcp_Cmd = "4/13"
			Break
		Case = 6
			qcp_Cmd = "6/13"
			Break
		Case = 7
			qcp_Cmd = "7/13"
			Break
		Case = 8
			qcp_Cmd = "8/9"
			Break
		Case = 9
			qcp_Cmd = "9/9"
			Break
		Case = 10
			qcp_Cmd = "10/9"
			Break
		Case = 13
			qcp_Cmd = "13/13"
			Break
	EndCase
	GoSub qc_prefs.gc UpdateButtons

xIcon 21 74 ":icons/blank"
	GadID 252
	qcp_Cmd = "lank"
	DoCase $qcp_Bank
		Case = 2
			qcp_Cmd = "2/10"
			Break
		Case = 4
			qcp_Cmd = "4/14"
			Break
		Case = 6
			qcp_Cmd = "6/14"
			Break
		Case = 7
			qcp_Cmd = "7/14"
			Break
		Case = 8
			qcp_Cmd = "8/10"
			Break
		Case = 9
			qcp_Cmd = "9/10"
			Break
		Case = 10
			qcp_Cmd = "10/10"
			Break
		Case = 13
			qcp_Cmd = "13/14"
			Break
	EndCase
	GoSub qc_prefs.gc UpdateButtons

xIcon 37 74 ":icons/blank"
	GadID 253
	qcp_Cmd = "lank"
	DoCase $qcp_Bank
		Case = 4
			qcp_Cmd = "4/15"
			Break
		Case = 6
			qcp_Cmd = "6/15"
			Break
		Case = 7
			qcp_Cmd = "7/15"
			Break
		Case = 13
			qcp_Cmd = "13/15"
			Break
	EndCase
	GoSub qc_prefs.gc UpdateButtons

xIcon 53 74 ":icons/blank"
	GadID 254
	qcp_Cmd = "lank"
	GoSub qc_prefs.gc UpdateButtons

xIcon 5 90 ":icons/blank"
	GadID 261
	qcp_Cmd = "lank"
	DoCase $qcp_Bank
		Case = 4
			qcp_Cmd = "4/16"
			Break
		Case = 6
			qcp_Cmd = "6/16"
			Break
		Case = 7
			qcp_Cmd = "7/16"
			Break
		Case = 10
			qcp_Cmd = "10/11"
			Break
		Case = 13
			qcp_Cmd = "13/16"
			Break
	EndCase
	GoSub qc_prefs.gc UpdateButtons

xIcon 21 90 ":icons/blank"
	GadID 262
	qcp_Cmd = "lank"
	DoCase $qcp_Bank
		Case = 4
			qcp_Cmd = "4/17"
			Break
		Case = 6
			qcp_Cmd = "6/17"
			Break
		Case = 7
			qcp_Cmd = "7/17"
			Break
		Case = 13
			qcp_Cmd = "13/17"
			Break
	EndCase
	GoSub qc_prefs.gc UpdateButtons

xIcon 37 90 ":icons/blank"
	GadID 263
	qcp_Cmd = "lank"
	DoCase $qcp_Bank
		Case = 4
			qcp_Cmd = "4/18"
			Break
		Case = 6
			qcp_Cmd = "6/18"
			Break
		Case = 7
			qcp_Cmd = "7/18"
			Break
	EndCase
	GoSub qc_prefs.gc UpdateButtons

xIcon 53 90 ":icons/blank"
	GadID 264
	qcp_Cmd = "lank"
	GoSub qc_prefs.gc UpdateButtons

xIcon 5 106 ":icons/blank"
	GadID 271
	qcp_Cmd = "lank"
	DoCase $qcp_Bank
		Case = 4
			qcp_Cmd = "4/19"
			Break
		Case = 6
			qcp_Cmd = "6/19"
			Break
		Case = 7
			qcp_Cmd = "7/19"
			Break
	EndCase
	GoSub qc_prefs.gc UpdateButtons

xIcon 21 106 ":icons/blank"
	GadID 272
	qcp_Cmd = "lank"
	DoCase $qcp_Bank
		Case = 4
			qcp_Cmd = "4/20"
			Break
		Case = 6
			qcp_Cmd = "6/20"
			Break
		Case = 7
			qcp_Cmd = "7/20"
			Break
	EndCase
	GoSub qc_prefs.gc UpdateButtons

xIcon 37 106 ":icons/blank"
	GadID 273
	qcp_Cmd = "lank"
	DoCase $qcp_Bank
		Case = 6
			qcp_Cmd = "6/21"
			Break
		Case = 7
			qcp_Cmd = "7/21"
			Break
	EndCase
	GoSub qc_prefs.gc UpdateButtons

xIcon 53 106 ":icons/blank"
	GadID 274
	qcp_Cmd = "lank"
	GoSub qc_prefs.gc UpdateButtons

xIcon 5 122 ":icons/blank"
	GadID 281
	qcp_Cmd = "lank"
	DoCase $qcp_Bank
		Case = 6
			qcp_Cmd = "6/22"
			Break
		Case = 7
			qcp_Cmd = "7/22"
			Break
	EndCase
	GoSub qc_prefs.gc UpdateButtons

xIcon 21 122 ":icons/blank"
	GadID 282
	qcp_Cmd = "lank"
	DoCase $qcp_Bank
		Case = 6
			qcp_Cmd = "6/23"
			Break
		Case = 7
			qcp_Cmd = "7/23"
			Break
	EndCase
	GoSub qc_prefs.gc UpdateButtons

xIcon 37 122 ":icons/blank"
	GadID 283
	qcp_Cmd = "lank"
	DoCase $qcp_Bank
		Case = 6
			qcp_Cmd = "6/24"
			Break
		Case = 7
			qcp_Cmd = "7/24"
			Break
	EndCase
	GoSub qc_prefs.gc UpdateButtons

xIcon 53 122 ":icons/blank"
	GadID 284
	qcp_Cmd = "lank"
	GoSub qc_prefs.gc UpdateButtons

xIcon 5 138 ":icons/blank"
	GadID 291
	qcp_Cmd = "lank"
	DoCase $qcp_Bank
		Case = 6
			qcp_Cmd = "6/25"
			Break
	EndCase
	GoSub qc_prefs.gc UpdateButtons

xIcon 21 138 ":icons/blank"
	GadID 292
	qcp_Cmd = "lank"
	DoCase $qcp_Bank
		Case = 6
			qcp_Cmd = "6/26"
			Break
	EndCase
	GoSub qc_prefs.gc UpdateButtons

xIcon 37 138 ":icons/blank"
	GadID 293
	qcp_Cmd = "lank"
	DoCase $qcp_Bank
		Case = 6
			qcp_Cmd = "6/27"
			Break
	EndCase
	GoSub qc_prefs.gc UpdateButtons

xIcon 53 138 ":icons/blank"
	GadID 294
	qcp_Cmd = "lank"
	GoSub qc_prefs.gc UpdateButtons

xIcon 5 154 ":icons/blank"
	GadID 201
	qcp_Cmd = "lank"
	DoCase $qcp_Bank
		Case = 6
			qcp_Cmd = "6/28"
			Break
	EndCase
	GoSub qc_prefs.gc UpdateButtons

xIcon 21 154 ":icons/blank"
	GadID 202
	qcp_Cmd = "lank"
	GoSub qc_prefs.gc UpdateButtons

xIcon 37 154 ":icons/blank"
	GadID 203
	qcp_Cmd = "lank"
	GoSub qc_prefs.gc UpdateButtons

xIcon 53 154 ":icons/blank"
	GadID 204
	qcp_Cmd = "lank"
	GoSub qc_prefs.gc UpdateButtons
	
		 

xIcon 80 10 ":icons/bk1"
	qcp_Bank = 1
	GoSub qc_prefs.gc DrawBank

xIcon 80 30 ":icons/bk2"
	qcp_Bank = 2
	GoSub qc_prefs.gc DrawBank

xIcon 80 50 ":icons/bk3"
	qcp_Bank = 3
	GoSub qc_prefs.gc DrawBank
	
xIcon 80 70 ":icons/bk4"
	qcp_Bank = 4
	GoSub qc_prefs.gc DrawBank
	
xIcon 80 90 ":icons/bk5"
	qcp_Bank = 5
	GoSub qc_prefs.gc DrawBank
	
xIcon 80 110 ":icons/bk6"
	qcp_Bank = 6
	GoSub qc_prefs.gc DrawBank
	
xIcon 80 130 ":icons/bk7"
	qcp_Bank = 7
	GoSub qc_prefs.gc DrawBank
	
xIcon 140 10 ":icons/bk8"
	qcp_Bank = 8
	GoSub qc_prefs.gc DrawBank

xIcon 140 30 ":icons/bk9"
	qcp_Bank = 9
	GoSub qc_prefs.gc DrawBank

xIcon 140 50 ":icons/bk10"
	qcp_Bank = 10
	GoSub qc_prefs.gc DrawBank
	
xIcon 140 70 ":icons/bk11"
	qcp_Bank = 11
	GoSub qc_prefs.gc DrawBank
	
xIcon 140 90 ":icons/bk12"
	qcp_Bank = 12
	GoSub qc_prefs.gc DrawBank
	
xIcon 140 110 ":icons/bk13"
	qcp_Bank = 13
	GoSub qc_prefs.gc DrawBank
	
xIcon 140 130 ":icons/bk14"
	qcp_Bank = 14
	GoSub qc_prefs.gc DrawBank


; Subroutines

xRoutine ChangeLight	
	qcp_OldButt = 100
	Counter qcp_OldButt Inc $qcp_Button
	ChangeArg qc_prefs.gc $qcp_OldButt 5 NoFill
	qcp_OldButt = 100
	Counter qcp_OldButt Inc $qcp_NewButt
	qcp_Button = $qcp_NewButt
	ChangeArg qc_prefs.gc $qcp_OldButt 5 Fill
	PartRedraw qc_prefs.gc 0 0 160 5

	
xRoutine UpdateButtons
	ChangeIcon quickcode.gc $qcp_Button -1 -1 ":icons/b$qcp_Cmd"
	DoCase $qcp_Button
		Case = 1
			qcicon0 = $qcp_Cmd
			Break
		Case = 2
			qcicon1 = $qcp_Cmd
			Break
		Case = 3
			qcicon2 = $qcp_Cmd
			Break
		Case = 4
			qcicon3 = $qcp_Cmd
			Break
		Case = 5
			qcicon4 = $qcp_Cmd
			Break
		Case = 6
			qcicon5 = $qcp_Cmd
			Break
		Case = 7
			qcicon6 = $qcp_Cmd
			Break
		Case = 8
			qcicon7 = $qcp_Cmd
			Break
		Case = 9
			qcicon8 = $qcp_Cmd
			Break
		Case = 10
			qcicon9 = $qcp_Cmd
			Break
	EndCase


xRoutine DrawBank
	qcp211 = ":icons/blank"
	qcp212 = ":icons/blank"
	qcp213 = ":icons/blank"
	qcp214 = ":icons/blank"
	qcp221 = ":icons/blank"
	qcp222 = ":icons/blank"
	qcp223 = ":icons/blank"
	qcp224 = ":icons/blank"
	qcp231 = ":icons/blank"
	qcp232 = ":icons/blank"
	qcp233 = ":icons/blank"
	qcp234 = ":icons/blank"
	qcp241 = ":icons/blank"
	qcp242 = ":icons/blank"
	qcp243 = ":icons/blank"
	qcp244 = ":icons/blank"
	qcp251 = ":icons/blank"
	qcp252 = ":icons/blank"
	qcp253 = ":icons/blank"
	qcp254 = ":icons/blank"
	qcp261 = ":icons/blank"
	qcp262 = ":icons/blank"
	qcp263 = ":icons/blank"
	qcp264 = ":icons/blank"
	qcp271 = ":icons/blank"
	qcp272 = ":icons/blank"
	qcp273 = ":icons/blank"
	qcp274 = ":icons/blank"
	qcp281 = ":icons/blank"
	qcp282 = ":icons/blank"
	qcp283 = ":icons/blank"
	qcp284 = ":icons/blank"
	qcp291 = ":icons/blank"
	qcp292 = ":icons/blank"
	qcp293 = ":icons/blank"
	qcp294 = ":icons/blank"
	qcp201 = ":icons/blank"
	qcp202 = ":icons/blank"
	qcp203 = ":icons/blank"
	qcp204 = ":icons/blank"

	DoCase $qcp_Bank
		Case = 1
			qcp211 = ":icons/b1/1"
			qcp212 = ":icons/b1/2"
			qcp213 = ":icons/b1/3"
			qcp221 = ":icons/b1/4"
			qcp222 = ":icons/b1/5"
			qcp223 = ":icons/b1/6"
			qcp231 = ":icons/b1/7"
			qcp232 = ":icons/b1/8"
			qcp233 = ":icons/b1/9"
			Break
		Case = 2
			qcp211 = ":icons/b2/1"
			qcp212 = ":icons/b2/2"
			qcp221 = ":icons/b2/3"
			qcp222 = ":icons/b2/4"
			qcp231 = ":icons/b2/5"
			qcp232 = ":icons/b2/6"
			qcp241 = ":icons/b2/7"
			qcp242 = ":icons/b2/8"
			qcp251 = ":icons/b2/9"
			qcp252 = ":icons/b2/10"
			Break
		Case = 3
			qcp211 = ":icons/b3/1"
			qcp212 = ":icons/b3/2"
			qcp221 = ":icons/b3/3"
			qcp222 = ":icons/b3/4"
			qcp231 = ":icons/b3/5"
			qcp232 = ":icons/b3/6"
			qcp241 = ":icons/b3/7"
			Break
		Case = 4
			qcp211 = ":icons/b4/1"
			qcp212 = ":icons/b4/2"
			qcp213 = ":icons/b4/3"
			qcp221 = ":icons/b4/4"
			qcp222 = ":icons/b4/5"
			qcp223 = ":icons/b4/6"
			qcp231 = ":icons/b4/7"
			qcp232 = ":icons/b4/8"
			qcp233 = ":icons/b4/9"
			qcp241 = ":icons/b4/10"
			qcp242 = ":icons/b4/11"
			qcp243 = ":icons/b4/12"
			qcp251 = ":icons/b4/13"
			qcp252 = ":icons/b4/14"
			qcp253 = ":icons/b4/15"
			qcp261 = ":icons/b4/16"
			qcp262 = ":icons/b4/17"
			qcp263 = ":icons/b4/18"
			qcp271 = ":icons/b4/19"
			qcp272 = ":icons/b4/20"
			Break
		Case = 5
			qcp211 = ":icons/b5/1"
			qcp212 = ":icons/b5/2"
			qcp221 = ":icons/b5/3"
			qcp222 = ":icons/b5/4"
			qcp231 = ":icons/b5/5"
			qcp232 = ":icons/b5/6"
			Break
		Case = 6
			qcp211 = ":icons/b6/1"
			qcp212 = ":icons/b6/2"
			qcp213 = ":icons/b6/3"
			qcp221 = ":icons/b6/4"
			qcp222 = ":icons/b6/5"
			qcp223 = ":icons/b6/6"
			qcp231 = ":icons/b6/7"
			qcp232 = ":icons/b6/8"
			qcp233 = ":icons/b6/9"
			qcp241 = ":icons/b6/10"
			qcp242 = ":icons/b6/11"
			qcp243 = ":icons/b6/12"
			qcp251 = ":icons/b6/13"
			qcp252 = ":icons/b6/14"
			qcp253 = ":icons/b6/15"
			qcp261 = ":icons/b6/16"
			qcp262 = ":icons/b6/17"
			qcp263 = ":icons/b6/18"
			qcp271 = ":icons/b6/19"
			qcp272 = ":icons/b6/20"
			qcp273 = ":icons/b6/21"
			qcp281 = ":icons/b6/22"
			qcp282 = ":icons/b6/23"
			qcp283 = ":icons/b6/24"
			qcp291 = ":icons/b6/25"
			qcp292 = ":icons/b6/26"
			qcp293 = ":icons/b6/27"
			qcp201 = ":icons/b6/28"
			Break
		Case = 7
			qcp211 = ":icons/b7/1"
			qcp212 = ":icons/b7/2"
			qcp213 = ":icons/b7/3"
			qcp221 = ":icons/b7/4"
			qcp222 = ":icons/b7/5"
			qcp223 = ":icons/b7/6"
			qcp231 = ":icons/b7/7"
			qcp232 = ":icons/b7/8"
			qcp233 = ":icons/b7/9"
			qcp241 = ":icons/b7/10"
			qcp242 = ":icons/b7/11"
			qcp243 = ":icons/b7/12"
			qcp251 = ":icons/b7/13"
			qcp252 = ":icons/b7/14"
			qcp253 = ":icons/b7/15"
			qcp261 = ":icons/b7/16"
			qcp262 = ":icons/b7/17"
			qcp263 = ":icons/b7/18"
			qcp271 = ":icons/b7/19"
			qcp272 = ":icons/b7/20"
			qcp273 = ":icons/b7/21"
			qcp281 = ":icons/b7/22"
			qcp282 = ":icons/b7/23"
			qcp283 = ":icons/b7/24"
			Break
		Case = 8
			qcp211 = ":icons/b8/1"
			qcp212 = ":icons/b8/2"
			qcp221 = ":icons/b8/3"
			qcp222 = ":icons/b8/4"
			qcp231 = ":icons/b8/5"
			qcp232 = ":icons/b8/6"
			qcp241 = ":icons/b8/7"
			qcp242 = ":icons/b8/8"
			qcp251 = ":icons/b8/9"
			qcp252 = ":icons/b8/10"
			Break
		Case = 9
			qcp211 = ":icons/b9/1"
			qcp212 = ":icons/b9/2"
			qcp221 = ":icons/b9/3"
			qcp222 = ":icons/b9/4"
			qcp231 = ":icons/b9/5"
			qcp232 = ":icons/b9/6"
			qcp241 = ":icons/b9/7"
			qcp242 = ":icons/b9/8"
			qcp251 = ":icons/b9/9"
			qcp252 = ":icons/b9/10"
			Break
		Case = 10
			qcp211 = ":icons/b10/1"
			qcp212 = ":icons/b10/2"
			qcp221 = ":icons/b10/3"
			qcp222 = ":icons/b10/4"
			qcp231 = ":icons/b10/5"
			qcp232 = ":icons/b10/6"
			qcp241 = ":icons/b10/7"
			qcp242 = ":icons/b10/8"
			qcp251 = ":icons/b10/9"
			qcp252 = ":icons/b10/10"
			qcp261 = ":icons/b10/11"
			Break
		Case = 11
			qcp211 = ":icons/b11/1"
			qcp212 = ":icons/b11/2"
			qcp213 = ":icons/b11/3"
			qcp221 = ":icons/b11/4"
			qcp222 = ":icons/b11/5"
			qcp223 = ":icons/b11/6"
			Break
		Case = 12
			qcp211 = ":icons/b12/1"
			qcp221 = ":icons/b12/2"
			qcp231 = ":icons/b12/3"
			Break
		Case = 13
			qcp211 = ":icons/b13/1"
			qcp212 = ":icons/b13/2"
			qcp213 = ":icons/b13/3"
			qcp221 = ":icons/b13/4"
			qcp222 = ":icons/b13/5"
			qcp223 = ":icons/b13/6"
			qcp231 = ":icons/b13/7"
			qcp232 = ":icons/b13/8"
			qcp233 = ":icons/b13/9"
			qcp241 = ":icons/b13/10"
			qcp242 = ":icons/b13/11"
			qcp243 = ":icons/b13/12"
			qcp251 = ":icons/b13/13"
			qcp252 = ":icons/b13/14"
			qcp253 = ":icons/b13/15"
			qcp261 = ":icons/b13/16"
			qcp262 = ":icons/b13/17"
			Break
		Case = 14
			qcp211 = ":icons/b14/1"
			qcp212 = ":icons/b14/2"
			qcp213 = ":icons/b14/3"
			qcp214 = ":icons/b14/4"
			qcp221 = ":icons/b14/5"
			qcp222 = ":icons/b14/6"
			qcp223 = ":icons/b14/7"
			qcp224 = ":icons/b14/8"
			qcp231 = ":icons/b14/9"
			qcp232 = ":icons/b14/10"
			qcp233 = ":icons/b14/11"
			qcp234 = ":icons/b14/12"
			qcp241 = ":icons/b14/13"
			Break									
	EndCase
	ChangeIcon qc_prefs.gc 211 -1 -1 $qcp211
	ChangeIcon qc_prefs.gc 212 -1 -1 $qcp212
	ChangeIcon qc_prefs.gc 213 -1 -1 $qcp213
	ChangeIcon qc_prefs.gc 214 -1 -1 $qcp214
	ChangeIcon qc_prefs.gc 221 -1 -1 $qcp221
	ChangeIcon qc_prefs.gc 222 -1 -1 $qcp222
	ChangeIcon qc_prefs.gc 223 -1 -1 $qcp223
	ChangeIcon qc_prefs.gc 224 -1 -1 $qcp224
	ChangeIcon qc_prefs.gc 231 -1 -1 $qcp231
	ChangeIcon qc_prefs.gc 232 -1 -1 $qcp232
	ChangeIcon qc_prefs.gc 233 -1 -1 $qcp233
	ChangeIcon qc_prefs.gc 234 -1 -1 $qcp234
	ChangeIcon qc_prefs.gc 241 -1 -1 $qcp241
	ChangeIcon qc_prefs.gc 242 -1 -1 $qcp242
	ChangeIcon qc_prefs.gc 243 -1 -1 $qcp243
	ChangeIcon qc_prefs.gc 244 -1 -1 $qcp244
	ChangeIcon qc_prefs.gc 251 -1 -1 $qcp251
	ChangeIcon qc_prefs.gc 252 -1 -1 $qcp252
	ChangeIcon qc_prefs.gc 253 -1 -1 $qcp253
	ChangeIcon qc_prefs.gc 254 -1 -1 $qcp254
	ChangeIcon qc_prefs.gc 261 -1 -1 $qcp261
	ChangeIcon qc_prefs.gc 262 -1 -1 $qcp262
	ChangeIcon qc_prefs.gc 263 -1 -1 $qcp263
	ChangeIcon qc_prefs.gc 264 -1 -1 $qcp264
	ChangeIcon qc_prefs.gc 271 -1 -1 $qcp271
	ChangeIcon qc_prefs.gc 272 -1 -1 $qcp272
	ChangeIcon qc_prefs.gc 273 -1 -1 $qcp273
	ChangeIcon qc_prefs.gc 274 -1 -1 $qcp274
	ChangeIcon qc_prefs.gc 281 -1 -1 $qcp281
	ChangeIcon qc_prefs.gc 282 -1 -1 $qcp282
	ChangeIcon qc_prefs.gc 283 -1 -1 $qcp283
	ChangeIcon qc_prefs.gc 284 -1 -1 $qcp284
	ChangeIcon qc_prefs.gc 291 -1 -1 $qcp291
	ChangeIcon qc_prefs.gc 292 -1 -1 $qcp292
	ChangeIcon qc_prefs.gc 293 -1 -1 $qcp293
	ChangeIcon qc_prefs.gc 294 -1 -1 $qcp294
	ChangeIcon qc_prefs.gc 201 -1 -1 $qcp201
	ChangeIcon qc_prefs.gc 202 -1 -1 $qcp202
	ChangeIcon qc_prefs.gc 203 -1 -1 $qcp203
	ChangeIcon qc_prefs.gc 204 -1 -1 $qcp204