Changeset 5660 for branches/1.4/gui/scripts/deviceLayout1D.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/deviceLayout1D.tcl
r3330 r5660 1 # -*- mode: tcl; indent-tabs-mode: nil -*- 1 # -*- mode: tcl; indent-tabs-mode: nil -*- 2 2 # ---------------------------------------------------------------------- 3 3 # COMPONENT: deviceLayout1D - visualizer for 1D device geometries … … 66 66 private variable _icons ;# maps icon data => image handle 67 67 } 68 68 69 69 itk::usual DeviceLayout1D { 70 70 keep -background -cursor … … 209 209 foreach m $_maters { 210 210 if {"" != $m} { 211 set extra [expr {1.5*[font metrics $fnt -linespace]}] 211 set extra [expr {1.5*[font metrics $fnt -linespace]}] 212 212 set hmax [expr {$hmax+$extra}] 213 213 break … … 219 219 foreach nn [$_device children components] { 220 220 if {"" != [$_device get components.$nn.about.label]} { 221 set extra [expr {1.2*[font metrics $fnt -linespace]}] 221 set extra [expr {1.2*[font metrics $fnt -linespace]}] 222 222 set hmax [expr {$hmax+$extra}] 223 223 break
Note: See TracChangeset
for help on using the changeset viewer.