URL https://opencores.org/ocsvn/openmsp430/openmsp430/trunk

Subversion Repositories openmsp430

[/] [openmsp430/] [trunk/] [tools/] [lib/] [tcl-lib/] [combobox.tcl] - Diff between revs 87 and 214

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`