diff options
| author | das <das> | 2007-10-23 06:31:16 (GMT) |
|---|---|---|
| committer | das <das> | 2007-10-23 06:31:16 (GMT) |
| commit | 6872aadb978801315424ff74aac063bb695ba028 (patch) | |
| tree | e179952f5f6c023f02109a4860d23bba74bc6bcb /library/demos/ttknote.tcl | |
| parent | 5787fe560c93a6350d21481301843f811fe912b0 (diff) | |
| download | tk-6872aadb978801315424ff74aac063bb695ba028.zip tk-6872aadb978801315424ff74aac063bb695ba028.tar.gz tk-6872aadb978801315424ff74aac063bb695ba028.tar.bz2 | |
* library/demos/combo.tcl: Aqua GOOBE.
* library/demos/toolbar.tcl:
* library/demos/tree.tcl:
* library/demos/ttknote.tcl:
* library/demos/ttkprogress.tcl:
* library/demos/widget:
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 |