[PD-cvs] pd/src desire.tk,1.1.2.600.2.6,1.1.2.600.2.7

[Mathieu Bouchard]

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 ----