Changeset 5660 for branches/1.4/gui/scripts/deviceLayout1D.tcl

Timestamp:

Jun 5, 2015, 10:09:25 AM (9 years ago)

Author:

ldelgass

Message:

Merge r5657:5659 from trunk (whitespace/style)

Location:

branches/1.4

Files:

• . (modified) (1 prop)
• gui/scripts/deviceLayout1D.tcl (modified) (4 diffs)

branches/1.4/gui/scripts/deviceLayout1D.tcl

@@ -1 @@
-# -*- mode: tcl; indent-tabs-mode: nil -*- 
+# -*- mode: tcl; indent-tabs-mode: nil -*-
 # ----------------------------------------------------------------------
 #  COMPONENT: deviceLayout1D - visualizer for 1D device geometries
@@ -66 +66 @@
     private variable _icons         ;# maps icon data => image handle
 }
-                                                                                
+
 itk::usual DeviceLayout1D {
     keep -background -cursor
@@ -209 +209 @@
     foreach m $_maters {
         if {"" != $m} {
-            set extra [expr {1.5*[font metrics $fnt -linespace]}] 
+            set extra [expr {1.5*[font metrics $fnt -linespace]}]
             set hmax [expr {$hmax+$extra}]
             break
@@ -219 +219 @@
         foreach nn [$_device children components] {
             if {"" != [$_device get components.$nn.about.label]} {
-                set extra [expr {1.2*[font metrics $fnt -linespace]}] 
+                set extra [expr {1.2*[font metrics $fnt -linespace]}]
                 set hmax [expr {$hmax+$extra}]
                 break