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

HUGサンプル /

MSGDIALOG

メッセージダイアログは短いメッセージを表示するウインドウです。
MSGDIALOG でメッセージダイアログウインドウの生成を行います。
表示されないので、SHOW を使って表示する事が必要です。HIDE で非表示にもできます。

'msgdialog.bac
 
INCLUDE "hug.bac"

SUB close_dialog(NUMBER widget)
 SYSTEM "true"
 FOCUS(Mainwin)
 HIDE(widget)
END SUB
 
SUB SHOW_HELP()
 SHOW(msgbox)
END SUB
 
INIT 
 Mainwin = WINDOW( "めっせ〜じだいあろぐ", 300, 100)

 Help_btn_ = STOCK("gtk-help", 100, 30)
 ATTACH(Mainwin, Help_btn_, 5, 5)
 CALLBACK(Help_btn_, SHOW_HELP )
 
 msgbox = MSGDIALOG(CONCAT$("1 (・〜・)mogmogmo! \n", \
 "2 (・〜・)mogmogmo! \n", \
 "3 (・〜・)mogmogmo! \n", \
 "4 (・〜・)mogmogmo!"), \
 350, 130, 0, 2)
 CALLBACK(msgbox, close_dialog)

DISPLAY