Bridge Codeless
The following code is generated automatically by Treescript:
(class (public) Bridge-form extends Form
var (auto) (
Game-server game-server;
Button next-btn;
Button back-btn;
Button new-hand-btn;
Button exit-btn;
Rack-grid hand;
Rack-grid dummy;
Card-stack trick;
Std-deck deck;
Table-grid bidding-grid;
Editable-grid score-grid;
Tabbed-notebook dummy-container;
)
(proc (public static) main (String-list args)
var (
Bridge-form form1 (new Bridge-form);
)
)
(proc (public) Bridge-form
do (
: game-server init-game;
show;
)
)
(proc (auto) next-btn_click (Event e)
do (
: game-server next-player;
)
)
(proc (auto) back-btn_click (Event e)
do (
: game-server previous-player;
)
)
(proc (auto) new-hand-btn_click (Event e)
do (
: game-server new-game;
)
)
(proc (auto) exit-btn_click (Event e)
do (
: game-server quit-player;
)
)
)