Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Fix [6fe75131c546226b]: doc: tk_messageBox (mac). Use ttk::scrollbar in stead of scrollbar in various demo's. (ported from androwish branch) |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
ec4df9a2ad969c1b5eeba278d78a7aa8 |
User & Date: | jan.nijtmans 2015-08-03 23:43:03 |
Context
2022-09-06
| ||
13:08 | Fix [f6c106285d]: Aqua: can set -title for tk_messageBox check-in: 2cea89d2 user: jan.nijtmans tags: core-8-6-branch | |
2015-08-05
| ||
20:33 | Remove various unnecessary "global tcl_platform" occurrences, which are no longer used. Add "Fit To Screen Width" menu entry to Windows (and android) console menu. Ported from androwish. check-in: ee0ef7f8 user: jan.nijtmans tags: trunk | |
2015-08-04
| ||
17:30 | Merge trunk. Add missing tkStubInit.c to Android.mk. Without this, stub-enabled Tk-based extensions (such as tkImg) will never work on Android. check-in: 6fd43c73 user: jan.nijtmans tags: androwish | |
2015-08-03
| ||
23:43 | Fix [6fe75131c546226b]: doc: tk_messageBox (mac). Use ttk::scrollbar in stead of scrollbar in various demo's. (ported from androwish branch) check-in: ec4df9a2 user: jan.nijtmans tags: trunk | |
23:40 | Fix [6fe75131c546226b]: doc: tk_messageBox (mac) check-in: 71b4bbff user: jan.nijtmans tags: core-8-5-branch | |
2015-07-28
| ||
22:18 | Made textDisp-4.9 more robust to font variations across platforms, so that it passes on Linux Debian 6.0 check-in: 5dcefdbe user: fvogel tags: trunk | |
Changes
Changes to doc/messageBox.n.
1 2 3 4 5 | '\" '\" Copyright (c) 1996 Sun Microsystems, Inc. '\" '\" See the file "license.terms" for information on usage and redistribution '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 | '\" '\" Copyright (c) 1996 Sun Microsystems, Inc. '\" '\" See the file "license.terms" for information on usage and redistribution '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. '\" .TH tk_messageBox n 4.2 Tk "Tk Built-In Commands" .so man.macros .BS '\" Note: do not modify the .SH NAME line immediately below! .SH NAME tk_messageBox \- pops up a message window and waits for user response. .SH SYNOPSIS |
︙ | ︙ | |||
46 47 48 49 50 51 52 | Specifies an icon to display. \fIIconImage\fR must be one of the following: \fBerror\fR, \fBinfo\fR, \fBquestion\fR or \fBwarning\fR. If this option is not specified, then the info icon will be displayed. .TP \fB\-message\fR \fIstring\fR . | | < | | > | | 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 | Specifies an icon to display. \fIIconImage\fR must be one of the following: \fBerror\fR, \fBinfo\fR, \fBquestion\fR or \fBwarning\fR. If this option is not specified, then the info icon will be displayed. .TP \fB\-message\fR \fIstring\fR . Specifies the message to display in this message box. The default value is an empty string. .TP \fB\-parent\fR \fIwindow\fR . Makes \fIwindow\fR the logical parent of the message box. The message box is displayed on top of its parent window. .TP \fB\-title\fR \fItitleString\fR . Specifies a string to display as the title of the message box. This option is ignored on Mac OS X, where platform guidelines forbid the use of a title on this kind of dialog. .TP \fB\-type\fR \fIpredefinedType\fR . Arranges for a predefined set of buttons to be displayed. The following values are possible for \fIpredefinedType\fR: .RS .TP 18 |
︙ | ︙ |
Changes to library/demos/bind.tcl.
︙ | ︙ | |||
18 19 20 21 22 23 24 | ## See Code / Dismiss buttons set btns [addSeeDismiss $w.buttons $w] pack $btns -side bottom -fill x text $w.text -yscrollcommand "$w.scroll set" -setgrid true \ -width 60 -height 24 -font $font -wrap word | | | 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 | ## See Code / Dismiss buttons set btns [addSeeDismiss $w.buttons $w] pack $btns -side bottom -fill x text $w.text -yscrollcommand "$w.scroll set" -setgrid true \ -width 60 -height 24 -font $font -wrap word ttk::scrollbar $w.scroll -command "$w.text yview" pack $w.scroll -side right -fill y pack $w.text -expand yes -fill both # Set up display styles. if {[winfo depth $w] > 1} { set bold "-background #43ce80 -relief raised -borderwidth 1" |
︙ | ︙ |
Changes to library/demos/entry2.tcl.
︙ | ︙ | |||
23 24 25 26 27 28 29 | set btns [addSeeDismiss $w.buttons $w] pack $btns -side bottom -fill x frame $w.frame -borderwidth 10 pack $w.frame -side top -fill x -expand 1 entry $w.frame.e1 -xscrollcommand "$w.frame.s1 set" | | | | | 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 | set btns [addSeeDismiss $w.buttons $w] pack $btns -side bottom -fill x frame $w.frame -borderwidth 10 pack $w.frame -side top -fill x -expand 1 entry $w.frame.e1 -xscrollcommand "$w.frame.s1 set" ttk::scrollbar $w.frame.s1 -orient horiz -command \ "$w.frame.e1 xview" frame $w.frame.spacer1 -width 20 -height 10 entry $w.frame.e2 -xscrollcommand "$w.frame.s2 set" ttk::scrollbar $w.frame.s2 -orient horiz -command \ "$w.frame.e2 xview" frame $w.frame.spacer2 -width 20 -height 10 entry $w.frame.e3 -xscrollcommand "$w.frame.s3 set" ttk::scrollbar $w.frame.s3 -orient horiz -command \ "$w.frame.e3 xview" pack $w.frame.e1 $w.frame.s1 $w.frame.spacer1 $w.frame.e2 $w.frame.s2 \ $w.frame.spacer2 $w.frame.e3 $w.frame.s3 -side top -fill x $w.frame.e1 insert 0 "Initial value" $w.frame.e2 insert end "This entry contains a long value, much too long " $w.frame.e2 insert end "to fit in the window at one time, so long in fact " |
︙ | ︙ |
Changes to library/demos/floor.tcl.
︙ | ︙ | |||
1303 1304 1305 1306 1307 1308 1309 | ## See Code / Dismiss buttons set btns [addSeeDismiss $w.buttons $w] pack $btns -side bottom -fill x set f [frame $w.frame] pack $f -side top -fill both -expand yes | | | | 1303 1304 1305 1306 1307 1308 1309 1310 1311 1312 1313 1314 1315 1316 1317 1318 | ## See Code / Dismiss buttons set btns [addSeeDismiss $w.buttons $w] pack $btns -side bottom -fill x set f [frame $w.frame] pack $f -side top -fill both -expand yes set h [ttk::scrollbar $f.hscroll -orient horizontal] set v [ttk::scrollbar $f.vscroll -orient vertical] set f1 [frame $f.f1 -borderwidth 2 -relief sunken] set c [canvas $f1.c -width 900 -height 500 -highlightthickness 0 \ -xscrollcommand [list $h set] \ -yscrollcommand [list $v set]] pack $c -expand yes -fill both grid $f1 -padx 1 -pady 1 -row 0 -column 0 -rowspan 1 -columnspan 1 -sticky news grid $v -padx 1 -pady 1 -row 0 -column 1 -rowspan 1 -columnspan 1 -sticky news |
︙ | ︙ |
Changes to library/demos/image2.tcl.
︙ | ︙ | |||
88 89 90 91 92 93 94 | -command "selectAndLoadDir $w" bind $w.dir.e <Return> "loadDir $w" pack $w.dir.e -side left -fill both -padx 2m -pady 2m -expand true pack $w.dir.b -side left -fill y -padx {0 2m} -pady 2m labelframe $w.f -text "File:" -padx 2m -pady 2m listbox $w.f.list -width 20 -height 10 -yscrollcommand "$w.f.scroll set" | | | 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 | -command "selectAndLoadDir $w" bind $w.dir.e <Return> "loadDir $w" pack $w.dir.e -side left -fill both -padx 2m -pady 2m -expand true pack $w.dir.b -side left -fill y -padx {0 2m} -pady 2m labelframe $w.f -text "File:" -padx 2m -pady 2m listbox $w.f.list -width 20 -height 10 -yscrollcommand "$w.f.scroll set" ttk::scrollbar $w.f.scroll -command "$w.f.list yview" pack $w.f.list $w.f.scroll -side left -fill y -expand 1 $w.f.list insert 0 earth.gif earthris.gif teapot.ppm bind $w.f.list <Double-1> "loadImage $w %x %y" catch {image delete image2a} image create photo image2a labelframe $w.image -text "Image:" |
︙ | ︙ |
Changes to library/demos/items.tcl.
︙ | ︙ | |||
27 28 29 30 31 32 33 | frame $w.frame pack $w.frame -side top -fill both -expand yes canvas $c -scrollregion {0c 0c 30c 24c} -width 15c -height 10c \ -relief sunken -borderwidth 2 \ -xscrollcommand "$w.frame.hscroll set" \ -yscrollcommand "$w.frame.vscroll set" | | | | 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 | frame $w.frame pack $w.frame -side top -fill both -expand yes canvas $c -scrollregion {0c 0c 30c 24c} -width 15c -height 10c \ -relief sunken -borderwidth 2 \ -xscrollcommand "$w.frame.hscroll set" \ -yscrollcommand "$w.frame.vscroll set" ttk::scrollbar $w.frame.vscroll -command "$c yview" ttk::scrollbar $w.frame.hscroll -orient horiz -command "$c xview" grid $c -in $w.frame \ -row 0 -column 0 -rowspan 1 -columnspan 1 -sticky news grid $w.frame.vscroll \ -row 0 -column 1 -rowspan 1 -columnspan 1 -sticky news grid $w.frame.hscroll \ -row 1 -column 0 -rowspan 1 -columnspan 1 -sticky news |
︙ | ︙ |
Changes to library/demos/paned2.tcl.
︙ | ︙ | |||
50 51 52 53 54 55 56 | toplevel } set f [frame $w.pane.top] listbox $f.list -listvariable paneList -yscrollcommand "$f.scr set" # Invert the first item to highlight it $f.list itemconfigure 0 \ -background [$f.list cget -fg] -foreground [$f.list cget -bg] | | | | | 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 | toplevel } set f [frame $w.pane.top] listbox $f.list -listvariable paneList -yscrollcommand "$f.scr set" # Invert the first item to highlight it $f.list itemconfigure 0 \ -background [$f.list cget -fg] -foreground [$f.list cget -bg] ttk::scrollbar $f.scr -orient vertical -command "$f.list yview" pack $f.scr -side right -fill y pack $f.list -fill both -expand 1 # The bottom window is a text widget with scrollbar set f [frame $w.pane.bottom] text $f.text -xscrollcommand "$f.xscr set" -yscrollcommand "$f.yscr set" \ -width 30 -height 8 -wrap none ttk::scrollbar $f.xscr -orient horizontal -command "$f.text xview" ttk::scrollbar $f.yscr -orient vertical -command "$f.text yview" grid $f.text $f.yscr -sticky nsew grid $f.xscr -sticky nsew grid columnconfigure $f 0 -weight 1 grid rowconfigure $f 0 -weight 1 $f.text insert 1.0 "This is just a normal text widget" # Now add our contents to the paned window |
︙ | ︙ |
Changes to library/demos/sayings.tcl.
︙ | ︙ | |||
24 25 26 27 28 29 30 | set btns [addSeeDismiss $w.buttons $w] pack $btns -side bottom -fill x frame $w.frame -borderwidth 10 pack $w.frame -side top -expand yes -fill both -padx 1c | | | | 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 | set btns [addSeeDismiss $w.buttons $w] pack $btns -side bottom -fill x frame $w.frame -borderwidth 10 pack $w.frame -side top -expand yes -fill both -padx 1c ttk::scrollbar $w.frame.yscroll -command "$w.frame.list yview" ttk::scrollbar $w.frame.xscroll -orient horizontal \ -command "$w.frame.list xview" listbox $w.frame.list -width 20 -height 10 -setgrid 1 \ -yscroll "$w.frame.yscroll set" -xscroll "$w.frame.xscroll set" grid $w.frame.list -row 0 -column 0 -rowspan 1 -columnspan 1 -sticky news grid $w.frame.yscroll -row 0 -column 1 -rowspan 1 -columnspan 1 -sticky news grid $w.frame.xscroll -row 1 -column 0 -rowspan 1 -columnspan 1 -sticky news |
︙ | ︙ |
Changes to library/demos/search.tcl.
︙ | ︙ | |||
105 106 107 108 109 110 111 | button $w.string.button -text "Highlight" \ -command "textSearch $w.text \$searchString search" pack $w.string.label $w.string.entry -side left pack $w.string.button -side left -pady 5 -padx 10 bind $w.string.entry <Return> "textSearch $w.text \$searchString search" text $w.text -yscrollcommand "$w.scroll set" -setgrid true | | | 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 | button $w.string.button -text "Highlight" \ -command "textSearch $w.text \$searchString search" pack $w.string.label $w.string.entry -side left pack $w.string.button -side left -pady 5 -padx 10 bind $w.string.entry <Return> "textSearch $w.text \$searchString search" text $w.text -yscrollcommand "$w.scroll set" -setgrid true ttk::scrollbar $w.scroll -command "$w.text yview" pack $w.file $w.string -side top -fill x pack $w.scroll -side right -fill y pack $w.text -expand yes -fill both # Set up display styles for text highlighting. if {[winfo depth $w] > 1} { |
︙ | ︙ |
Changes to library/demos/states.tcl.
︙ | ︙ | |||
22 23 24 25 26 27 28 | ## See Code / Dismiss buttons set btns [addSeeDismiss $w.buttons $w] pack $btns -side bottom -fill x frame $w.frame -borderwidth .5c pack $w.frame -side top -expand yes -fill y | | | 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 | ## See Code / Dismiss buttons set btns [addSeeDismiss $w.buttons $w] pack $btns -side bottom -fill x frame $w.frame -borderwidth .5c pack $w.frame -side top -expand yes -fill y ttk::scrollbar $w.frame.scroll -command "$w.frame.list yview" listbox $w.frame.list -yscroll "$w.frame.scroll set" -setgrid 1 -height 12 pack $w.frame.scroll -side right -fill y pack $w.frame.list -side left -expand 1 -fill both $w.frame.list insert 0 Alabama Alaska Arizona Arkansas California \ Colorado Connecticut Delaware Florida Georgia Hawaii Idaho Illinois \ Indiana Iowa Kansas Kentucky Louisiana Maine Maryland \ |
︙ | ︙ |
Changes to library/demos/style.tcl.
︙ | ︙ | |||
22 23 24 25 26 27 28 | # Only set the font family in one place for simplicity and consistency set family Courier text $w.text -yscrollcommand "$w.scroll set" -setgrid true \ -width 70 -height 32 -wrap word -font "$family 12" | | | 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 | # Only set the font family in one place for simplicity and consistency set family Courier text $w.text -yscrollcommand "$w.scroll set" -setgrid true \ -width 70 -height 32 -wrap word -font "$family 12" ttk::scrollbar $w.scroll -command "$w.text yview" pack $w.scroll -side right -fill y pack $w.text -expand yes -fill both # Set up display styles $w.text tag configure bold -font "$family 12 bold italic" $w.text tag configure big -font "$family 14 bold" |
︙ | ︙ |
Changes to library/demos/text.tcl.
︙ | ︙ | |||
19 20 21 22 23 24 25 | ## See Code / Dismiss buttons set btns [addSeeDismiss $w.buttons $w {} \ {ttk::button $w.buttons.fontchooser -command fontchooserToggle}] pack $btns -side bottom -fill x text $w.text -yscrollcommand [list $w.scroll set] -setgrid 1 \ -height 30 -undo 1 -autosep 1 | | | 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | ## See Code / Dismiss buttons set btns [addSeeDismiss $w.buttons $w {} \ {ttk::button $w.buttons.fontchooser -command fontchooserToggle}] pack $btns -side bottom -fill x text $w.text -yscrollcommand [list $w.scroll set] -setgrid 1 \ -height 30 -undo 1 -autosep 1 ttk::scrollbar $w.scroll -command [list $w.text yview] pack $w.scroll -side right -fill y pack $w.text -expand yes -fill both # TIP 324 Demo: [tk fontchooser] proc fontchooserToggle {} { tk fontchooser [expr {[tk fontchooser configure -visible] ? "hide" : "show"}] |
︙ | ︙ |
Changes to library/demos/textpeer.tcl.
︙ | ︙ | |||
32 33 34 35 36 37 38 | ## Procedures to make and kill clones; most of this is just so that the demo ## looks nice... proc makeClone {w parent} { global count set t [$parent peer create $w.text[incr count] -yscroll "$w.sb$count set"\ -height 10 -wrap word] | | | 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 | ## Procedures to make and kill clones; most of this is just so that the demo ## looks nice... proc makeClone {w parent} { global count set t [$parent peer create $w.text[incr count] -yscroll "$w.sb$count set"\ -height 10 -wrap word] set sb [ttk::scrollbar $w.sb$count -command "$t yview" -orient vertical] set b1 [button $w.clone$count -command "makeClone $w $t" \ -text "Make Peer"] set b2 [button $w.kill$count -command "killClone $w $count" \ -text "Delete Peer"] set row [expr {$count * 2}] grid $t $sb $b1 -sticky nsew -row $row grid ^ ^ $b2 -row [incr row] |
︙ | ︙ |
Changes to library/demos/twind.tcl.
︙ | ︙ | |||
21 22 23 24 25 26 27 | pack $btns -side bottom -fill x frame $w.f -highlightthickness 1 -borderwidth 1 -relief sunken set t $w.f.text text $t -yscrollcommand "$w.scroll set" -setgrid true -font $font -width 70 \ -height 35 -wrap word -highlightthickness 0 -borderwidth 0 pack $t -expand yes -fill both | | | 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 | pack $btns -side bottom -fill x frame $w.f -highlightthickness 1 -borderwidth 1 -relief sunken set t $w.f.text text $t -yscrollcommand "$w.scroll set" -setgrid true -font $font -width 70 \ -height 35 -wrap word -highlightthickness 0 -borderwidth 0 pack $t -expand yes -fill both ttk::scrollbar $w.scroll -command "$t yview" pack $w.scroll -side right -fill y panedwindow $w.pane pack $w.pane -expand yes -fill both $w.pane add $w.f # Import to raise given creation order above raise $w.f |
︙ | ︙ | |||
162 163 164 165 166 167 168 | $t insert end "\n\nFinally, images fit comfortably in text widgets too:" $t image create end -image \ [image create photo -file [file join $tk_demoDirectory images ouster.png]] proc textWindBigB w { | | | 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 | $t insert end "\n\nFinally, images fit comfortably in text widgets too:" $t image create end -image \ [image create photo -file [file join $tk_demoDirectory images ouster.png]] proc textWindBigB w { $w configure -borderwidth 15 } proc textWindBigH w { $w configure -highlightthickness 15 } proc textWindBigP w { |
︙ | ︙ | |||
189 190 191 192 193 194 195 | $w configure -padx $::text_normal(pad) -pady $::text_normal(pad) } proc textWindOn w { catch {destroy $w.scroll2} set t $w.f.text | | | 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 | $w configure -padx $::text_normal(pad) -pady $::text_normal(pad) } proc textWindOn w { catch {destroy $w.scroll2} set t $w.f.text ttk::scrollbar $w.scroll2 -orient horizontal -command "$t xview" pack $w.scroll2 -after $w.buttons -side bottom -fill x $t configure -xscrollcommand "$w.scroll2 set" -wrap none } proc textWindOff w { catch {destroy $w.scroll2} set t $w.f.text |
︙ | ︙ | |||
226 227 228 229 230 231 232 | canvas $c -relief sunken -width 450 -height 300 -cursor top_left_arrow set font {Helvetica 18} $c create line 100 250 400 250 -width 2 $c create line 100 250 100 50 -width 2 $c create text 225 20 -text "A Simple Plot" -font $font -fill brown | | | | 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 | canvas $c -relief sunken -width 450 -height 300 -cursor top_left_arrow set font {Helvetica 18} $c create line 100 250 400 250 -width 2 $c create line 100 250 100 50 -width 2 $c create text 225 20 -text "A Simple Plot" -font $font -fill brown for {set i 0} {$i <= 10} {incr i} { set x [expr {100 + ($i*30)}] $c create line $x 250 $x 245 -width 2 $c create text $x 254 -text [expr {10*$i}] -anchor n -font $font } for {set i 0} {$i <= 5} {incr i} { set y [expr {250 - ($i*40)}] $c create line 100 $y 105 $y -width 2 $c create text 96 $y -text [expr {$i*50}].0 -anchor e -font $font } foreach point { {12 56} {20 94} {33 98} {32 120} {61 180} {75 160} {98 223} } { set x [expr {100 + (3*[lindex $point 0])}] set y [expr {250 - (4*[lindex $point 1])/5}] set item [$c create oval [expr {$x-6}] [expr {$y-6}] \ [expr {$x+6}] [expr {$y+6}] -width 1 -outline black \ |
︙ | ︙ | |||
299 300 301 302 303 304 305 | while {[winfo exists .peer$n]} { incr n } set w [toplevel .peer$n] wm title $w "Text Peer #$n" frame $w.f -highlightthickness 1 -borderwidth 1 -relief sunken set t [$parent peer create $w.f.text -yscrollcommand "$w.scroll set" \ -borderwidth 0 -highlightthickness 0] pack $t -expand yes -fill both | | | 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 | while {[winfo exists .peer$n]} { incr n } set w [toplevel .peer$n] wm title $w "Text Peer #$n" frame $w.f -highlightthickness 1 -borderwidth 1 -relief sunken set t [$parent peer create $w.f.text -yscrollcommand "$w.scroll set" \ -borderwidth 0 -highlightthickness 0] pack $t -expand yes -fill both ttk::scrollbar $w.scroll -command "$t yview" pack $w.scroll -side right -fill y pack $w.f -expand yes -fill both } proc textSplitWindow {textW} { if {$textW eq ".twind.f.text"} { if {[winfo exists .twind.peer]} { |
︙ | ︙ |
Changes to library/demos/widget.
︙ | ︙ | |||
141 142 143 144 145 146 147 | set textheight [expr { ([winfo screenheight .] * 0.7) / [font metrics mainFont -displayof . -linespace] }] } ttk::frame .textFrame | | | 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 | set textheight [expr { ([winfo screenheight .] * 0.7) / [font metrics mainFont -displayof . -linespace] }] } ttk::frame .textFrame ttk::scrollbar .s -orient vertical -command {.t yview} -takefocus 1 pack .s -in .textFrame -side right -fill y text .t -yscrollcommand {.s set} -wrap word -width 70 -height $textheight \ -font mainFont -setgrid 1 -highlightthickness 0 \ -padx 4 -pady 2 -takefocus 0 pack .t -in .textFrame -expand y -fill both -padx 1 pack .textFrame -expand yes -fill both if {[tk windowingsystem] eq "aqua"} { |
︙ | ︙ | |||
561 562 563 564 565 566 567 | if {[tk windowingsystem] eq "x11"} {wm attributes $top -type dialog} set t [frame $top.f] set text [text $t.text -font fixedFont -height 24 -wrap word \ -xscrollcommand [list $t.xscroll set] \ -yscrollcommand [list $t.yscroll set] \ -setgrid 1 -highlightthickness 0 -pady 2 -padx 3] | | > | > | 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 | if {[tk windowingsystem] eq "x11"} {wm attributes $top -type dialog} set t [frame $top.f] set text [text $t.text -font fixedFont -height 24 -wrap word \ -xscrollcommand [list $t.xscroll set] \ -yscrollcommand [list $t.yscroll set] \ -setgrid 1 -highlightthickness 0 -pady 2 -padx 3] ttk::scrollbar $t.xscroll -command [list $t.text xview] \ -orient horizontal ttk::scrollbar $t.yscroll -command [list $t.text yview] \ -orient vertical grid $t.text $t.yscroll -sticky news #grid $t.xscroll grid rowconfigure $t 0 -weight 1 grid columnconfig $t 0 -weight 1 set btns [ttk::frame $top.btns] |
︙ | ︙ |