gf

dialog Poker {
  title "Dialog"
  size -1 -1 134 48
  option dbu
  button "Call", 1, 4 19 33 12
  button "Raise", 2, 52 34 33 12
  button "Fold", 3, 100 17 33 12
  button "Check", 4, 3 3 33 12
  button "Bet", 5, 100 3 33 12
  box "Your Cards", 6, 44 3 53 29
  button "Bet ALL", 7, 4 34 32 12
  button "Raise ALL", 8, 100 33 32 12
}
on *:dialog:poker:sclick:1:{ msg #poker Call }
on *:dialog:poker:sclick:2:{ msg #poker Raise $$?="Raise how much?" }
on *:dialog:poker:sclick:3:{ msg #poker Fold }
on *:dialog:poker:sclick:4:{ msg #poker Check }
on *:dialog:poker:sclick:5:{ msg #poker Bet $$?="Bet how much?" }
on *:dialog:poker:sclick:7:{ msg #poker Bet 420420 }
on *:dialog:poker:sclick:8:{ msg #poker Raise 420420 }
menu channel { 
  .Poker:dialog -m poker poker
}