[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