Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11962
Modified Files: Tag: devel_0_39 desire.tk Log Message: "About..." -> AboutDialog
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.267 retrieving revision 1.1.2.268 diff -C2 -d -r1.1.2.267 -r1.1.2.268 *** desire.tk 29 Jun 2006 17:42:24 -0000 1.1.2.267 --- desire.tk 1 Jul 2006 05:08:42 -0000 1.1.2.268 *************** *** 1049,1057 **** }
! def Client about {} { ! set dialog [menu_doc_open doc/1.manual 1.introduction.txt] ! wm title $dialog "About Pd" ! pack [$dialog.title -text [about_pd] -font {helvetica 24}] -side top ! }
def Client class_browser {} {Browser new_as browser browser 0 0 ""} --- 1049,1053 ---- }
! def Client about {} {AboutDialog new}
def Client class_browser {} {Browser new_as browser browser 0 0 ""} *************** *** 4780,4784 ****
class_new Dialog {Thing} ! #what's the difference between ok and apply? def* Dialog ok {} {$self apply; $self cancel} def Dialog cancel {} {} --- 4776,4780 ----
class_new Dialog {Thing} ! #what's the difference between ok and apply? def* Dialog ok {} {$self apply; $self cancel} def Dialog cancel {} {} *************** *** 5366,5369 **** --- 5362,5414 ---- }
+ class_new AboutDialog {Dialog} + + def AboutDialog init {} { + super + wm title .$self "About DesireData" + pack [label .$self.title -text "DesireData 0.39.A.0" -font {helvetica 24}] -side top + pack [label .$self.date -text "released on 2006.07.??"] -side top + pack [text .$self.text -yscrollcommand ".$self.scroll set"] -side left + pack [scrollbar .$self.scroll -command ".$self.text yview"] -side right -fill y + #12345678901234567890123456789012345678901234567890123456789012345678901 <- 72 chars + .$self.text insert 0.0 "\ + A real-time graphical programming environment for live interactive + computer music and video. PureData works on Linux, MacOSX/PPC, + MacOSX/Intel, Windows, Irix/SiliconGraphics, etc. DesireData is a + branch of PureData that has additional magic powers. + + PureData is copyrighted, but is free for you to use for any reasonable + purpose, according to the SIBSD license. DesireData's client section + also is free, according to the GPL license. + + (insert here: links to both licenses) + + (insert here: link to "reference documentation for Pd", that is, + chapter 1) + + Much more documentation and other resources live on: + http://puredata.org + + The Pd mailing list archive lives in: + http://iem.kug.ac.at/mailinglists/pd-list/ + + Credits: + DesireData server: Mathieu Bouchard + DesireData client: Mathieu Bouchard & Chun Lee + PureData: Miller Puckette feat. Thomas Musil, + Günther Geiger, Iohannes Zmölnig & others. + + Translations: + Français (French): ... + Català (Catalan): Núria Verges + Español (Spanish): Ramiro Cosentino + Deutsch (German): Max Neupert, Georg Holzmann, Thomas Grill + Norsk Bokmål (Norwegian): Gisle Frøysland + Português (Portuguese): Nuno Godinho + Italiano (Italian): Davide Morelli" + } + + def AboutDialog cancel {} {$self _delete} + #c proc updatesel {_ sel} { #c variable ""