Gecko [ touzafair.com ]

Name	Size	Permission
bitmaps	[ DIR ]	drwxr-xr-x
html	[ DIR ]	drwxr-xr-x
pref	[ DIR ]	drwxr-xr-x
Balloon.tcl	12.97 KB	-rw-r--r--
BtnBox.tcl	2.61 KB	-rw-r--r--
CObjView.tcl	7.56 KB	-rw-r--r--
ChkList.tcl	4.97 KB	-rw-r--r--
ComboBox.tcl	35.42 KB	-rw-r--r--
Compat.tcl	870 B	-rw-r--r--
Console.tcl	14.95 KB	-rw-r--r--
Control.tcl	12.11 KB	-rw-r--r--
DefSchm.tcl	2.94 KB	-rw-r--r--
DialogS.tcl	4.2 KB	-rw-r--r--
DirBox.tcl	5.3 KB	-rw-r--r--
DirDlg.tcl	2.15 KB	-rw-r--r--
DirList.tcl	6.9 KB	-rw-r--r--
DirTree.tcl	8.76 KB	-rw-r--r--
DragDrop.tcl	3.93 KB	-rw-r--r--
DtlList.tcl	1002 B	-rw-r--r--
EFileBox.tcl	11.12 KB	-rw-r--r--
EFileDlg.tcl	1.68 KB	-rw-r--r--
Event.tcl	5.11 KB	-rw-r--r--
FileBox.tcl	14 KB	-rw-r--r--
FileCbx.tcl	2.42 KB	-rw-r--r--
FileDlg.tcl	2.13 KB	-rw-r--r--
FileEnt.tcl	7.15 KB	-rw-r--r--
FloatEnt.tcl	3.1 KB	-rw-r--r--
Grid.tcl	21.16 KB	-rw-r--r--
HList.tcl	17.72 KB	-rw-r--r--
HListDD.tcl	4.39 KB	-rw-r--r--
IconView.tcl	5.97 KB	-rw-r--r--
Init.tcl	6.05 KB	-rw-r--r--
LabEntry.tcl	2.09 KB	-rw-r--r--
LabFrame.tcl	1.15 KB	-rw-r--r--
LabWidg.tcl	3.86 KB	-rw-r--r--
ListNBk.tcl	3.5 KB	-rw-r--r--
Meter.tcl	3.04 KB	-rw-r--r--
MultView.tcl	3.62 KB	-rw-r--r--
NoteBook.tcl	6.02 KB	-rw-r--r--
OldUtil.tcl	2.98 KB	-rw-r--r--
OptMenu.tcl	9.17 KB	-rw-r--r--
PanedWin.tcl	27.68 KB	-rw-r--r--
PopMenu.tcl	5.37 KB	-rw-r--r--
Primitiv.tcl	10.28 KB	-rw-r--r--
README.txt	987 B	-rw-r--r--
ResizeH.tcl	12.94 KB	-rw-r--r--
SGrid.tcl	5.8 KB	-rw-r--r--
SHList.tcl	3.7 KB	-rw-r--r--
SListBox.tcl	6.97 KB	-rw-r--r--
STList.tcl	2.37 KB	-rw-r--r--
SText.tcl	3.09 KB	-rw-r--r--
SWidget.tcl	9.52 KB	-rw-r--r--
SWindow.tcl	6.75 KB	-rw-r--r--
Select.tcl	7.04 KB	-rw-r--r--
Shell.tcl	1.06 KB	-rw-r--r--
SimpDlg.tcl	1.13 KB	-rw-r--r--
StackWin.tcl	1.95 KB	-rw-r--r--
StatBar.tcl	1.31 KB	-rw-r--r--
StdBBox.tcl	1.62 KB	-rw-r--r--
StdShell.tcl	1.15 KB	-rw-r--r--
TList.tcl	17.59 KB	-rw-r--r--
Tix.tcl	9.51 KB	-rw-r--r--
Tree.tcl	4.57 KB	-rw-r--r--
Utils.tcl	10.54 KB	-rw-r--r--
VResize.tcl	4.95 KB	-rw-r--r--
VStack.tcl	9.42 KB	-rw-r--r--
VTree.tcl	4.31 KB	-rw-r--r--
Variable.tcl	2.5 KB	-rw-r--r--
WInfo.tcl	965 B	-rw-r--r--
fs.tcl	3.9 KB	-rw-r--r--
libTix.so	341.3 KB	-rwxr-xr-x
license.terms	2.76 KB	-rw-r--r--
pkgIndex.tcl	122 B	-rw-r--r--

Code Editor : VResize.tcl

# -*- 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
}

${this.title}

Code Editor : VResize.tcl