Changeset 5245 for branches/uq/gui/scripts/balloon.tcl

Timestamp:

Apr 15, 2015, 8:06:07 AM (9 years ago)

Author:

mmh

Message:

if there is no space to place a bolloon to the right, put it above

File:

• branches/uq/gui/scripts/balloon.tcl (modified) (1 diff)

branches/uq/gui/scripts/balloon.tcl

@@ -179 +179 @@
             if {$px < 0} { set pw [expr {$pw+$px}]; set px 0 }
         }
-        right {
-            set sx $x
-            set sy [expr {$y-$sh/2}]
-            set px [expr {$x+$sw-3}]
-            set py [expr {$y-$ph/2}]
-
-            # make sure that the panel doesn't go off-screen
-            if {$py < 0} { set py 0 }
-            if {$py+$ph > $screenh} { set py [expr {$screenh-$ph}] }
-            if {$px+$pw > $screenw} { set pw [expr {$screenw-$px}] }
-        }
+        right -
         above {
-            set sx [expr {$x-$sw/2}]
-            set sy [expr {$y-$sh+3}]
-            set px [expr {$x-$pw/2}]
-            set py [expr {$sy-$ph+3}]
-
-            # make sure that the panel doesn't go off-screen
-            if {$px < 0} { set px 0 }
-            if {$px+$pw > $screenw} { set px [expr {$screenw-$pw}] }
-            if {$py < 0} { set ph [expr {$ph+$py}]; set py 0 }
+            if {$placement == "right"} {
+                set sx $x
+                set sy [expr {$y-$sh/2}]
+                set px [expr {$x+$sw-3}]
+                set py [expr {$y-$ph/2}]
+
+                # make sure that the panel doesn't go off-screen
+                if {$py < 0} { set py 0 }
+                if {$py+$ph > $screenh} { set py [expr {$screenh-$ph}] }
+                if {$px+$pw > $screenw} { set placement above }
+            }
+            if {$placement == "above"} {
+                set sx [expr {$x-$sw/2}]
+                set sy [expr {$y-$sh+3}]
+                set px [expr {$x-$pw/2}]
+                set py [expr {$sy-$ph+3}]
+
+                # make sure that the panel doesn't go off-screen
+                if {$px < 0} { set px 0 }
+                if {$px+$pw > $screenw} { set px [expr {$screenw-$pw}] }
+                if {$py < 0} { set ph [expr {$ph+$py}]; set py 0 }
+            }
         }
         below {