URL
https://opencores.org/ocsvn/openmsp430/openmsp430/trunk
Show entire file |
Details |
Blame |
View Log
Rev 87 |
Rev 214 |
Line 1057... |
Line 1057... |
# be offscreen to the left or right -- we want the illusion that it
|
# be offscreen to the left or right -- we want the illusion that it
|
# is part of the entry widget, so if part of the entry widget is off-
|
# is part of the entry widget, so if part of the entry widget is off-
|
# screen, so will the list. If you want to change the behavior,
|
# screen, so will the list. If you want to change the behavior,
|
# simply change the if statement... (and be sure to update this
|
# simply change the if statement... (and be sure to update this
|
# comment!)
|
# comment!)
|
set x [expr {$rootx + $vrootx}]
|
set x [expr {$rootx}]
|
if {0} {
|
if {0} {
|
set rightEdge [expr {$x + $width}]
|
set rightEdge [expr {$x + $width}]
|
if {$rightEdge > $screenWidth} {
|
if {$rightEdge > $screenWidth} {
|
set x [expr {$screenWidth - $width}]
|
set x [expr {$screenWidth - $width}]
|
}
|
}
|
Line 2184... |
Line 2184... |
}
|
}
|
}
|
}
|
|
|
# end of combobox.tcl
|
# end of combobox.tcl
|
|
|
|
|
No newline at end of file
|
No newline at end of file
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.