[PD-cvs] pd/src desire.tk,1.1.2.267,1.1.2.268
Mathieu Bouchard
matju at users.sourceforge.net
Sat Jul 1 07:08:44 CEST 2006
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 ""
More information about the Pd-cvs
mailing list