From 5689251b4df7456f43a0d3b357672bbd9fc3a40c Mon Sep 17 00:00:00 2001
From: carmen rocco <ix9@users.sourceforge.net>
Date: Tue, 19 Sep 2006 23:21:31 +0000
Subject: *** empty log message ***

svn path=/trunk/; revision=5973
---
 extensions/gui/ix/toxy/q.wid | 84 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 84 insertions(+)
 create mode 100755 extensions/gui/ix/toxy/q.wid

(limited to 'extensions/gui/ix/toxy/q.wid')

diff --git a/extensions/gui/ix/toxy/q.wid b/extensions/gui/ix/toxy/q.wid
new file mode 100755
index 00000000..8a971c6e
--- /dev/null
+++ b/extensions/gui/ix/toxy/q.wid
@@ -0,0 +1,84 @@
+#console show
+package require tkdnd
+namespace eval ::ix {
+    proc qo {p t e} {
+	set s [$p get $e]
+	if {$s ne ""} {
+	    pd [concat $t.rp _cb symbol [pdtk_enquote $s] \;]
+	} else {pd [concat $t.rp _cb bang \;]}
+    }
+    proc qi {p t i} {
+	$p selection clear 0 end
+	$p selection set $i
+	qo $p $t $i
+    }
+    proc q_go {p t d} {
+	array set direction "next 1 prev -1"
+	array set edge "next end prev 0"
+	set cs [$p curselection]
+	if {$cs eq "" && [$p index end] != 0} {
+	    set go 0 } else {
+		set go [expr $direction($d) + [lindex $cs $edge($d)]]}
+	if {$go >= [$p index end]} {set go 0}
+	if {$go < 0} {set go [expr [$p index end] - 1]}
+	qi $p $t $go
+    }
+}
+#> q listbox
+#. -selectmode extended -font {{Bitstream Vera Sans} 8} -exportselection 0
+#. -relief flat -borderwidth 0 -selectborderwidth 0 -bg "#ccffcc" -fg black
+#. @list foreach x [list .#args] {.- insert end $x}
+#. @add .- insert end [join [lrange [list .#args] 0 end] " "]
+#. @scroll .- yview scroll .#1 units
+#. @symbol .- insert end {.#1}
+#. @float ::ix::qi .- .| .#1
+#. @clear .- delete 0 end
+#. @next ::ix::q_go .- .| next
+#. @prev ::ix::q_go .- .| prev
+#. @cmd eval ".- .#args"
+bind .- <Enter> {focus .-}
+bind .- <Leave> {focus .^.c}
+bind .- <4> { pd [concat .|.rp _cb scroll -5 \;]}
+bind .- <5> { pd [concat .|.rp _cb scroll 5 \;]}
+bind .- <Shift-MouseWheel> {.- xview scroll [expr {- (%D / 120) * 4}] units}
+bind .- <ButtonPress-3> {}
+bind .- <Button3-Leave> {dnd drag %W}
+dnd bindtarget .- text/plain <Drop> {
+    foreach l [split %D "\n"] {.- insert end [regsub -- {^file:[/]+} $l "/"]}
+}
+dnd bindtarget .- text/uri-list <Drop> {foreach d %D {.- insert end [regsub -- {^file:[/]+} $d "/"]}}
+dnd bindsource .- text/uri-list {
+    set sel [.- curselection]
+    if {$sel ne ""} {
+	set dd {}
+	foreach el $sel {
+	    lappend dd [.- get $el]
+	}
+	return $dd
+    }
+}
+bind .- <<ListboxSelect>> {
+    set sel [.- curselection]
+    if {$sel ne ""} {
+	::ix::qo .- .| [lindex $sel end]
+#	foreach el $sel {
+#	    ::ix::qo .- .| $el
+#	}
+    }
+}
+bind .- <<delete>> {
+    set sel [.- curselection]
+    if {$sel ne ""} {
+	for {set i [expr [llength $sel] - 1]} {0 <= $i} {incr i -1} {
+	    .- delete [lindex $sel $i]
+	}
+    }
+}
+bind .- <<selectAll>> {
+    .- selection set 0 end
+}
+event add <<selectAll>> <KeyPress-a>
+event add <<delete>> <Delete>
+event add <<delete>> <BackSpace>
+event add <<delete>> <KeyPress-d>
+puts "q .- .|"
-- 
cgit v1.2.1