Changeset ef17027 in tol

Timestamp:

Dec 4, 2011, 2:46:30 PM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

194f817

Parents:

a64f8ce

Message:

refs #1347,

package require autoscroll 1.1

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

File:

• tolbase/lib/toltk/init_toltk.tcl (modified) (2 diffs)

tolbase/lib/toltk/init_toltk.tcl

@@ -54 +54 @@
 }
 
+proc TraceMainGeometry { msg } {
+  puts "== $msg == wm geometry . == [wm geometry .]"
+  puts "== $msg == winfo geometry . == [winfo geometry .]"
+}
+
 #/////////////////////////////////////////////////////////////////////////////
   proc LoadPackages {} {
@@ -66 +71 @@
   package require Tktable
   package require -exact BLT 2.4
+  package require autoscroll 1.1
   package require tclodbc
   if {[info exist ::env(USE_TOLTCL)]} {