pd/src desire.tk,1.1.2.600.2.117,1.1.2.600.2.118 - Pd-cvs

19 Dec 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]