diff options
Diffstat (limited to 'library/demos/ttknote.tcl')
| -rw-r--r-- | library/demos/ttknote.tcl | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/library/demos/ttknote.tcl b/library/demos/ttknote.tcl index 9f10ed7..6630efb 100644 --- a/library/demos/ttknote.tcl +++ b/library/demos/ttknote.tcl @@ -3,7 +3,7 @@ # This demonstration script creates a toplevel window containing a Ttk # notebook widget. # -# RCS: @(#) $Id: ttknote.tcl,v 1.1 2007/10/22 14:21:16 dkf Exp $ +# RCS: @(#) $Id: ttknote.tcl,v 1.2 2007/10/23 06:31:16 das Exp $ if {![info exists widgetDemo]} { error "This script should be run from the \"widget\" demo." @@ -22,6 +22,10 @@ positionWindow $w ## See Code / Dismiss pack [addSeeDismiss $w.seeDismiss $w] -side bottom -fill x +ttk::frame $w.f +pack $w.f -fill both -expand 1 +set w $w.f + ## Make the notebook and set up Ctrl+Tab traversal ttk::notebook $w.note pack $w.note -fill both -expand 1 -padx 2 -pady 3 @@ -37,8 +41,8 @@ ttk::button $w.note.msg.b -text "Neat!" -underline 0 -command { bind $w <Alt-n> "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 new -grid $w.note.msg.b $w.note.msg.l +grid $w.note.msg.m - -sticky new -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 |