Vslider.bac

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

File:Vslider.png


' 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