[PD-cvs] pd/src desire.tk,1.1.2.600.2.117,1.1.2.600.2.118

Mathieu Bouchard matju at users.sourceforge.net
Tue Dec 19 22:11:28 CET 2006


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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
server prefs: remove grey checkmarks (Tk 8.5 only); remove Gooey section


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.117
retrieving revision 1.1.2.600.2.118
diff -C2 -d -r1.1.2.600.2.117 -r1.1.2.600.2.118
*** desire.tk	19 Dec 2006 20:32:13 -0000	1.1.2.600.2.117
--- desire.tk	19 Dec 2006 21:11:24 -0000	1.1.2.600.2.118
***************
*** 768,772 ****
      wm title . "DesireData"
      catch {wm iconphoto . icon_pd}
!     post "DesireData 0.39.A, Tcl %s, Tk %s" $::tcl_patchLevel $::tk_patchLevel
  }
  
--- 768,772 ----
      wm title . "DesireData"
      catch {wm iconphoto . icon_pd}
!     post "DesireData 0.40, Tcl %s, Tk %s" $::tcl_patchLevel $::tk_patchLevel
  }
  
***************
*** 6572,6580 ****
  	folders -helppath
  	
- 	section {section_gui 50}
- 	void -nogui
- 	string -guicmd
- 	integer -font
- 	
  	section {section_other 50}
  	files -open
--- 6572,6575 ----
***************
*** 6691,6695 ****
  	set contents [concat [join $contents " "]] ;# concat casts to list type (faster) (?)
  	set i 0
! 	
  	while {$i < [llength $contents]} {
  		set op [lindex $contents $i]
--- 6686,6695 ----
  	set contents [concat [join $contents " "]] ;# concat casts to list type (faster) (?)
  	set i 0
! 
! 	# prevent Tk8.5 from showing grey checkmarks
! 	foreach name {-nodac -noadc -32bit -nomidiin -nomidiout -verbose -noloadbang -listdev -realtime} {
! 		set _($self:$name) 0
! 	}
! 
  	while {$i < [llength $contents]} {
  		set op [lindex $contents $i]





More information about the Pd-cvs mailing list