0} { tixMoveResizeWindow $inputonly0 0 0 10000 $y1 } if {$x1 > 0} { tixMoveResizeWindow $inputonly1 0 0 $x1 10000 } tixMoveResizeWindow $inputonly2 0 $y2 10000 10000 tixMoveResizeWindow $inputonly3 $x2 0 10000 10000 for {set i 0} {$i < 4} {incr i} { tixMapWindow [set inputonly$i] tixRaiseWindow [set inputonly$i] } tixFlushX $w } else { tixMoveResizeWindow $inputonly0 0 0 10000 10000 tixMapWindow $inputonly0 tixRaiseWindow $inputonly0 } } else { tixUnmapWindow $inputonly0 tixUnmapWindow $inputonly1 tixUnmapWindow $inputonly2 tixUnmapWindow $inputonly3 if {$focuswin != "" && [winfo id $focuswin] != 0} { if {[info exists tixBusy($focuswin,oldcursor)]} { $focuswin config -cursor $tixBusy($focuswin,oldcursor) if {[info exists tixBusy($focuswin,oldcursor)]} { unset tixBusy($focuswin,oldcursor) } } } } } proc tixOptionName {w} { return [string range $w 1 end] } proc tixSetSilent {chooser value} { $chooser config -disablecallback true $chooser config -value $value $chooser config -disablecallback false } # This command is useful if you want to ingore the arguments # passed by the -command or -browsecmd options of the Tix widgets. E.g # # tixFileSelectDialog .c -command "puts foo; tixBreak" # # proc tixBreak {args} {} #---------------------------------------------------------------------- # tixDestroy -- deletes a Tix class object (not widget classes) #---------------------------------------------------------------------- proc tixDestroy {w} { upvar #0 $w data set destructor "" if {[info exists data(className)]} { catch { set destructor [tixGetMethod $w $data(className) Destructor] } } if {$destructor != ""} { $destructor $w } catch {rename $w ""} catch {unset data} return "" } proc tixPushGrab {args} { global tix_priv if {![info exists tix_priv(grab-list)]} { set tix_priv(grab-list) "" set tix_priv(grab-mode) "" set tix_priv(grab-nopush) "" } set len [llength $args] if {$len == 1} { set opt "" set w [lindex $args 0] } elseif {$len == 2} { set opt [lindex $args 0] set w [lindex $args 1] } else { error "wrong # of arguments: tixPushGrab ?-global? window" } # Not everyone will call tixPushGrab. If someone else has a grab already # save that one as well, so that we can restore that later # set last [lindex $tix_priv(grab-list) end] set current [grab current $w] if {$current ne "" && $current ne $last} { # Someone called "grab" directly # lappend tix_priv(grab-list) $current lappend tix_priv(grab-mode) [grab status $current] lappend tix_priv(grab-nopush) 1 } # Now push myself into the stack # lappend tix_priv(grab-list) $w lappend tix_priv(grab-mode) $opt lappend tix_priv(grab-nopush) 0 if {$opt eq "-global"} { grab -global $w } else { grab $w } } proc tixPopGrab {} { global tix_priv if {![info exists tix_priv(grab-list)]} { set tix_priv(grab-list) "" set tix_priv(grab-mode) "" set tix_priv(grab-nopush) "" } set len [llength $tix_priv(grab-list)] if {$len <= 0} { error "no window is grabbed by tixGrab" } set w [lindex $tix_priv(grab-list) end] grab release $w if {$len > 1} { set tix_priv(grab-list) [lrange $tix_priv(grab-list) 0 end-1] set tix_priv(grab-mode) [lrange $tix_priv(grab-mode) 0 end-1] set tix_priv(grab-nopush) [lrange $tix_priv(grab-nopush) 0 end-1] set w [lindex $tix_priv(grab-list) end] set m [lindex $tix_priv(grab-list) end] set np [lindex $tix_priv(grab-nopush) end] if {$np == 1} { # We have a grab set by "grab" # set len [llength $tix_priv(grab-list)] if {$len > 1} { set tix_priv(grab-list) [lrange $tix_priv(grab-list) 0 end-1] set tix_priv(grab-mode) [lrange $tix_priv(grab-mode) 0 end-1] set tix_priv(grab-nopush) \ [lrange $tix_priv(grab-nopush) 0 end-1] } else { set tix_priv(grab-list) "" set tix_priv(grab-mode) "" set tix_priv(grab-nopush) "" } } if {$m == "-global"} { grab -global $w } else { grab $w } } else { set tix_priv(grab-list) "" set tix_priv(grab-mode) "" set tix_priv(grab-nopush) "" } } proc tixWithinWindow {wid rootX rootY} { set wc [winfo containing $rootX $rootY] if {$wid eq $wc} { return 1 } # no see if it is an enclosing parent set rx1 [winfo rootx $wid] set ry1 [winfo rooty $wid] set rw [winfo width $wid] set rh [winfo height $wid] set rx2 [expr {$rx1+$rw}] set ry2 [expr {$ry1+$rh}] if {$rootX >= $rx1 && $rootX < $rx2 && $rootY >= $ry1 && $rootY < $ry2} { return 1 } else { return 0 } } proc tixWinWidth {w} { set W [winfo width $w] set bd [expr {[$w cget -bd] + [$w cget -highlightthickness]}] return [expr {$W - 2*$bd}] } proc tixWinHeight {w} { set H [winfo height $w] set bd [expr {[$w cget -bd] + [$w cget -highlightthickness]}] return [expr {$H - 2*$bd}] } # junk? # proc tixWinCmd {w} { return [winfo command $w] }