Vslider.bac
Page last edited 3,278 days ago
From bigbass code
Jump to navigation
Jump to search
' vslider.bac
' Include the files for making a GUI. INCLUDE "hug.bac" INIT
'----------------------- SUB My_VSLIDER() '----------------------- PRINT GET(VSLIDER_STR) END SUB
' 1.) Create your main working window, 250 pixels wide x 200 pixels high Mainwin = WINDOW( "BaCon VSLIDER ", 220, 200 )
FRAME_STR = FRAME(195, 150)
ATTACH( Mainwin, FRAME_STR, 10, 10 )
' VSLIDER uses GET to see the value in the SUB VSLIDER_STR = VSLIDER(100,130, 1, 10, 1) ATTACH( Mainwin, VSLIDER_STR, 15, 15 )
' Create a button. GET_NUMBER = BUTTON("ok", 80, 25) ATTACH( Mainwin, GET_NUMBER , 10, 165 )
' Create a button. My_chk = STOCK("gtk-quit", 80, 25) ATTACH( Mainwin, My_chk, 125, 165 )
' Make button do something CALLBACK( My_chk, QUIT) CALLBACK(GET_NUMBER, My_VSLIDER)
DISPLAY