GTK+ Forums

use Gtk (*) # requires Qu 1.21.03 +

app = application('Dialog Examples')
win = window()
win.border=10

panel = hbox(true,10)
win.add(panel)

left = vbox(true,10)
right = vbox(true,10)
panel.add([left,right])

left.add([button('Info Message', @on_click, 1),
          button('Error Message', @on_click 3),
          www.michahcarrick.com'])
    
right.add([button('Warning Message', @on_click,2),
           button('Question', @on_click,4),
           button('gtk-quit', @bail)])    
    
win.show_all
app.main

##

sub on_click(ctl:Int, param:Int)->Int
switch param
case 1 Info("Did you know that it snowed today in Portland?")
   break
case 2 Warn("I'm warning you for the last time!")
   break
case 3 Error("BOOM! You messed up bad this time buddy!")
   break
case 4 answer = Question("Do you like GTK+ programming?")
        if answer == DLG_YES Info('Good!','Darn right you do!') 
        elif answer == DLG_NO Info('Uh Oh!',"That's a horrible answer!")
        else Warn("Hey","Dont' you ignore my question!");;
;;   
return 0;;