Gecko [ www.corporacionhdm.com.pe ]

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

Rename

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