GodFather

dialog Poker {
  title "Dialog"
  size -1 -1 219 73
  option pixels notheme
  button "Call", 1, 10 6 65 25
  button "Raise", 2, 82 6 65 25
  button "Fold", 3, 150 22 65 25
  button "Check", 4, 11 42 65 25
  button "Bet", 5, 80 41 65 25
}
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?" }
menu channel { 
  .Poker:dialog -m poker poker
}