#acupoftea - mail.ontime-ae.com

System	:	Linux server1.ontime-gulf.com 4.18.0-553.5.1.el8_10.x86_64 #1 SMP Wed Jun 5 09:12:13 EDT 2024 x86_64
Software	:	Apache
Server	:	162.0.230.206
Domains	:	40 Domain
Permission	:	[ drwxr-xr-x ]
	:	/ lib64 / tcl8.6 / Tix8.4.3 /

216.73.216.6

Home

File 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
}

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

~ ACUPOFTEA - mail.ontime-ae.com