tk 0.1.10

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

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

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

    let win = root.add_toplevel("win")?;
    let menubar = win.add_menu("menubar")?;
    let apple = menubar.add_menu("apple")?;
    menubar.add_cascade( -menu(apple) )?;
    apple.add_command( -label("About My Application") )?;
    apple.add_separator(())?;
    win.configure( -menu(menubar) )?;

    tclosure!( tk, cmd: "tk::mac::ShowPreferences", || -> TkResult<()> {
        // show preferences
        Ok(())
    });

    #[cfg( target_os = "macos" )]
    {
        let menu_help = menubar.add_menu( "help" )?;
        menubar.add_cascade( -menu(menu_help) -label("Help") )?;
        tclosure!( tk, cmd: "::tk::mac::ShowHelp", || -> TkResult<()> {
            //show help
            Ok(())
        });
    }

    #[cfg( not( target_os = "macos" ))]
    {
        #[cfg( windows )]
        menubar.add_cascade( -menu( menubar.add_menu( "system" )? ))?;

        #[cfg( unix )]
        menubar.add_cascade( -label("Help") -menu( menubar.add_menu("help")? ))?;
    }
    Ok( main_loop() )
}