tk 0.1.5

Rust bindings for Tk GUI library
Documentation 
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

// cargo run --example binding_to_events

use tcl::*;
use tk::*;
use tk::cmd::*;

fn main() -> TkResult<()> {
    let tk = make_tk!()?;

    let l = tk.root().add_ttk_label( "l" -text("Starting...") )?.grid(())?;

    l.bind( event::enter(), tclosure!( tk, move || l.configure( -text("Moved mouse inside") )))?;

    l.bind( event::leave(), tclosure!( tk, move || l.configure( -text("Moved mouse outside") )))?;

    l.bind( event::button_press_1(), tclosure!( tk, move || l.configure( -text("Clicked left mouse button") )))?;

    l.bind( event::button_press_3(), tclosure!( tk, move || l.configure( -text("Clicked right mouse button") )))?;

    l.bind( event::double().button_press_1(), tclosure!( tk, move || l.configure( -text("Double clicked") )))?;

    l.bind( event::button_3().motion(), tclosure!( tk, args: "%x %y hello",
        move |x: i32, y: i32, _z: Obj| -> TkResult<()> {
            Ok( l.configure( -text( format!( "right button drag to {} {}", x, y )))? )
        }
    ))?;

    Ok( main_loop() )
}