can't find package Ttk
while executing
"package require Ttk"
(in namespace eval "::request" script line 3)
invoked from within
"namespace eval ::request $script"
("::try" body line 12)
OUTPUT BUFFER:
#!/usr/local/bin/wish
package require Ttk
font create MyFont -family Helvetica -size 12
set w .ttknote
catch {destroy $w}
toplevel $w
wm title $w "Ttk Notebook Widget"
wm iconname $w "ttknote"
frame $w.f -width 20
pack $w.f
set w $w.f
## Make the notebook and set up Ctrl+Tab traversal
ttk::notebook $w.note -width 20
pack $w.note -padx 2 -pady 3
ttk::notebook::enableTraversal $w.note
## Popuplate the first pane
frame $w.note.msg
ttk::label $w.note.msg.m -font MyFont -wraplength 4i -justify left -anchor n -text "Ttk is the new Tk themed widget set. One of the widgets it includes is the notebook widget, which provides a set of tabs that allow the selection of a group of panels, each with distinct content. They are a feature of many modern user interfaces. Not only can the tabs be selected with the mouse, but they can also be switched between using Ctrl+Tab when the notebook page heading itself is selected. Note that the second tab is disabled, and cannot be selected."
ttk::button $w.note.msg.b -text "Neat!" -underline 0 -command {
set neat "Yeah, I know..."
after 500 {set neat {}}
}
bind $w "focus $w.note.msg.b; $w.note.msg.b invoke"
ttk::label $w.note.msg.l -textvariable neat
$w.note add $w.note.msg -text "Description" -underline 0 -padding 2
grid $w.note.msg.m - -sticky n -pady 2
grid $w.note.msg.b $w.note.msg.l -pady {2 4}
grid rowconfigure $w.note.msg 1 -weight 1
grid columnconfigure $w.note.msg {0 1} -weight 1 -uniform 1
## Populate the second pane. Note that the content doesn't really matter
frame $w.note.disabled
$w.note add $w.note.disabled -text "Disabled" -state disabled
## Popuplate the third pane
frame $w.note.editor
$w.note add $w.note.editor -text "Text Editor" -underline 0
text $w.note.editor.t -width 40 -height 10 -wrap char \
-yscroll "$w.note.editor.s set"
if {[tk windowingsystem] ne "aqua"} {
ttk::scrollbar $w.note.editor.s -orient vertical -command "$w.note.editor.t yview"
} else {
scrollbar $w.note.editor.s -orient vertical -command "$w.note.editor.t yview"
}
pack $w.note.editor.s -side right -fill y -padx {0 2} -pady 2
pack $w.note.editor.t -pady 2 -padx {2 0}
## Popuplate the fourth pane
frame $w.note.le4 -width 20
pack $w.note.le4
$w.note add $w.note.le4 -text "C'est le 4" -underline 0
## Popuplate the fifth pane
frame $w.note.le5 -width 20
pack $w.note.le5
$w.note add $w.note.le5 -text "C'est le 4" -underline 0
## Popuplate the sixth pane
frame $w.note.le6 -width 20
pack $w.note.le6
$w.note add $w.note.le6 -text "C'est le 4" -underline 0
## Popuplate the seventh pane
frame $w.note.le7 -width 20
pack $w.note.le7
$w.note add $w.note.le7 -text "C'est le 4" -underline 0
## Popuplate the seventh pane
frame $w.note.le8 -width 20
pack $w.note.le8
$w.note add $w.note.le8 -text "C'est le 4" -underline 0
## Popuplate the seventh pane
frame $w.note.le9 -width 20
pack $w.note.le9
$w.note add $w.note.le9 -text "C'est le 4" -underline 0
## Popuplate the seventh pane
frame $w.note.le10 -width 20
pack $w.note.le10
$w.note add $w.note.le10 -text "C'est le 4" -underline 0
## Popuplate the seventh pane
frame $w.note.le11 -width 20
pack $w.note.le11
$w.note add $w.note.le11 -text "C'est le 4" -underline 0
## Popuplate the seventh pane
frame $w.note.le12 -width 20
pack $w.note.le12
$w.note add $w.note.le12 -text "C'est le 4" -underline 0