Changeset ddde017 in tol

Timestamp:

Jan 13, 2010, 3:27:29 PM (17 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

260e967

Parents:

b7d279e

Message:

refs #838 : the size of the tables is adapted to the size of the toplevel, also multiple instances of the windows can be opened

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@1970 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tol_pkg/GuiTools/MultiDimSelect.tcl (modified) (3 diffs)

tol_pkg/GuiTools/MultiDimSelect.tcl

@@ -136 +136 @@
   hulltype toplevel
 
+  typevariable instNumber
+
+  typeconstructor {
+    set instNumber 0
+  }
+
+  typemethod New { addr } {
+    incr instNumber
+    DimSelector .dimsel$instNumber -addr $addr
+  }
+
   option -addr -readonly yes -validatemethod _checkAddr
 
@@ -180 +191 @@
     set fmain [ frame $win.fmain ]
     set fbut [ frame $win.fbut ]
+    grid rowconfigure $fmain 0 -weight 1
+    grid columnconfigure $fmain 0 -weight 1
     grid $fmain -row 0 -column 0 -sticky snew
     grid $fbut -row 1 -column 0 -sticky snew
@@ -360 +373 @@
 proc ShowDimSelector { addr } {
   puts "ShowDimSelector $addr"
-  DimSelector .dimsel -addr $addr
-  puts "[ .dimsel cget -addr]"
-  set result [ .dimsel draw ]
-  puts "sali con $result"
+  DimSelector New $addr
 }