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: DragDrop.tcl

# -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
#
#	$Id: DragDrop.tcl,v 1.4 2001/12/09 05:04:02 idiscovery Exp $
#
# DragDrop.tcl ---
#
#	Implements drag+drop for Tix widgets.
#
# 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.
#

tixClass tixDragDropContext {
    -superclass {}
    -classname  TixDragDropContext
    -method {
	cget configure drag drop set startdrag
    }
    -flag {
	-command -source
    }
    -configspec {
	{-command ""}
	{-source ""}
    }
}

proc tixDragDropContext:Constructor {w} {
    upvar #0 $w data
}

#----------------------------------------------------------------------
# Private methods
#
#----------------------------------------------------------------------
proc tixDragDropContext:CallCommand {w target command X Y} {
    upvar #0 $w data
     
    set x [expr $X-[winfo rootx $target]]
    set y [expr $Y-[winfo rooty $target]]
    
    regsub %x $command $x command
    regsub %y $command $y command
    regsub %X $command $X command
    regsub %Y $command $Y command
    regsub %W $command $target command
    regsub %S $command [list $data(-command)] command

eval $command
}

proc tixDragDropContext:Send {w target event X Y} {
    upvar #0 $w data
    global tixDrop

foreach tag [tixDropBindTags $target] {
	if {[info exists tixDrop($tag,$event)]} {
	    tixDragDropContext:CallCommand $w $target \
		$tixDrop($tag,$event) $X $Y
	}
    }
}

#----------------------------------------------------------------------
# set --
#
#	Set the "small data" of the type supported by the source widget
#----------------------------------------------------------------------

proc tixDragDropContext:set {w type data} {

}

#----------------------------------------------------------------------
# startdrag --
#
#	Start the dragging action
#----------------------------------------------------------------------
proc tixDragDropContext:startdrag {w x y} {
    upvar #0 $w data

set data(oldTarget) ""

$data(-source) config -cursor "[tix getbitmap drop] black"
    tixDragDropContext:drag $w $x $y
}

#----------------------------------------------------------------------
# drag --
#
#	Continue the dragging action
#----------------------------------------------------------------------
proc tixDragDropContext:drag {w X Y} {
    upvar #0 $w data
    global tixDrop

set target [winfo containing -displayof $w $X $Y]
 
    if {$target != $data(oldTarget)} {
	if {$data(oldTarget) != ""} {
	    tixDragDropContext:Send $w $data(oldTarget) <Out> $X $Y 
	}
	if {$target != ""} {
	    tixDragDropContext:Send $w $target <In> $X $Y
	}
	set data(oldTarget) $target
    }
    if {$target != ""} {
	tixDragDropContext:Send $w $target <Over> $X $Y
    }
}

proc tixDragDropContext:drop {w X Y} {
    upvar #0 $w data
    global tixDrop

set target [winfo containing -displayof $w $X $Y]
    if {$target != ""} {
	tixDragDropContext:Send $w $target <Drop> $X $Y
    }

if {$data(-source) != ""} {
	$data(-source) config -cursor ""
    }
    set data(-source) ""
}

#----------------------------------------------------------------------
# Public Procedures -- This is NOT a member of the tixDragDropContext
#		       class!
#
# parameters :
#	$w:	who wants to start dragging? (currently ignored)
#----------------------------------------------------------------------
proc tixGetDragDropContext {w} {
    global tixDD
    if {[info exists tixDD]} {
	return tixDD
    }

return [tixDragDropContext tixDD]
}

proc tixDropBind {w event command} {
    global tixDrop

set tixDrop($w) 1
    set tixDrop($w,$event) $command
}

proc tixDropBindTags {w args} {
    global tixDropTags

if {$args == ""} {
	if {[info exists tixDropTags($w)]} {
	    return $tixDropTags($w)
	} else {
	    return [list [winfo class $w] $w]
	}
    } else {
	set tixDropTags($w) $args
    }
}

X7ROOT File Manager

Editing: DragDrop.tcl

Upload File

Create Folder