diff options
| author | carmen rocco <ix9@users.sourceforge.net> | 2006-09-19 23:21:31 +0000 |
|---|---|---|
| committer | carmen rocco <ix9@users.sourceforge.net> | 2006-09-19 23:21:31 +0000 |
| commit | 5689251b4df7456f43a0d3b357672bbd9fc3a40c (patch) | |
| tree | 98e8bd772edf971e3cda5bff8dece0436105ddc4 /extensions/gui/ix/q.wid | |
| parent | 2ed8e5ab0516ba0a3d66fdc5612a4631fee5f6d5 (diff) | |
*** empty log message ***
svn path=/trunk/; revision=5973
Diffstat (limited to 'extensions/gui/ix/q.wid')
| -rwxr-xr-x | extensions/gui/ix/q.wid | 84 |
1 files changed, 0 insertions, 84 deletions
diff --git a/extensions/gui/ix/q.wid b/extensions/gui/ix/q.wid deleted file mode 100755 index 8a971c6e..00000000 --- a/extensions/gui/ix/q.wid +++ /dev/null @@ -1,84 +0,0 @@ -#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 .- .|"
|