Changeset 1313 for trunk/gui/scripts/visviewer.tcl

Timestamp:

Mar 12, 2009 2:56:31 PM (15 years ago)

Author:

gah

Message:

Add camera positioning

File:

• trunk/gui/scripts/visviewer.tcl (modified) (4 diffs)

trunk/gui/scripts/visviewer.tcl

@@ -1 @@
-#!/usr/bin/wish
+
 # ----------------------------------------------------------------------
-
-
 #  VisViewer - 
 #
@@ -122 +120 @@
 
     itk_component add controls {
-        frame $itk_interior.cntls
+        frame $itk_interior.cntls 
     } {
         usual
@@ -133 +131 @@
     #
     itk_component add drawer {
-        panedwindow $itk_interior.drawer \
-            -orient horizontal -opaqueresize 1 -handlepad 0 \
-            -handlesize 1 -sashwidth 2
+        panedwindow $itk_interior.drawer \
+            -orient horizontal -opaqueresize 1 -handlepad 0 \
+            -handlesize 1 -sashwidth 2
     }
     pack $itk_component(drawer) -expand yes -fill both
 
     itk_component add area {
-        frame $itk_interior.area
+        frame $itk_interior.area -highlightthickness 0 
     }
     $itk_component(drawer) add $itk_component(area) -sticky nsew
@@ -147 +145 @@
     itk_component add 3dview {
         label $itk_component(area).vol -image $_image(plot) \
-            -highlightthickness 0 -width 1 -height 1
+            -highlightthickness 0 -width 1 -height 1 -borderwidth 0
     } {
         usual
-        ignore -highlightthickness
+        ignore -highlightthickness -borderwidth 
     }
     pack $itk_component(3dview) -expand yes -fill both