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

HUGサンプル /

ENTRY

1行のテキストボックスを作成します。enter（return）キーを押すと CALLBACK が反応します。

入力後 enter（return）キーでターミナル・端末に変化があります。

' entry.bac
 
INCLUDE "hug.bac"
 
SUB subentry()
     PRINT "entry push!"
END SUB

INIT
 Mainwin = WINDOW( "えんた〜", 250, 100 )

 My_entry = ENTRY("にゅうりょく〜", 120, 25)
 ATTACH( Mainwin, My_entry, 10, 10 )
 CALLBACK(My_entry, subentry)
 
DISPLAY