#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 CObjView.tcl

# -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
#
#	$Id: CObjView.tcl,v 1.3 2001/12/09 05:04:02 idiscovery Exp $
#
# CObjView.tcl --
#
#	This file implements the Canvas Object View widget. This is a base
#	class of IconView. It implements:

#	(1) Automatic placement/adjustment of the scrollbars according
#	to the canvas objects inside the canvas subwidget. The
#	scrollbars are adjusted so that the canvas is just large
#	enough to see all the objects.
#
#	(2) D+D bindings of the objects (%% not implemented)
#
#	(3) Keyboard traversal of the objects (%% not implemented). By the
#	virtual method :SelectObject.
#
#
# Copyright (c) 1993-1999 Ioi Kim Lam.
# Copyright (c) 2000-2001 Tix Project Group.
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#

tixWidgetClass tixCObjView {
    -classname TixCObjView
    -superclass tixScrolledWidget
    -method {
	adjustscrollregion
    }
    -flag {
	-xscrollincrement -yscrollincrement
    }
    -static {
    }
    -configspec {
	{-xscrollincrement xScrollIncrement ScrollIncrement 10}
	{-yscrollincrement yScrollIncrement ScrollIncrement 10}
    }
    -default {
	{.scrollbar			auto}
	{*borderWidth			1}
	{*canvas.background		#c3c3c3}
	{*canvas.highlightBackground	#d9d9d9}
	{*canvas.relief			sunken}
	{*canvas.takeFocus		1}
	{*Scrollbar.takeFocus		0}
    }
    -forcecall {
	-scrollbar
    }
}

proc tixCObjView:ConstructWidget {w} {
    upvar #0 $w data

tixChainMethod $w ConstructWidget

set data(w:canvas) \
	[canvas $w.canvas]
    set data(w:hsb) \
	[scrollbar $w.hsb -orient horizontal]
    set data(w:vsb) \
	[scrollbar $w.vsb -orient vertical]

set data(pw:client) $data(w:canvas)

set data(xorig) 0
    set data(yorig) 0

set data(sx1) 0
    set data(sy1) 0
    set data(sx2) 0
    set data(sy2) 0
}

proc tixCObjView:SetBindings {w} {
    upvar #0 $w data

tixChainMethod $w SetBindings

# %% scan/drag of canvas??
#
#    $data(w:canvas) config \
#	-xscrollcommand "tixCObjView:XScroll $w"\
#	-yscrollcommand "tixCObjView:YScroll $w"

$data(w:hsb) config -command "tixCObjView:UserScroll $w x"
    $data(w:vsb) config -command "tixCObjView:UserScroll $w y"
}

#----------------------------------------------------------------------
#
#		option configs
#----------------------------------------------------------------------
proc tixCObjView:config-takefocus {w value} {
    upvar #0 $w data
  
    $data(w:canvas) config -takefocus $value
}

#----------------------------------------------------------------------
#
#		Widget commands
#----------------------------------------------------------------------
proc tixCObjView:adjustscrollregion {w} {
    upvar #0 $w data

set cW [tixWinWidth  $data(w:canvas)]
    set cH [tixWinHeight $data(w:canvas)]

tixCObjView:GetScrollRegion $w $cW $cH 1 1
}

#----------------------------------------------------------------------
#
#		Private Methods
#----------------------------------------------------------------------

proc tixCObjView:GeometryInfo {w cW cH} {
    upvar #0 $w data

set bd \
	[expr [$data(w:canvas) cget -bd] + [$data(w:canvas) cget -highlightthickness]]

incr cW -[expr {2*$bd}]
    incr cH -[expr {2*$bd}]

return [tixCObjView:GetScrollRegion $w $cW $cH 0 0]
}

proc tixCObjView:PlaceWindow {w} {
    upvar #0 $w data

set cW [tixWinWidth  $data(w:canvas)]
    set cH [tixWinHeight $data(w:canvas)]

tixCObjView:GetScrollRegion $w $cW $cH 1 0

tixChainMethod $w PlaceWindow
}

proc tixCObjView:GetScrollRegion {w cW cH setReg callConfig} {
    upvar #0 $w data

set x1max $data(xorig)
    set y1max $data(yorig)

set x2min [expr {$x1max + $cW - 1}]
    set y2min [expr {$y1max + $cH - 1}]
 
    set bbox [$data(w:canvas) bbox all]

if {$bbox == ""} {
	set bbox {0 0 1 1}
    }

set x1 [lindex $bbox 0]
    set y1 [lindex $bbox 1]
    set x2 [lindex $bbox 2]
    set y2 [lindex $bbox 3]

set bd \
	[expr [$data(w:canvas) cget -bd] + [$data(w:canvas) cget -highlightthickness]]

incr x1 -$bd
    incr y1 -$bd
    incr x2 -$bd
    incr y2 -$bd

if {$x1 > $x1max} {
	set x1 $x1max
    }
    if {$y1 > $y1max} {
	set y1 $y1max
    }
    if {$x2 < $x2min} {
	set x2 $x2min
    }
    if {$y2 < $y2min} {
	set y2 $y2min
    }

set data(sx1) $x1
    set data(sy1) $y1
    set data(sx2) $x2
    set data(sy2) $y2

set sW [expr {$x2 - $x1 + 1}]
    set sH [expr {$y2 - $y1 + 1}]

#    puts "sregion = {$x1 $y1 $x2 $y2}; sW=$sW; cW=$cW"

if {$sW > $cW} {
	set hsbSpec {0.5 1}
    } else {
	set hsbSpec {0 1}
    }
    if {$sH > $cH} {
	set vsbSpec {0.5 1}
    } else {
	set vsbSpec {0 1}
    }

if $setReg {
	tixCObjView:SetScrollBars $w $cW $cH $sW $sH
    }
    if $callConfig {
	tixWidgetDoWhenIdle tixScrolledWidget:Configure $w
    }

return [list $hsbSpec $vsbSpec]
}

#xF = xFirst
#
proc tixCObjView:SetScrollBars {w cW cH sW sH} {
    upvar #0 $w data

#    puts "$data(xorig) <--> $data(sx1)"

set xF [expr ($data(xorig).0-$data(sx1).0)/$sW.0]
    set xL [expr $cW.0/$sW.0 + $xF]

set yF [expr ($data(yorig).0-$data(sy1).0)/$sH.0]
    set yL [expr $cH.0/$sH.0 + $yF]

#    puts "$xF $xL : $yF $yL"
    $data(w:hsb) set $xF $xL    
    $data(w:vsb) set $yF $yL    
}

proc tixCObjView:UserScroll {w dir type args} {
    upvar #0 $w data

$data(w:canvas) config -xscrollincrement 1 -yscrollincrement 1

case $dir {
	x {
	    set n $data(xorig)
	    set orig $data(xorig)
	    set s1 $data(sx1)
	    set total [expr {$data(sx2)-$data(sx1)}]
	    set page  [tixWinWidth $data(w:canvas)]
	    set min $data(sx1)
	    set max [expr {$data(sx1)+$total-$page}]
	    set inc $data(-xscrollincrement)
	}
	y {
	    set n $data(yorig)
	    set orig $data(yorig)
	    set s1 $data(sy1)
	    set total [expr {$data(sy2)-$data(sy1)}]
	    set page  [tixWinHeight $data(w:canvas)]
	    set min $data(sy1)
	    set max [expr {$data(sy1)+$total-$page}]
	    set inc $data(-yscrollincrement)
	}
    }
	    
    case $type {
	scroll {
	    set amt  [lindex $args 0] 
	    set unit [lindex $args 1]

case $unit {
		units {
		    incr n [expr int($inc)*$amt]
		}
		pages {
		    incr n [expr {$page*$amt}]
		}
	    }
	}
	moveto {
	    set first [lindex $args 0] 
	    set n [expr round($first*$total)+$s1]
	}
    }

if {$n < $min} {
	set n $min
    }
    if {$n > $max} {
	set n $max
    }

#    puts "n=$n min=$min max=$max"

case $dir {
	x {
	    $data(w:canvas) xview scroll [expr {$n-$orig}] units
	    set data(xorig) $n
	}
	y {
	    $data(w:canvas) yview scroll [expr {$n-$orig}] units
	    set data(yorig) $n
	}
    }

set cW [tixWinWidth $data(w:canvas)]
    set cH [tixWinHeight $data(w:canvas)]
    set sW [expr {$data(sx2)-$data(sx1)+1}]
    set sH [expr {$data(sy2)-$data(sy1)+1}]

tixCObjView:SetScrollBars $w $cW $cH $sW $sH
}

# Junk
#
#
proc tixCObjView:XScroll {w first last} {
    upvar #0 $w data

set sc [$data(w:canvas) cget -scrollregion]
    if {$sc == ""} {
	set x1 1
	set x2 [tixWinWidth $data(w:canvas)]
    } else {
	set x1 [lindex $sc 0]
	set x2 [lindex $sc 2]
    }
    
    set W [expr {$x2 - $x1}]
    if {$W < 1} {
	set W 1
    }

$data(w:hsb) set $first $last

#    tixWidgetDoWhenIdle tixScrolledWidget:Configure $w
}

# Junk
#
proc tixCObjView:YScroll {w first last} {
    upvar #0 $w data

set sc [$data(w:canvas) cget -scrollregion]

if {$sc == ""} {
	set y1 1
	set y2 [tixWinHeight $data(w:canvas)]
    } else {
	set y1 [lindex $sc 1]
	set y2 [lindex $sc 3]
    }
    
    set H [expr {$y2 - $y1}]
    if {$H < 1} {
	set H 1
    }

$data(w:vsb) set $first $last

#   tixWidgetDoWhenIdle tixScrolledWidget:Configure $w
}

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