limbotris/setup_tk.b at master · adamf/limbotris · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
#
# setup all of the tk board. This was moved here to make things pretty.
#

setup_tk(ctxt: ref Draw->Context)
{
    # initialize the window manager.

    wmlib->init();

    # The channels. t is the tk channel, for sending to tk
    # menubutton handles all of the wm events
    # cmd is the channel to send tk events back to the program

    t = tk->toplevel(ctxt.screen, "-borderwidth 2 -relief raised");
    menubutton = wmlib->titlebar(t, "Tetris", Wmlib->Appl);
    cmd = chan of string;

    # establish the wm window and tk widgets, and setup the event channels
    tk->namechan(t, cmd, "cmd");
    tk->cmd(t, "frame .bigframe -height 440 -width 300");
    tk->cmd(t, "canvas .bigframe.canvas -height "+ string BOARD_HEIGHT +
                    " -width " + string BOARD_WIDTH + " -background green");
    tk->cmd(t, "frame .bigframe.bottom_frame");
    tk->cmd(t, "frame .bigframe.next_shape_frame");
    tk->cmd(t, "canvas .bigframe.next_shape_frame.canvas -height 80 -width 80
    -background green");
    tk->cmd(t, "label .bigframe.next_shape_frame.label -text {Next:}
    -background white");
    tk->cmd(t, "pack .bigframe.next_shape_frame.label
    .bigframe.next_shape_frame.canvas" + " -side top -fill x -expand 1");
    tk->cmd(t, "bind .bigframe.canvas <Key-h> {send cmd MoveLeft}");
    tk->cmd(t, "bind .bigframe.canvas <Key-s> {send cmd SlowDrop}");
    tk->cmd(t, "bind .bigframe.canvas <Key-d> {send cmd Drop}");
    tk->cmd(t, "bind .bigframe.canvas <Key-k> {send cmd RotateNext}");
    tk->cmd(t, "bind .bigframe.canvas <Key-j> {send cmd RotatePrev}");
    tk->cmd(t, "bind .bigframe.canvas <Key-l> {send cmd MoveRight}");
    tk->cmd(t, "label .bigframe.bottom_frame.label -text {Tetris!}
    -background white");
    tk->cmd(t, "button .bigframe.bottom_frame.quit -text {Quit!}
    -command {send cmd Quit}");
    tk->cmd(t, "focus .bigframe.canvas");
    tk->cmd(t, "pack .bigframe.bottom_frame.label .bigframe.bottom_frame.quit
    -side left -fill x -expand 1");
    tk->cmd(t, "pack .bigframe.canvas .bigframe.bottom_frame -side top
    -fill x");


    tk->cmd(t, "pack .bigframe.next_shape_frame -side right  -fill x");
    tk->cmd(t, "pack .Wm_t .bigframe -side top -fill x");
    tk->cmd(t, "update");
}