Messagedialog.bac
Page last edited 3,620 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