ꦫꦣꦺꦤ꧀ꦄꦤ꧀ꦠꦱꦺꦤ

PATH: usr / lib64 / tcl8.5 / Tix8.4.3

# -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
#
#	$Id: VResize.tcl,v 1.3 2004/03/28 02:44:57 hobbs Exp $
#
# VResize.tcl --
#
#	tixVResize:
#	Virtual base class for all classes that provide resize capability,
#	such as the resize handle and the MDI client window.
#
# Copyright (c) 1993-1999 Ioi Kim Lam.
# Copyright (c) 2000-2001 Tix Project Group.
# Copyright (c) 2004 ActiveState
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#

tixWidgetClass tixVResize {
    -virtual true
    -classname TixVResize
    -superclass tixPrimitive
    -method {
	drag dragend dragstart
    }
    -flag {
	-gridded -gridx -gridy -minwidth -minheight
    }
    -configspec {
 	{-gridded gridded Gridded false}
	{-gridx gridX Grid 10}
	{-gridy gridY Grid 10}
	{-minwidth minWidth MinWidth 0}
	{-minheight minHeight MinHeight 0}
   }
}

proc tixVResize:InitWidgetRec {w} {
    upvar #0 $w data

tixChainMethod $w InitWidgetRec

set data(movePending) 0
    set data(aborted) 0
    set data(depress) 0
}

#----------------------------------------------------------------------
#                    Public methods
#----------------------------------------------------------------------
# Start dragging a window
#
proc tixVResize:dragstart {w win depress rootx rooty wrect mrect} {
    upvar #0 $w data

set data(rootx) $rootx
    set data(rooty) $rooty

set data(mx) [lindex $mrect 0]
    set data(my) [lindex $mrect 1]
    set data(mw) [lindex $mrect 2]
    set data(mh) [lindex $mrect 3]

set data(fx) [lindex $wrect 0]
    set data(fy) [lindex $wrect 1]
    set data(fw) [lindex $wrect 2]
    set data(fh) [lindex $wrect 3]

set data(old_x) [lindex $wrect 0]
    set data(old_y) [lindex $wrect 1]
    set data(old_w) [lindex $wrect 2]
    set data(old_h) [lindex $wrect 3]

if {$data(mw) < 0} {
	set data(maxx)  [expr {$data(fx) + $data(old_w) - $data(-minwidth)}]
    } else {
	set data(maxx) 32000
    }
    if {$data(mh) < 0} {
	set data(maxy)  [expr {$data(fy) + $data(old_h) - $data(-minheight)}]
    } else {
	set data(maxy) 32000
    }

set data(aborted) 0

tixCallMethod $w ShowHintFrame
    tixCallMethod $w SetHintFrame $data(fx) $data(fy) $data(fw) $data(fh)

# Grab so that all button events are captured
    #
    grab $win
    focus $win

set data(depress) $depress
    if {$depress} {
	set data(oldRelief) [$win cget -relief]
	$win config -relief sunken
    }
}

proc tixVResize:drag {w rootx rooty} {
    upvar #0 $w data

if {$data(aborted) == 0} {
	set data(newrootx) $rootx
	set data(newrooty) $rooty

if {$data(movePending) == 0} {
	    set data(movePending) 1
	    after 2 tixVResize:DragCompressed $w
	}
    }
}

proc tixVResize:dragend {w win isAbort rootx rooty} {
    upvar #0 $w data

if {$data(aborted)} {
	if {$isAbort == 0} {
	    grab release $win
	}
	return
    }

# Just in case some draggings are not applied.
    #
    update

tixCallMethod $w HideHintFrame

if {$isAbort} {
	set data(aborted) 1
    } else {
	# Apply the changes
	#
	tixCallMethod $w UpdateSize $data(fx) $data(fy) $data(fw) $data(fh)

# Release the grab
	#
	grab release $win
    }

if {$data(depress)} {
	$win config -relief $data(oldRelief)
    }
}

#----------------------------------------------------------------------
#                    Internal methods
#----------------------------------------------------------------------

proc tixVResize:DragCompressed {w} {
    if {![winfo exists $w]} {
	return
    }

upvar #0 $w data

if {$data(aborted) == 1 || $data(movePending) == 0} {
	return
    }

set dx [expr {$data(newrootx) - $data(rootx)}]
    set dy [expr {$data(newrooty) - $data(rooty)}]

set data(fx) [expr {$data(old_x) + ($dx * $data(mx))}]
    set data(fy) [expr {$data(old_y) + ($dy * $data(my))}]
    set data(fw) [expr {$data(old_w) + ($dx * $data(mw))}]
    set data(fh) [expr {$data(old_h) + ($dy * $data(mh))}]

if {$data(fw) < $data(-minwidth)} {
	set data(fw) $data(-minwidth)
    }
    if {$data(fh) < $data(-minheight)} {
	set data(fh) $data(-minheight)
    }

if {$data(fx) > $data(maxx)} {
	set data(fx) $data(maxx)
    }
    if {$data(fy) > $data(maxy)} {
	set data(fy) $data(maxy)
    }

# If we need grid, set x,y,w,h to fit the grid
    #
    # *note* grid overrides minwidth and maxwidth ...
    #
    if {$data(-gridded)} {
	set data(fx) [expr {round(double($data(fx))/$data(-gridx)) * $data(-gridx)}]
	set data(fy) [expr {round(double($data(fy))/$data(-gridy)) * $data(-gridy)}]

set fx2  [expr {$data(fx) + $data(fw) - 2}]
	set fy2  [expr {$data(fy) + $data(fh) - 2}]

set fx2 [expr {round(double($fx2)/$data(-gridx)) * $data(-gridx)}]
	set fy2 [expr {round(double($fy2)/$data(-gridy)) * $data(-gridy)}]

set data(fw) [expr {$fx2 - $data(fx) + 1}]
	set data(fh) [expr {$fy2 - $data(fy) + 1}]
    }

tixCallMethod $w SetHintFrame $data(fx) $data(fy) $data(fw) $data(fh)

update idletasks

set data(movePending) 0
}

[-] StackWin.tcl [edit]
[-] VResize.tcl [edit]
[-] LabEntry.tcl [edit]
[-] fs.tcl [edit]
[-] EFileBox.tcl [edit]
[-] Meter.tcl [edit]
[-] StdBBox.tcl [edit]
[-] CObjView.tcl [edit]
[-] DefSchm.tcl [edit]
[-] BtnBox.tcl [edit]
[-] OldUtil.tcl [edit]
[-] WInfo.tcl [edit]
[+] ..
[-] Compat.tcl [edit]
[-] ComboBox.tcl [edit]
[-] SWidget.tcl [edit]
[-] LabFrame.tcl [edit]
[-] EFileDlg.tcl [edit]
[-] FileDlg.tcl [edit]
[-] Balloon.tcl [edit]
[-] SListBox.tcl [edit]
[+] pref
[-] README.txt [edit]
[-] PopMenu.tcl [edit]
[-] DirList.tcl [edit]
[-] Control.tcl [edit]
[-] FileBox.tcl [edit]
[-] StatBar.tcl [edit]
[-] pkgIndex.tcl [edit]
[-] StdShell.tcl [edit]
[-] Tix.tcl [edit]
[-] license.terms [edit]
[-] Select.tcl [edit]
[-] OptMenu.tcl [edit]
[-] DirDlg.tcl [edit]
[-] Shell.tcl [edit]
[-] STList.tcl [edit]
[+] bitmaps
[-] LabWidg.tcl [edit]
[-] DirBox.tcl [edit]
[-] VStack.tcl [edit]
[-] SHList.tcl [edit]
[-] Variable.tcl [edit]
[-] NoteBook.tcl [edit]
[-] ResizeH.tcl [edit]
[-] Grid.tcl [edit]
[-] SGrid.tcl [edit]
[-] SimpDlg.tcl [edit]
[-] VTree.tcl [edit]
[-] FileEnt.tcl [edit]
[-] Utils.tcl [edit]
[-] Event.tcl [edit]
[-] Tree.tcl [edit]
[-] HListDD.tcl [edit]
[-] MultView.tcl [edit]
[-] Init.tcl [edit]
[-] TList.tcl [edit]
[-] FloatEnt.tcl [edit]
[-] libTix.so [edit]
[-] DialogS.tcl [edit]
[-] DirTree.tcl [edit]
[-] DtlList.tcl [edit]
[-] Console.tcl [edit]
[-] PanedWin.tcl [edit]
[-] HList.tcl [edit]
[-] FileCbx.tcl [edit]
[-] ListNBk.tcl [edit]
[-] SWindow.tcl [edit]
[-] ChkList.tcl [edit]
[-] IconView.tcl [edit]
[-] SText.tcl [edit]
[-] DragDrop.tcl [edit]
[-] Primitiv.tcl [edit]
[+] html