REM MyPrograms REM APP Loader SETENVIRON "LANG", "C" INCLUDE "hug.bac" GLOBAL x$[10], nic$[10], exec$[10] GLOBAL status[10], check[10], num, y REM----------EDIT----------------------- REM number of apps: num=6 REM USAGE: [exec,nick] x$[0]="calc &, calc" x$[1]="clients &, clients" x$[2]="sudo rxvt -e schedule &, schedule" x$[3]="sudo rxvt -e clients2pen &, clients2pen" x$[4]="sudo rxvt -e clients-from-pen &, clients-from-pen" x$[5]="pi &, piano" REM ----------END OF EDIT--------------- FOR i=0 TO num-1 SPLIT x$[i] BY "," TO array$ SIZE dim exec$[i]=array$[0] nic$[i]=array$[1] NEXT REM----------------FUNCTION----------- SUB myroutine FOR i=0 TO num-1 status[i] = GET(check[i]) IF status[i] EQ 1 THEN SYSTEM exec$[i] NEXT ENDIF ENDSUB REM------------mainwindow--------------- 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) y=55 FOR i=0 TO num-1 IF i EQ 0 THEN check[0] = RADIO(nic$[i], 300, 15, check[num] ) ELSE check[i] = RADIO(nic$[i], 300, 15, check[0] ) ENDIF y=y+15 ATTACH(mainwin,check[i],20,y) NEXT CALLBACK(ok_btn, QUIT) CALLBACK(getit_btn, myroutine) DISPLAY