REM MyProgram

SETENVIRON "LANG", "C"
INCLUDE "hug.bac"

GLOBAL status1, status2, status3, status4, status5, status6  



SUB myroutine

status1 = GET(check1)
status2 = GET(check2)
status3 = GET(check3)
status4 = GET(check4)
status5 = GET(check5)
status6 = GET(check6)

IF status1 EQ 1 THEN
     SYSTEM "calc &" 
ELIF status2 EQ 1 THEN
   SYSTEM "clients &"
ELIF status3 EQ 1 THEN
   SYSTEM "schedule "   
ELIF status4 EQ 1 THEN
   SYSTEM "clients2pen " 
ELIF status5 EQ 1 THEN
   SYSTEM "clients-from-pen "   
ELIF status6 EQ 1 THEN
   SYSTEM "pi &"
ENDIF 
ENDSUB 


mainwin = WINDOW("My Programs", 400, 300)
REM endless gtk loop..

image1=IMAGE("/usr/local/lib/X11/pixmaps/pupnews48.png",48,48)
ATTACH(mainwin,image1,10,10)

label_1=MARK("My Favorites",350,15)

ATTACH(mainwin,label_1,50,10)

getit_btn=BUTTON("Load", 65, 25)
ATTACH(mainwin, getit_btn, 100, 250)

ok_btn=BUTTON("OKAY", 65, 25)
ATTACH(mainwin, ok_btn, 240, 250)

check1 = RADIO("calc", 300, 15, check6 )
check2 = RADIO("clients", 300, 15, check1 )
check3 = RADIO("schedule",300, 15, check1 )
check4 = RADIO("clients2pen", 300, 15, check1)
check5 = RADIO("clients-from-pen", 300, 15, check1)
check6 = RADIO("piano", 300, 15, check1)
ATTACH(mainwin,check1,20,70) 
ATTACH(mainwin,check2,20,85) 
ATTACH(mainwin,check3,20,100) 
ATTACH(mainwin,check4,20,115) 
ATTACH(mainwin,check5,20,130) 
ATTACH(mainwin,check6,20,145) 

CALLBACK(ok_btn, QUIT)
CALLBACK(getit_btn, myroutine)




DISPLAY