Changeset 5468 for branches/uq/gui/scripts/dropdown.tcl

Timestamp:

May 7, 2015, 2:17:22 PM (9 years ago)

Author:

mmh

Message:

Revert ScreenSize? not that it is fixed in Tk. Rewrite balloon code to get the best possible placement

File:

• branches/uq/gui/scripts/dropdown.tcl (modified) (2 diffs)

branches/uq/gui/scripts/dropdown.tcl

@@ -1 @@
-# -*- mode: tcl; indent-tabs-mode: nil -*-
+# -*- mode: tcl; indent-tabs-mode: nil -*- 
 # ----------------------------------------------------------------------
 #  COMPONENT: dropdown - base class for drop-down panels
@@ -84 +84 @@
     set w [winfo width $itk_component(hull)]
     set h [winfo height $itk_component(hull)]
-    # set sw [winfo screenwidth $itk_component(hull)]
-    # set sh [winfo screenheight $itk_component(hull)]
-    foreach {sw sh} [Rappture::ScreenSize] break
+    set sw [winfo screenwidth $itk_component(hull)]
+    set sh [winfo screenheight $itk_component(hull)]
 
     if {[regexp {^@([0-9]+),([0-9]+)$} $where match x y]} {