[PD-cvs] pd/src desire.tk,1.1.2.567,1.1.2.568

Mathieu Bouchard matju at users.sourceforge.net
Sun Nov 19 18:01:51 CET 2006


Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18353

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
some cosmetics


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.567
retrieving revision 1.1.2.568
diff -C2 -d -r1.1.2.567 -r1.1.2.568
*** desire.tk	19 Nov 2006 05:41:12 -0000	1.1.2.567
--- desire.tk	19 Nov 2006 17:01:47 -0000	1.1.2.568
***************
*** 350,355 ****
  #option add *backgroundPixmap /home/matju/brushed-dark.gif widgetDefault
  option add *font {Helvetica -12}
! option add *borderWidth 1
! foreach tkclass {Menu Button Checkbutton Radiobutton} {
  	option add *$tkclass*borderWidth 1
  }
--- 350,354 ----
  #option add *backgroundPixmap /home/matju/brushed-dark.gif widgetDefault
  option add *font {Helvetica -12}
! foreach tkclass {Menu Button Checkbutton Radiobutton Entry Text Spinbox Scrollbar Canvas} {
  	option add *$tkclass*borderWidth 1
  }
***************
*** 364,367 ****
--- 363,368 ----
  	#option add *$tkclass*selectBackground #60b0b0
  }
+ option add *__tk__messagebox*Canvas*borderWidth 0
+ 
  foreach tkclass {Listbox} {
  	option add *$tkclass*background #c4d8b0
***************
*** 658,667 ****
  
  proc poll_sock {} {
! 	global sock sock_lobby
  	if {[llength $sock]==0} {return}
  	while {1} {
  		set cmd [gets $sock]
  		if {[eof $sock]} {
! 			#tk_messageBox -message "connection ended by server. (crash?)" -type ok
  			set sock {}
  			return
--- 659,670 ----
  
  proc poll_sock {} {
! 	global sock sock_lobby cmdline
  	if {[llength $sock]==0} {return}
  	while {1} {
  		set cmd [gets $sock]
  		if {[eof $sock]} {
! 			if {!$cmdline(gdb)} {
! 				tk_messageBox -message "connection ended by server.\n(crash? try: desire -gdb)" -type ok
! 			}
  			set sock {}
  			return
***************
*** 2683,2687 ****
  
  def StatusBar draw {x y} {
!     if {$x == "??"} {post "StatusBar WTF?"; return}
      set c [$@canvas widget]
      set f [$self widget]
--- 2686,2690 ----
  
  def StatusBar draw {x y} {
!     if {$x == "??"} {return}
      set c [$@canvas widget]
      set f [$self widget]
***************
*** 5645,5650 ****
  
  after 0 {
! 	Listener new .tcl "Tcl Client" {tcl_eval}
! 	Listener new .pd  " Pd Server" { pd_eval}
  }
  
--- 5648,5653 ----
  
  after 0 {
! 	Listener new .tcl "Tcl Client" tcl_eval
! 	Listener new .pd  " Pd Server"  pd_eval
  }
  
***************
*** 6655,6660 ****
  }
  
  set pdrc_options {
! 	section section_audio
  	integer -r
  	devlist -audioindev|-soundindev
--- 6658,6664 ----
  }
  
+ # numbers in section are for the % of space taken by labels
  set pdrc_options {
! 	section {section_audio 50}
  	integer -r
  	devlist -audioindev|-soundindev
***************
*** 6670,6674 ****
  	void -32bit
  	
! 	section section_midi
  	void -nomidiin
  	void -nomidiout
--- 6674,6678 ----
  	void -32bit
  	
! 	section {section_midi 50}
  	void -nomidiin
  	void -nomidiout
***************
*** 6676,6687 ****
  	devlist -midioutdev
  	
! 	section section_externals
  	libraries -lib
  	
! 	section section_paths
  	folders -path
  	folders -helppath
  	
! 	section section_gui
  	void -nogui
  	string -guicmd
--- 6680,6691 ----
  	devlist -midioutdev
  	
! 	section {section_externals 20}
  	libraries -lib
  	
! 	section {section_paths 20}
  	folders -path
  	folders -helppath
  	
! 	section {section_gui 50}
  	void -nogui
  	string -guicmd
***************
*** 6690,6694 ****
  	integer -font
  	
! 	section section_other
  	files -open
  	void -verbose
--- 6694,6698 ----
  	integer -font
  	
! 	section {section_other 50}
  	files -open
  	void -verbose
***************
*** 6796,6800 ****
  		switch $type { void { set type toggle }}
  		switch $type {
! 			section {$@nb add_section [incr section] [say $name]}
  			choice  {$self add $f.main.$section \
  				     [list $name choice -choices [lrange $names 1 end]]}
--- 6800,6807 ----
  		switch $type { void { set type toggle }}
  		switch $type {
! 			section {
! 				set @label_width [expr 6*[lindex $names 1]] ;# % of 600 px
! 				$@nb add_section [incr section] [say $name]
! 			}
  			choice  {$self add $f.main.$section \
  				     [list $name choice -choices [lrange $names 1 end]]}
***************
*** 7257,7261 ****
  
  proc philtre {atoms} {
! 	regsub -all ";" $atoms "\\;" atoms
  	return $atoms
  }
--- 7264,7268 ----
  
  proc philtre {atoms} {
! 	regsub -all ";" [join $atoms " "] "\\;" atoms
  	return $atoms
  }





More information about the Pd-cvs mailing list