diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-08-05 20:33:00 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-08-05 20:33:00 (GMT) |
| commit | 3525b8b01c138cbc30c498a9e0f9a587dab26e32 (patch) | |
| tree | ba3e06ffe6fd6984eed8bc65e6beca7e61d4e076 /library/text.tcl | |
| parent | 9f976792239fa11da36f575e206bd8e6f1cc0045 (diff) | |
| download | tk-3525b8b01c138cbc30c498a9e0f9a587dab26e32.zip tk-3525b8b01c138cbc30c498a9e0f9a587dab26e32.tar.gz tk-3525b8b01c138cbc30c498a9e0f9a587dab26e32.tar.bz2 | |
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.
Diffstat (limited to 'library/text.tcl')
| -rw-r--r-- | library/text.tcl | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/library/text.tcl b/library/text.tcl index 279e2d9..18fed2c 100644 --- a/library/text.tcl +++ b/library/text.tcl @@ -543,7 +543,6 @@ proc ::tk::TextAnchor {w} { } proc ::tk::TextSelectTo {w x y {extend 0}} { - global tcl_platform variable ::tk::Priv set anchorname [tk::TextAnchor $w] @@ -1036,7 +1035,6 @@ proc ::tk_textCut w { # w - Name of a text widget. proc ::tk_textPaste w { - global tcl_platform if {![catch {::tk::GetSelection $w CLIPBOARD} sel]} { set oldSeparator [$w cget -autoseparators] if {$oldSeparator} { |