Spinbox.bac
Page last edited 3,278 days ago
From bigbass code
Jump to navigation
Jump to search
' spinbox.bac
' Include the files for making a GUI. INCLUDE "hug.bac" INIT
'-------------------- SUB My_SPINBOX() '-------------------- PRINT GET(SPIN_STR) END SUB
' 1.) Create your main working window, 250 pixels wide x 100 pixels high Mainwin = WINDOW( "BaCon SPINBOX ", 250, 100 )
FRAME_STR = FRAME(225, 50)
ATTACH( Mainwin, FRAME_STR, 10, 10 )
' SPIN uses GET to see the value in the SUB SPIN_STR = SPIN(100,30, 1, 10, 1) ATTACH( Mainwin, SPIN_STR, 15, 20 )
' Create a button. GET_NUMBER = BUTTON("get number", 100, 25) ATTACH( Mainwin, GET_NUMBER , 40, 65 )
' Create a button. My_chk = STOCK("gtk-quit", 80, 25) ATTACH( Mainwin, My_chk, 155, 65 )
' Make button do something CALLBACK( My_chk, QUIT) CALLBACK(GET_NUMBER, My_SPINBOX)
DISPLAY