Code: Select all
INCLUDE "/usr/share/BaCon/hug.bac"
INIT
SUB testsub
SQUARE ("#800000", 0, 0, 40, 40, 1)
END SUB
appWindow = WINDOW("Test", 320, 240)
canv=CANVAS(300, 220)
ATTACH(appWindow, canv, 10, 10)
CALLBACK(canv, testsub)
DISPLAY
Code: Select all
INCLUDE "/usr/share/BaCon/hug.bac"
INIT
SUB testsub
SQUARE ("#800000", 0, 0, 40, 40, 1)
END SUB
appWindow = WINDOW("Test", 320, 240)
canv=CANVAS(300, 220)
ATTACH(appWindow, canv, 10, 10)
CALLBACK(canv, testsub)
DISPLAY