HUGサンプル/CHECK - BaCon - A free BAsic CONverter for Unix Wiki - BaCon - A free BAsic CONverter...

HUGサンプル /

CHECK

チェックボタンを生成します。チェックを押した時に CALLBACK が反応します。

' check.bac
 
 INCLUDE "hug.bac"
 INIT
 
 SUB subcheck()
      PRINT "check!!"
 END SUB
 
 Mainwin = WINDOW( "ちぇっく〜", 250, 100 )
 
 My_checkbox = CHECK("ちぇっく〜", 120, 25)
 ATTACH( Mainwin, My_checkbox, 10, 10 )
 CALLBACK(My_checkbox, subcheck)

 DISPLAY