Posted to tcl by saedelaere at Sat Aug 22 09:31:13 GMT 2009view raw
- ttk::notebook .nb
- ttk::frame .nb.frame1
- ttk::frame .nb.frame2
- .nb add .nb.frame1 -text Frame1
- .nb add .nb.frame2 -text Frame2
- set prompt [label .nb.frame1.prompt -text "Choose your keyboard:"]
- set prompt1 [label .nb.frame1.prompt1 -text "Numlock on Boot :"]
- grid .nb
- grid $prompt
- grid $prompt1