fltkbasiliskgui.moon

fl = require"fltk4lua"
win = fl.Window{320,164,555,317,"Basilisk II Settings"}

tabs = fl.Tabs{0,0,555,320,""}

group = fl.Group{0,25,555,295,"Volumes"}
group.labelsize = 12
fl.Browser{0,25,555,135,""}
fl.Button{0,160,185,25,"Add…"}
fl.Button{185,160,185,25,"Create…"}
fl.Button{370,160,185,25,"Remove"}
fl.Input{70,185,460,25,"Unix Root"}
 
widget = fl.Choice{70,210,485,25,"Boot From"}
widget\add"Any"
widget\add"CD-ROM"

fl.Check_Button{0,235,555,25,"Disable CD-ROM Driver"}
fl.Button{530,185,25,25,"…"}
group\end_group!

group = fl.Group{0,25,555,295,"SCSI"}
group.labelsize = 12
fl.Input{35,25,520,25,"ID 0"}
fl.Input{35,50,520,25,"ID 1"}
fl.Input{35,75,520,25,"ID 2"}
fl.Input{35,100,520,25,"ID 3"}
fl.Input{35,125,520,25,"ID 4"}
fl.Input{35,150,520,25,"ID 5"}
fl.Input{35,175,520,25,"ID 6"}
group\end_group!

group = fl.Group{0,25,555,295,"Graphics/Sound"}
group.labelsize = 12

widget = fl.Choice{145,25,410,25,"Video Type"}
widget\add"Window"
widget\add"Fullscreen"

widget = fl.Choice{145,50,410,25,"Window Refresh Rate"}
widget\add"5 Hz"
widget\add"7.5 Hz"
widget\add"10 Hz"
widget\add"15 Hz"
widget\add"30 Hz"
widget\add"60 Hz"
widget\add"Dynamic"

widget = fl.Input_Choice{145,75,410,25,"Width"}
widget\add"512"
widget\add"640"
widget\add"800"
widget\add"1024"
widget\add"Maximum"

widget = fl.Input_Choice{145,100,410,25,"Height"}
widget\add"384"
widget\add"480"
widget\add"600"
widget\add"768"
widget\add"Maximum"

fl.Check_Button{145,125,410,25,"Disable Sound Output"}
fl.Input{145,150,410,25,"Audio Output Device"}
fl.Input{145,175,410,25,"Audio Mixer Device"}

group\end_group!

group = fl.Group{0,25,555,295,"Keyboard/Mouse"}
group.labelsize = 12
fl.Check_Button{150,25,405,25,"Use Raw Keycodes"}
fl.Input{150,50,380,25,"Use Raw Keycodes"}

widget = fl.Choice{150,75,405,25,"Mouse Wheel Function"}
widget\add"Page Up\\/Down"
widget\add"Cursor Up\\/Down"

widget = fl.Spinner{150,100,405,25,"Lines To Scroll"}
widget.maximum = 1000

fl.Button{530,50,25,25,"…"}
group\end_group!

group = fl.Group{0,25,555,295,"Serial/Network"}
group.labelsize = 12
fl.Input_Choice{120,25,435,25,"Modem Port"}
fl.Input_Choice{120,50,435,25,"Printer Port"}

widget = fl.Input_Choice{120,75,435,25,"Ethernet Interface"}
widget\add"slirp"

fl.Check_Button{120,100,435,25,"Tunnel MacOS Networking over UDP"}

widget = fl.Spinner{120,125,435,25,"UDP Port Number"}
widget.maximum = 65535

group\end_group!

group = fl.Group{0,25,555,295,"Memory/Misc"}
group.labelsize = 12

widget = fl.Input_Choice{155,25,400,25,"MacOS RAM Size (MB)"}
widget\add"2"
widget\add"4"
widget\add"8"
widget\add"16"
widget\add"32"
widget\add"64"
widget\add"128"
widget\add"256"
widget\add"512"
widget\add"1024"
 
widget = fl.Choice{155,50,400,25,"Mac Model ID"}
widget\add"Mac IIci (MacOS 7.x)"
widget\add"Quadra 900 (MacOS 8.x)"

widget = fl.Choice{155,75,400,25,"CPU Type"}
widget\add"68020"
widget\add"68020 with FPU"
widget\add"68030"
widget\add"68030 with FPU"
widget\add"68040"

fl.Input{155,100,375,25,"ROM File"}
fl.Button{530,100,25,25,"…"}
fl.Check_Button{155,125,400,25,"Don't Use CPU When Idle"}
fl.Check_Button{155,150,400,25,"Ignore Illegal Memory Accesses"}

group\end_group!

group = fl.Group{0,25,555,295,"JIT Compiler"}
group.labelsize = 12
fl.Check_Button{185,25,370,25,"Enable JIT Compiler"}
fl.Check_Button{185,50,370,25,"Compile FPU Instructions"}

widget = fl.Input_Choice{185,75,370,25,"Translation Cache Size (KB)"}
widget\add"2048"
widget\add"4096"
widget\add"8192"
widget\add"16384"

fl.Check_Button{185,100,370,25,"Enable lazy invalidation of translation cache"}
fl.Check_Button{185,125,370,25,"Translate through constant jumps (inline blocks)"}

group\end_group!

win\show!
fl.run!