Spinbox.bac

Page last edited 3,278 days ago
From bigbass code
Jump to navigation Jump to search

File:Spinbox.png

'  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