File Manager

X7ROOT File Manager

Current Path: /lib64/tcl8.6/Tix8.4.3

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

Editing: HListDD.tcl

# -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
#
#	$Id: HListDD.tcl,v 1.3 2001/12/09 05:04:02 idiscovery Exp $
#
# HListDD.tcl --
#
#	!!! PRE-ALPHA CODE, NOT USED, DON'T USE !!!
#
#	This file implements drag+drop for HList.
#
# 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.
#

#
# events
#
#

proc tixHListSingle:DragTimer {w ent} {
    case [tixHListSingle:GetState $w] {
	{1} {
	    # fire up
	}
    }
}

#----------------------------------------------------------------------
#
#		    Drag + Drop Bindings
#
#----------------------------------------------------------------------

#----------------------------------------#
	     #	          Sending Actions	      #
	     #----------------------------------------#

#----------------------------------------------------------------------
#  tixHListSingle:Send:WaitDrag --
#
#	Sender wait for dragging action
#----------------------------------------------------------------------
proc tixHListSingle:Send:WaitDrag {w x y} {
    global tixPriv

set ent [tixHListSingle:GetNearest $w $y]
    if {$ent != ""} {
	$w anchor set $ent
	$w select clear
	$w select set $ent
 
	set tixPriv(dd,$w:moved) 0
	set tixPriv(dd,$w:entry) $ent

#	set browsecmd [$w cget -browsecmd]
#	if {$browsecmd != "" && $ent != ""} {
#	    eval $browsecmd $ent
#	}
    }
}

proc tixHListSingle:Send:StartDrag {w x y} {
    global tixPriv
    set dd [tixGetDragDropContext $w]

if {![info exists tixPriv(dd,$w:entry)]} {
	return
    }
    if {$tixPriv(dd,$w:entry) == ""} {
	return
    }

if {$tixPriv(dd,$w:moved) == 0} {
	$w dragsite set $tixPriv(dd,$w:entry)
	set tixPriv(dd,$w:moved) 1
	$dd config -source $w -command [list tixHListSingle:Send:Cmd $w]
	$dd startdrag $X $Y
    } else {
	$dd drag $X $Y
    }
}

proc tixHListSingle:Send:DoneDrag {w x y} {
    global tixPriv
    global moved

if {![info exists tixPriv(dd,$w:entry)]} {
	return
    }
    if {$tixPriv(dd,$w:entry) == ""} {
	return
    }

if {$tixPriv(dd,$w:moved) == 1} {
	set dd [tixGetDragDropContext $w]
	$dd drop $X $Y
    }
    $w dragsite clear
    catch {unset tixPriv(dd,$w:moved)}
    catch {unset tixPriv(dd,$w:entry)}
}

proc tixHListSingle:Send:Cmd {w option args} {
    set dragCmd [$w cget -dragcmd]
    if {$dragCmd != ""} {
	return [eval $dragCmd $option $args]
    }

# Perform the default action
    #
    case "$option" {
	who {
	    return $w
	}
	types {
	    return {data text}
	}
	get {
	    global tixPriv
	    if {[lindex $args 0] == "text"} {
		if {$tixPriv(dd,$w:entry) != ""} {
		    return [$w entrycget $tixPriv(dd,$w:entry) -text]
		}
	    }
	    if {[lindex $args 0] == "data"} {
		if {$tixPriv(dd,$w:entry) != ""} {
		    return [$w entrycget $tixPriv(dd,$w:entry) -data]
		}
	    }
	}
    }
}

#----------------------------------------#
	     #	          Receiving Actions	      #
	     #----------------------------------------#
proc tixHListSingle:Rec:DragOver {w sender x y} {
    if {[$w cget -selectmode] != "dragdrop"} {
	return
    }

set ent [tixHListSingle:GetNearest $w $y]
    if {$ent != ""} {
	$w dropsite set $ent
    } else {
	$w dropsite clear
    }
}

proc tixHListSingle:Rec:DragIn {w sender x y} {
    if {[$w cget -selectmode] != "dragdrop"} {
	return
    }
    set ent [tixHListSingle:GetNearest $w $y]
    if {$ent != ""} {
	$w dropsite set $ent
    } else {
	$w dropsite clear
    }
}

proc tixHListSingle:Rec:DragOut {w sender x y} {
    if {[$w cget -selectmode] != "dragdrop"} {
	return
    }
    $w dropsite clear
}

proc tixHListSingle:Rec:Drop {w sender x y} {
    if {[$w cget -selectmode] != "dragdrop"} {
	return
    }
    $w dropsite clear

set ent [tixHListSingle:GetNearest $w $y]
    if {$ent != ""} {
	$w anchor set $ent
	$w select clear
	$w select set $ent
    }
 
    set dropCmd [$w cget -dropcmd]
    if {$dropCmd != ""} {
	eval $dropCmd $sender $x $y
	return
    }

#    set browsecmd [$w cget -browsecmd]
#    if {$browsecmd != "" && $ent != ""} {
#	eval $browsecmd [list $ent]
#    }
}

tixDropBind TixHListSingle <In>   "tixHListSingle:Rec:DragIn %W %S %x %y"
tixDropBind TixHListSingle <Over> "tixHListSingle:Rec:DragOver %W %S %x %y"
tixDropBind TixHListSingle <Out>  "tixHListSingle:Rec:DragOut %W %S %x %y"
tixDropBind TixHListSingle <Drop> "tixHListSingle:Rec:Drop %W %S %x %y"

X7ROOT File Manager

Editing: HListDD.tcl

Upload File

Create Folder