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

HUGサンプル /

STOCK

ボタンは任意の文字列を表示できる BUTTON 以外に
予め用意された表示でボタン表示できる STOCK が存在します。

環境によって表示されるボタンに違いがあるでしょう。

ボタンを押した時、ターミナル・端末に注目して下さい。

' buttons.bac
' いつものはじまり〜
INCLUDE "hug.bac"
INIT
 
' LABEL を押した時
SUB sublabel()
    PRINT "LABEL"
END SUB 

' YES を押した時
SUB subyes()
    PRINT "YES"
END SUB

' NO を押した時
SUB subno()
     PRINT "NO"
END SUB
 
' OK を押した時
SUB subok()
     PRINT "OK"
END SUB 

' CANCEL を押した時
SUB subcancel()
     PRINT "CANCEL"
END SUB
 
' HELP を押した時
SUB subhelp()
     PRINT "help"
END SUB
 
' ウインドウは 310×100 で生成
Mainwin = WINDOW( "すとっく〜", 310, 100 )

' LABEL
 My_btn = BUTTON( "LABEL", 100, 25)
 ATTACH( Mainwin, My_btn, 5, 10 )
 CALLBACK( My_btn, sublabel)
 
' YES
 My_btn = STOCK( "gtk-yes", 100, 25)
 ATTACH( Mainwin, My_btn, 105, 10 )
 CALLBACK( My_btn, subyes)
 
' NO
 My_btn = STOCK( "gtk-no", 100, 25)
 ATTACH( Mainwin, My_btn, 205, 10 )
 CALLBACK( My_btn, subno)
 
' OK
 My_btn = STOCK( "gtk-ok", 100, 25)
 ATTACH( Mainwin, My_btn, 5, 35 )
 CALLBACK( My_btn, subok)
 
' CANCEL
 My_btn = STOCK( "gtk-cancel", 100, 25)
 ATTACH( Mainwin, My_btn, 105, 35 )
 CALLBACK( My_btn, subcancel)
 
' HELP
 My_btn = STOCK( "gtk-help", 100, 25)
 ATTACH( Mainwin, My_btn, 205, 35 )
 CALLBACK( My_btn, subhelp)
 
' 本当にキャンセル→終了
 My_chk = STOCK("gtk-cancel", 100, 25)
 ATTACH( Mainwin, My_chk, 205, 60 )
 CALLBACK( My_chk, QUIT)

' 出力〜
 DISPLAY