Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2840
Modified Files: Tag: desiredata desire.tk Log Message: small gui fixes
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.6 retrieving revision 1.1.2.600.2.7 diff -C2 -d -r1.1.2.600.2.6 -r1.1.2.600.2.7 *** desire.tk 3 Dec 2006 00:24:58 -0000 1.1.2.600.2.6 --- desire.tk 3 Dec 2006 05:35:49 -0000 1.1.2.600.2.7 *************** *** 599,605 **** } } ! bind . <Motion> { ! .debug.1 configure -text "widget = %W" ! } }
--- 599,603 ---- } } ! # bind . <Motion> {.debug.1 configure -text "widget = %W"} }
*************** *** 636,650 **** } .mbar.window configure -postcommand "$self fix_window_menu" ! foreach z {in out} { set f .controls.$z frame $f frame $f.1 -borderwidth 2 -relief groove canvas $f.1.mtr -width 100 -height 10 -bg #222222 ! $f.1.mtr create line 0 0 0 0 -width 24 \ ! -fill [switch $z {in {set 0 blue} out {set 0 green}}] -tags m canvas $f.1.clip -width 5 -height 10 -bg #222222 ! pack $f.1.mtr $f.1.clip -side left -pady 2 -padx 0 ! pack $f.1 -padx 6 -pady 9 ! place [label $f.2 -text [say $z]] -x 11 -y -4 pack $f -side left -pady 0 -padx 0 } --- 634,646 ---- } .mbar.window configure -postcommand "$self fix_window_menu" ! foreach {z fill} {in #0060ff out #00ff60} { set f .controls.$z frame $f frame $f.1 -borderwidth 2 -relief groove canvas $f.1.mtr -width 100 -height 10 -bg #222222 ! $f.1.mtr create line 0 0 0 0 -width 24 -fill $fill -tags m canvas $f.1.clip -width 5 -height 10 -bg #222222 ! pack $f.1.mtr $f.1.clip -side left ! pack [label $f.2 -text [say $z]:] $f.1 -side left -padx 4 pack $f -side left -pady 0 -padx 0 } *************** *** 660,666 **** pack .controls.switches -side right frame .debug ! pack [label .debug.1 -anchor w -text ""] -side left ! pack [entry .debug.3 -textvariable ::serial] -side right ! pack [label .debug.2 -text "serial: "] -side right pack .debug -side bottom -fill x . configure -menu .mbar --- 656,662 ---- pack .controls.switches -side right frame .debug ! # pack [label .debug.1 -anchor w -text ""] -side left ! pack [entry .controls.3 -textvariable ::serial -width 10] -side right ! pack [label .controls.2 -text "obj.serial: " -justify right] -side right pack .debug -side bottom -fill x . configure -menu .mbar *************** *** 2789,2793 **** $child deconstruct_to $clipboard } - puts [array names obj_index_sel -glob $self:*] foreach wire $@selection_wire { if {[array names obj_index_sel $self:[$wire from]] == ""} {continue} --- 2785,2788 ---- *************** *** 5507,5511 **** if {$cmdline(console) == 0} {return} frame .log ! text .log.1 -width 80 -height 24 -yscrollcommand ".log.2 set" -font $look(View:font) scrollbar .log.2 -command ".log.1 yview" .log.1 insert end "DesireData 0.39.A, Tcl $::tcl_version, Tk $::tk_version\n" --- 5502,5506 ---- if {$cmdline(console) == 0} {return} frame .log ! text .log.1 -width 72 -height 20 -yscrollcommand ".log.2 set" -font $look(View:font) scrollbar .log.2 -command ".log.1 yview" .log.1 insert end "DesireData 0.39.A, Tcl $::tcl_version, Tk $::tk_version\n" *************** *** 5629,5637 ****
set butt { ! {object obj {pd %W obj 0}} ! {message msg {pd %W msg 0}} ! {number floatatom {pd %W floatatom 0}} ! {symbol symbolatom {pd %W symbolatom 0}} ! {comment text {pd %W text 0}} {bang bng {pd %W bng 0}} {toggle tgl {pd %W toggle 0}} --- 5624,5632 ----
set butt { ! {object Object {pd %W obj 0}} ! {message Message {pd %W msg 0}} ! {number Number {pd %W floatatom 0}} ! {symbol Symbol {pd %W symbolatom 0}} ! {comment Comment {pd %W text 0}} {bang bng {pd %W bng 0}} {toggle tgl {pd %W toggle 0}} *************** *** 5677,5683 **** foreach e $butt { mset {icon name cmd} $e ! pack [button $bb.$name -image icon_$icon -border 1 \ -command "$@canvas editmode= 1; [regsub -all -- %W $cmd .$@canvas]"] -side left ! balloon $bb.$name [say $name] } pack [entry $bb.name -font {helvetica -12} -width 10 -border 0] -side right --- 5672,5678 ---- foreach e $butt { mset {icon name cmd} $e ! pack [button $bb._$name -image icon_$icon -border 1 \ -command "$@canvas editmode= 1; [regsub -all -- %W $cmd .$@canvas]"] -side left ! balloon $bb._$name [say $name] } pack [entry $bb.name -font {helvetica -12} -width 10 -border 0] -side right *************** *** 7416,7420 **** def Box deconstruct {} { global fields - puts " <> [array names fields $@pdclass]" if {[array names fields $@pdclass] == ""} { return [concat [list #X obj $@x1 $@y1] $@text] --- 7411,7414 ----