Changeset 5660 for branches/1.4/gui/scripts/editor.tcl
- Timestamp:
- Jun 5, 2015, 10:09:25 AM (9 years ago)
- Location:
- branches/1.4
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/1.4
-
branches/1.4/gui/scripts/editor.tcl
r3330 r5660 1 # -*- mode: tcl; indent-tabs-mode: nil -*- 1 # -*- mode: tcl; indent-tabs-mode: nil -*- 2 2 # ---------------------------------------------------------------------- 3 3 # COMPONENT: editor - pop-up editor for little bits of text … … 59 59 protected variable _loc ;# array of editor location parameters 60 60 } 61 61 62 62 itk::usual Editor { 63 63 keep -cursor -font … … 286 286 if {$h+$_loc(y) >= [winfo screenheight $e]} { 287 287 set h [expr {[winfo screenheight $e]-$_loc(y)}] 288 } 288 } 289 289 # Temporary fix to prevent Opps. Don't deal with negative dimensions. 290 290 if { $w <= 0 || $h <= 0 } {
Note: See TracChangeset
for help on using the changeset viewer.