Messagedialog.bac

Page last edited 3,278 days ago
From bigbass code
Jump to navigation Jump to search

File:Messagedialog.png File:Messagedialog2.png



'messagedialog.bac


'Include the files for making a GUI.
INCLUDE "hug.bac"
INIT
' ------------------
SUB close_dialog(NUMBER widget)
' ------------------
 SYSTEM "true"
 FOCUS(Mainwin)
 HIDE(widget)
END SUB


' ------------------
SUB SHOW_HELP()
' ------------------
 SHOW(msgbox1)
END SUB


' 1.) Create your main working window, 250 pixels wide x 100 pixels high
Mainwin = WINDOW( "BaCon MSGDIALOG", 275, 100 )


Help_btn_ = STOCK("gtk-help", 100,30)
ATTACH(Mainwin, Help_btn_,5 ,0 )
CALLBACK(Help_btn_, SHOW_HELP )


'--- Help Dialog
msgbox1 = MSGDIALOG(CONCAT$("First line \n", \
"Second line\n", \
"Third line\n", \
"Fourth line"), \
350, 200, 0, 2)


CALLBACK(msgbox1, close_dialog)
DISPLAY