diff options
Diffstat (limited to 'demos')
-rw-r--r-- | demos/bitmaps.tcl | 6 | ||||
-rw-r--r-- | demos/explorer.tcl | 18 | ||||
-rw-r--r-- | demos/help.tcl | 24 | ||||
-rw-r--r-- | demos/imovie.tcl | 10 | ||||
-rw-r--r-- | demos/layout.tcl | 24 | ||||
-rw-r--r-- | demos/mailwasher.tcl | 18 | ||||
-rw-r--r-- | demos/outlook-folders.tcl | 16 | ||||
-rw-r--r-- | demos/outlook-newgroup.tcl | 28 | ||||
-rw-r--r-- | demos/random.tcl | 16 | ||||
-rw-r--r-- | demos/www-options.tcl | 8 |
10 files changed, 84 insertions, 84 deletions
diff --git a/demos/bitmaps.tcl b/demos/bitmaps.tcl index 36917af..9df6d8d 100644 --- a/demos/bitmaps.tcl +++ b/demos/bitmaps.tcl @@ -24,9 +24,9 @@ proc DemoBitmaps {} { set S [$T style create STYLE -orient vertical] $T style elements $S {elemSelBmp elemBmp elemSelTxt elemTxt} $T style layout $S elemSelBmp -union elemBmp \ - -ipadn 6 -ipads 6 -ipadw 6 -ipade 6 - $T style layout $S elemBmp -pads 6 -expand we - $T style layout $S elemSelTxt -union elemTxt -ipadw 2 -ipade 2 + -ipadx 6 -ipady 6 + $T style layout $S elemBmp -pady {0 6} -expand we + $T style layout $S elemSelTxt -union elemTxt -ipadx 2 $T style layout $S elemTxt -expand we set bitmapNames [list error gray75 gray50 gray25 gray12 hourglass info \ diff --git a/demos/explorer.tcl b/demos/explorer.tcl index 1b966e2..eefd7a8 100644 --- a/demos/explorer.tcl +++ b/demos/explorer.tcl @@ -59,7 +59,7 @@ proc DemoExplorerDetails {} { InitPics small-* $T column configure 0 -text Name -tag name -width 200 \ - -arrow up -arrowpadw 6 -arrowpade 6 + -arrow up -arrowpad 6 $T column configure 1 -text Size -tag size -justify right -width 60 \ -arrowside left -arrowgravity right $T column configure 2 -text Type -tag type -width 120 @@ -77,23 +77,23 @@ proc DemoExplorerDetails {} { set S [$T style create styName -orient horizontal] $T style elements $S {e4 e1 e2} $T style layout $S e1 -expand ns - $T style layout $S e2 -padw 2 -squeeze x -expand ns - $T style layout $S e4 -union [list e2] -iexpand ns -ipadw 2 -ipade 2 + $T style layout $S e2 -padx {2 0} -squeeze x -expand ns + $T style layout $S e4 -union [list e2] -iexpand ns -ipadx 2 # column 1: text set S [$T style create stySize] $T style elements $S txtSize - $T style layout $S txtSize -padw 6 -pade 6 -squeeze x -expand ns + $T style layout $S txtSize -padx 6 -squeeze x -expand ns # column 2: text set S [$T style create styType] $T style elements $S txtType - $T style layout $S txtType -padw 6 -pade 6 -squeeze x -expand ns + $T style layout $S txtType -padx 6 -squeeze x -expand ns # column 3: text set S [$T style create styDate] $T style elements $S txtDate - $T style layout $S txtDate -padw 6 -pade 6 -squeeze x -expand ns + $T style layout $S txtDate -padx 6 -squeeze x -expand ns set ::TreeCtrl::Priv(edit,$T) {e2} set ::TreeCtrl::Priv(sensitive,$T) { @@ -230,7 +230,7 @@ proc DemoExplorerLargeIcons {} { set S [$T style create STYLE -orient vertical] $T style elements $S {elemSel elemImg elemTxt} $T style layout $S elemImg -expand we - $T style layout $S elemTxt -padn 4 -padw 2 -pade 2 -squeeze x -expand we + $T style layout $S elemTxt -pady {4 0} -padx 2 -squeeze x -expand we $T style layout $S elemSel -union [list elemTxt] set ::TreeCtrl::Priv(edit,$T) {elemTxt} @@ -321,8 +321,8 @@ proc DemoExplorerList {} { set S [$T style create STYLE] $T style elements $S {elemSel elemImg elemTxt} $T style layout $S elemImg -expand ns - $T style layout $S elemTxt -squeeze x -expand ns -padw 2 - $T style layout $S elemSel -union [list elemTxt] -iexpand ns -ipadw 2 -ipade 2 + $T style layout $S elemTxt -squeeze x -expand ns -padx {2 0} + $T style layout $S elemSel -union [list elemTxt] -iexpand ns -ipadx 2 set ::TreeCtrl::Priv(edit,$T) {elemTxt} set ::TreeCtrl::Priv(sensitive,$T) { diff --git a/demos/help.tcl b/demos/help.tcl index 5fc067f..b8a8d04 100644 --- a/demos/help.tcl +++ b/demos/help.tcl @@ -28,16 +28,16 @@ proc DemoHelpContents {} { # book set S [$T style create s1] $T style elements $S {e4 e1 e3} - $T style layout $S e1 -pade 4 -expand ns + $T style layout $S e1 -padx {0 4} -expand ns $T style layout $S e3 -expand ns - $T style layout $S e4 -union [list e3] -iexpand ns -ipadw 2 -ipade 2 + $T style layout $S e4 -union [list e3] -iexpand ns -ipadx 2 # page set S [$T style create s2] $T style elements $S {e4 e2 e3} - $T style layout $S e2 -pade 4 -expand ns + $T style layout $S e2 -padx {0 4} -expand ns $T style layout $S e3 -expand ns - $T style layout $S e4 -union [list e3] -iexpand ns -ipadw 2 -ipade 2 + $T style layout $S e4 -union [list e3] -iexpand ns -ipadx 2 set parentList [list root {} {} {} {} {} {}] set parent root @@ -138,30 +138,30 @@ proc DemoHelpContents2 {} { # book set S [$T style create s1] $T style elements $S {e4 e1 e3} - $T style layout $S e1 -pade 4 -expand ns + $T style layout $S e1 -padx {0 4} -expand ns $T style layout $S e3 -expand ns - $T style layout $S e4 -union [list e3] -iexpand ns -ipadw 2 -ipade 2 + $T style layout $S e4 -union [list e3] -iexpand ns -ipadx 2 # page set S [$T style create s2] $T style elements $S {e4 e2 e3} - $T style layout $S e2 -pade 4 -expand ns + $T style layout $S e2 -padx {0 4} -expand ns $T style layout $S e3 -expand ns - $T style layout $S e4 -union [list e3] -iexpand ns -ipadw 2 -ipade 2 + $T style layout $S e4 -union [list e3] -iexpand ns -ipadx 2 # book (focus) set S [$T style create s1.f] $T style elements $S {e4 e1 e5} - $T style layout $S e1 -pade 4 -expand ns + $T style layout $S e1 -padx {0 4} -expand ns $T style layout $S e5 -expand ns - $T style layout $S e4 -union [list e5] -iexpand ns -ipadw 1 -ipade 2 + $T style layout $S e4 -union [list e5] -iexpand ns -ipadx {1 2} # page (focus) set S [$T style create s2.f] $T style elements $S {e4 e2 e5} - $T style layout $S e2 -pade 4 -expand ns + $T style layout $S e2 -padx {0 4} -expand ns $T style layout $S e5 -expand ns - $T style layout $S e4 -union [list e5] -iexpand ns -ipadw 1 -ipade 2 + $T style layout $S e4 -union [list e5] -iexpand ns -ipadx {1 2} set parentList [list root {} {} {} {} {} {}] set parent root diff --git a/demos/imovie.tcl b/demos/imovie.tcl index 4e327e2..0c99312 100644 --- a/demos/imovie.tcl +++ b/demos/imovie.tcl @@ -36,12 +36,12 @@ proc DemoIMovie {} { set S [$T style create STYLE -orient vertical] $T style elements $S {elemShadow elemRect elemTime elemImg elemName} - $T style layout $S elemShadow -detach yes -pade 2 -pads 2 -padn 1 -padw 1 -iexpand es - $T style layout $S elemTime -padw 2 - $T style layout $S elemImg -pads 1 - $T style layout $S elemName -expand we -ipads 2 -pade 3 -squeeze x + $T style layout $S elemShadow -detach yes -padx {1 2} -pady {1 2} -iexpand es + $T style layout $S elemTime -padx {2 0} + $T style layout $S elemImg -pady {0 1} + $T style layout $S elemName -expand we -ipady {0 2} -padx {0 3} -squeeze x $T style layout $S elemRect -union {elemTime elemImg elemName} \ - -ipadw 6 -ipade 6 -pade 3 -pads 3 + -ipadx 6 -padx {0 3} -pady {0 3} for {set i 0} {$i < 5} {incr i} { foreach {time name image} { diff --git a/demos/layout.tcl b/demos/layout.tcl index 8d8b13a..f36da74 100644 --- a/demos/layout.tcl +++ b/demos/layout.tcl @@ -23,13 +23,13 @@ proc DemoLayout {} { set S [$T style create s1] $T style elements $S {e4 e3 e1 e2 e5 e6 e7} - $T style layout $S e1 -padw 28 -pade 4 -padn 4 -pads 4 - $T style layout $S e2 -expand es -pade 38 - $T style layout $S e3 -union [list e1 e2] -ipadw 4 -ipade 4 -ipadn 4 -ipads 4 -padn 2 -pads 2 + $T style layout $S e1 -padx {28 4} -pady 4 + $T style layout $S e2 -expand es -padx {0 38} + $T style layout $S e3 -union [list e1 e2] -ipadx 4 -ipady 4 -pady 2 $T style layout $S e4 -detach yes -iexpand es - $T style layout $S e5 -detach yes -padw 2 -padn 2 -pads 2 -iexpand s - $T style layout $S e6 -detach yes -expand ws -pade 2 -padn 2 - $T style layout $S e7 -detach yes -expand wn -pade 2 -pads 2 + $T style layout $S e5 -detach yes -padx {2 0} -pady 2 -iexpand s + $T style layout $S e6 -detach yes -expand ws -padx {0 2} -pady {2 0} + $T style layout $S e7 -detach yes -expand wn -padx {0 2} -pady {0 2} set I [$T item create] $T item hasbutton $I yes @@ -46,8 +46,8 @@ proc DemoLayout {} { set S [$T style create s2] $T style elements $S {e4 e3 e1} - $T style layout $S e1 -padw 8 -pade 8 -padn 8 -pads 8 -iexpand e - $T style layout $S e3 -union e1 -ipadw 20 -ipade 4 -ipadn 4 -ipads 12 + $T style layout $S e1 -padx 8 -pady 8 -iexpand e + $T style layout $S e3 -union e1 -ipadx {20 4} -ipady {4 12} $T style layout $S e4 -detach yes -iexpand es set I [$T item create] @@ -64,9 +64,9 @@ proc DemoLayout {} { set S [$T style create s3] $T style elements $S {e4 e3 e1 e5 e6} - $T style layout $S e4 -union {e1 e6} -ipadw 8 -ipadn 8 -ipade 8 - $T style layout $S e3 -union {e1 e5} -ipadw 4 -ipadn 4 -ipade 4 -ipads 4 - $T style layout $S e5 -ipads 20 + $T style layout $S e4 -union {e1 e6} -ipadx 8 -ipady {8 0} + $T style layout $S e3 -union {e1 e5} -ipadx 4 -ipady 4 + $T style layout $S e5 -ipady {0 20} set I [$T item create] $T item hasbutton $I yes @@ -88,7 +88,7 @@ proc DemoLayout {} { set S [$T style create s4] $T style elements $S {eb et} - $T style layout $S eb -union et -ipadw 2 -ipadn 2 -ipade 2 -ipads 2 + $T style layout $S eb -union et -ipadx 2 -ipady 2 $T style layout $S et -squeeze x set I [$T item create] diff --git a/demos/mailwasher.tcl b/demos/mailwasher.tcl index d97dcbb..33e856f 100644 --- a/demos/mailwasher.tcl +++ b/demos/mailwasher.tcl @@ -16,14 +16,14 @@ proc DemoMailWasher {} { -xscrollincrement 1 set pad 4 - $T column configure 0 -text Delete -textpadw $pad -textpade $pad -tag delete - $T column configure 1 -text Bounce -textpadw $pad -textpade $pad -tag bounce - $T column configure 2 -text Status -width 80 -textpadw $pad -textpade $pad -tag status - $T column configure 3 -text Size -width 40 -textpadw $pad -textpade $pad -justify right -tag size - $T column configure 4 -text From -width 140 -textpadw $pad -textpade $pad -tag from - $T column configure 5 -text Subject -width 240 -textpadw $pad -textpade $pad -tag subject - $T column configure 6 -text Received -textpadw $pad -textpade $pad -arrow up -arrowpadw 4 -tag received - $T column configure 7 -text Attachments -textpadw $pad -textpade $pad -tag attachments + $T column configure 0 -text Delete -textpadx $pad -tag delete + $T column configure 1 -text Bounce -textpadx $pad -tag bounce + $T column configure 2 -text Status -width 80 -textpadx $pad -tag status + $T column configure 3 -text Size -width 40 -textpadx $pad -justify right -tag size + $T column configure 4 -text From -width 140 -textpadx $pad -tag from + $T column configure 5 -text Subject -width 240 -textpadx $pad -tag subject + $T column configure 6 -text Received -textpadx $pad -arrow up -arrowpad {4 0} -tag received + $T column configure 7 -text Attachments -textpadx $pad -tag attachments $T element create border rect -open nw -outline gray -outlinewidth 1 \ -fill [list $::SystemHighlight {selected}] @@ -57,7 +57,7 @@ proc DemoMailWasher {} { set S [$T style create sty$name] $T style elements $S [list border txt$name] $T style layout $S border -detach yes -iexpand es - $T style layout $S txt$name -padw $pad -pade $pad -squeeze x -expand ns + $T style layout $S txt$name -padx $pad -squeeze x -expand ns } for {set i 0} {$i < 1} {incr i} { foreach {from subject} { diff --git a/demos/outlook-folders.tcl b/demos/outlook-folders.tcl index 4eac92f..d503721 100644 --- a/demos/outlook-folders.tcl +++ b/demos/outlook-folders.tcl @@ -30,31 +30,31 @@ proc DemoOutlookFolders {} { set S [$T style create s1] $T style elements $S {e6 e1 e2} $T style layout $S e1 -expand ns - $T style layout $S e2 -padw 4 -expand ns -squeeze x - $T style layout $S e6 -union [list e2] -iexpand ns -ipadw 2 -ipade 2 + $T style layout $S e2 -padx {4 0} -expand ns -squeeze x + $T style layout $S e6 -union [list e2] -iexpand ns -ipadx 2 # image + text + text set S [$T style create s2] $T style elements $S {e6 e1 e3 e4} $T style layout $S e1 -expand ns - $T style layout $S e3 -padw 4 -pade 4 -expand ns -squeeze x + $T style layout $S e3 -padx 4 -expand ns -squeeze x $T style layout $S e4 -expand ns - $T style layout $S e6 -union [list e3] -iexpand ns -ipadw 2 -ipade 2 + $T style layout $S e6 -union [list e3] -iexpand ns -ipadx 2 # folder + text set S [$T style create s3] $T style elements $S {e6 e5 e2} $T style layout $S e5 -expand ns - $T style layout $S e2 -padw 4 -expand ns -squeeze x - $T style layout $S e6 -union [list e2] -iexpand ns -ipadw 2 -ipade 2 + $T style layout $S e2 -padx {4 0} -expand ns -squeeze x + $T style layout $S e6 -union [list e2] -iexpand ns -ipadx 2 # folder + text + text set S [$T style create s4] $T style elements $S {e6 e5 e3 e4} $T style layout $S e5 -expand ns - $T style layout $S e3 -padw 4 -pade 4 -expand ns -squeeze x + $T style layout $S e3 -padx 4 -expand ns -squeeze x $T style layout $S e4 -expand ns - $T style layout $S e6 -union [list e3] -iexpand ns -ipadw 2 -ipade 2 + $T style layout $S e6 -union [list e3] -iexpand ns -ipadx 2 $T item style set root 0 s1 $T item complex root [list [list e1 -image outlook-main] [list e2 -text "Outlook Express"]] diff --git a/demos/outlook-newgroup.tcl b/demos/outlook-newgroup.tcl index 217d2ec..c8fb224 100644 --- a/demos/outlook-newgroup.tcl +++ b/demos/outlook-newgroup.tcl @@ -51,19 +51,19 @@ proc DemoOutlookNewsgroup {} { set S [$T style create s1] $T style elements $S {sel.e elemImg elemTxt} $T style layout $S elemImg -expand ns - $T style layout $S elemTxt -padw 2 -pade 6 -squeeze x -expand ns - $T style layout $S sel.e -union [list elemTxt] -iexpand nes -ipadw 2 + $T style layout $S elemTxt -padx {2 6} -squeeze x -expand ns + $T style layout $S sel.e -union [list elemTxt] -iexpand nes -ipadx {2 0} # Text set S [$T style create s2.we] $T style elements $S {sel.we elemTxt} - $T style layout $S elemTxt -padw 6 -pade 6 -squeeze x -expand ns + $T style layout $S elemTxt -padx 6 -squeeze x -expand ns $T style layout $S sel.we -detach yes -iexpand es # Text set S [$T style create s2.w] $T style elements $S {sel.w elemTxt} - $T style layout $S elemTxt -padw 6 -pade 6 -squeeze x -expand ns + $T style layout $S elemTxt -padx 6 -squeeze x -expand ns $T style layout $S sel.w -detach yes -iexpand es set msgCnt 100 @@ -210,45 +210,45 @@ proc DemoOutlookNewsgroup2 {} { set S [$T style create unread] $T style elements $S {sel.e image.unread text.unread} $T style layout $S image.unread -expand ns - $T style layout $S text.unread -padw 2 -pade 6 -squeeze x -expand ns - $T style layout $S sel.e -union [list text.unread] -iexpand nes -ipadw 2 + $T style layout $S text.unread -padx {2 6} -squeeze x -expand ns + $T style layout $S sel.e -union [list text.unread] -iexpand nes -ipadx {2 0} # Image + text set S [$T style create read] $T style elements $S {sel.e image.read text.read} $T style layout $S image.read -expand ns - $T style layout $S text.read -padw 2 -pade 6 -squeeze x -expand ns - $T style layout $S sel.e -union [list text.read] -iexpand nes -ipadw 2 + $T style layout $S text.read -padx {2 6} -squeeze x -expand ns + $T style layout $S sel.e -union [list text.read] -iexpand nes -ipadx {2 0} # Image + text set S [$T style create read2] $T style elements $S {sel.e image.read2 text.unread} $T style layout $S image.read2 -expand ns - $T style layout $S text.unread -padw 2 -pade 6 -squeeze x -expand ns - $T style layout $S sel.e -union [list text.unread] -iexpand nes -ipadw 2 + $T style layout $S text.unread -padx {2 6} -squeeze x -expand ns + $T style layout $S sel.e -union [list text.unread] -iexpand nes -ipadx {2 0} # Text set S [$T style create unread.we] $T style elements $S {sel.we text.unread} - $T style layout $S text.unread -padw 6 -pade 6 -squeeze x -expand ns + $T style layout $S text.unread -padx 6 -squeeze x -expand ns $T style layout $S sel.we -detach yes -iexpand es # Text set S [$T style create read.we] $T style elements $S {sel.we text.read} - $T style layout $S text.read -padw 6 -pade 6 -squeeze x -expand ns + $T style layout $S text.read -padx 6 -squeeze x -expand ns $T style layout $S sel.we -detach yes -iexpand es # Text set S [$T style create unread.w] $T style elements $S {sel.w text.unread} - $T style layout $S text.unread -padw 6 -pade 6 -squeeze x -expand ns + $T style layout $S text.unread -padx 6 -squeeze x -expand ns $T style layout $S sel.w -detach yes -iexpand es # Text set S [$T style create read.w] $T style elements $S {sel.w text.read} - $T style layout $S text.read -padw 6 -pade 6 -squeeze x -expand ns + $T style layout $S text.read -padx 6 -squeeze x -expand ns $T style layout $S sel.w -detach yes -iexpand es set msgCnt 100 diff --git a/demos/random.tcl b/demos/random.tcl index 2d817b0..83b7d0c 100644 --- a/demos/random.tcl +++ b/demos/random.tcl @@ -32,20 +32,20 @@ proc DemoRandom {} { $T style create s1 $T style elements s1 {e5 e1 e3 e4} - $T style layout s1 e1 -pade 4 -expand ns - $T style layout s1 e3 -pade 4 -expand ns - $T style layout s1 e4 -pade 6 -expand ns - $T style layout s1 e5 -union [list e3] -iexpand ns -ipadw 2 -ipade 2 + $T style layout s1 e1 -padx {0 4} -expand ns + $T style layout s1 e3 -padx {0 4} -expand ns + $T style layout s1 e4 -padx {0 6} -expand ns + $T style layout s1 e5 -union [list e3] -iexpand ns -ipadx 2 $T style create s2 $T style elements s2 {e5 e2 e3} - $T style layout s2 e2 -pade 4 -expand ns - $T style layout s2 e3 -pade 6 -expand ns - $T style layout s2 e5 -union [list e3] -iexpand ns -ipadw 2 -ipade 2 + $T style layout s2 e2 -padx {0 4} -expand ns + $T style layout s2 e3 -padx {0 4} -expand ns + $T style layout s2 e5 -union [list e3] -iexpand ns -ipadx 2 $T style create s3 $T style elements s3 {e6} - $T style layout s3 e6 -padw 6 -pade 6 -expand ns + $T style layout s3 e6 -padx 6 -expand ns set ::TreeCtrl::Priv(sensitive,$T) { {item s1 e5 e1 e3} diff --git a/demos/www-options.tcl b/demos/www-options.tcl index c96ec97..ea9ee12 100644 --- a/demos/www-options.tcl +++ b/demos/www-options.tcl @@ -28,9 +28,9 @@ proc DemoInternetOptions {} { set S [$T style create s1] $T style elements $S {e3 e1 e2} - $T style layout $S e1 -pade 4 -expand ns + $T style layout $S e1 -padx {0 4} -expand ns $T style layout $S e2 -expand ns - $T style layout $S e3 -union [list e2] -iexpand ns -ipadw 2 -ipade 2 + $T style layout $S e3 -union [list e2] -iexpand ns -ipadx 2 set parentList [list root {} {} {} {} {} {}] set parent root @@ -158,9 +158,9 @@ proc DemoInternetOptions_2 {} { set S [$T style create s1] $T style elements $S {e3 e1 e2} - $T style layout $S e1 -pade 4 -expand ns + $T style layout $S e1 -padx {0 4} -expand ns $T style layout $S e2 -expand ns - $T style layout $S e3 -union [list e2] -iexpand ns -ipadw 2 -ipade 2 + $T style layout $S e3 -union [list e2] -iexpand ns -ipadx 2 set parentList [list root {} {} {} {} {} {}] set parent root |