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/sp.wid | |
| parent | 2ed8e5ab0516ba0a3d66fdc5612a4631fee5f6d5 (diff) | |
*** empty log message ***
svn path=/trunk/; revision=5973
Diffstat (limited to 'extensions/gui/ix/sp.wid')
| -rwxr-xr-x | extensions/gui/ix/sp.wid | 36 |
1 files changed, 0 insertions, 36 deletions
diff --git a/extensions/gui/ix/sp.wid b/extensions/gui/ix/sp.wid deleted file mode 100755 index 2b41902f..00000000 --- a/extensions/gui/ix/sp.wid +++ /dev/null @@ -1,36 +0,0 @@ -#console show
-namespace eval ::ix {
- variable _
- proc sp {p t} {
- variable _
- image create photo $t
- $p configure -image $t
- set _($t:loc) 0
- }
- proc spl {t args} {
- variable _
- incr _($t:loc)
- if {$_($t:loc) > 511} {set _($t:loc) 0}
- set draw {}
- foreach pixel $args {
- set pixel [expr int($pixel)]
- lappend draw [format #%02x%02x%02x $pixel $pixel $pixel]
- }
- $t put $draw -to $_($t:loc) 0
- }
- proc spd {t args} {
- variable _
- incr _($t:loc)
- if {$_($t:loc) > 511} {set _($t:loc) 0}
- $t put $args -to $_($t:loc) 0
- }
-}
-#> sp label
-#. @list ::ix::spl .| .#args
-#. @draw ::ix::spd .| .#args
-#. @clear .- delete 0 end
-#. @img eval ".| .#args"
-#. @cmd eval ".- .#args"
-bind .- <B1-Motion> {.| put #eeeeee -to %x %y}
-::ix::sp .- .|
-puts "setup"
\ No newline at end of file |