[PD-cvs] pd/src desire.tk,1.1.2.27,1.1.2.28

[Mathieu Bouchard]

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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
added the starting of a server process.
added statusbar (not a cmdline option anymore though)
-console now defaults to 1000
more cleanup of code.


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.27
retrieving revision 1.1.2.28
diff -C2 -d -r1.1.2.27 -r1.1.2.28
*** desire.tk	5 Sep 2005 21:59:15 -0000	1.1.2.27
--- desire.tk	6 Sep 2005 00:47:39 -0000	1.1.2.28
***************
*** 16,22 ****
  
  proc class_new {name body} {
- 
  	proc ${name}_new {} $body
- 
  }
  
--- 16,20 ----
***************
*** 51,54 ****
[...1245 lines suppressed...]
! 	pack [text $self.entry -width 40 -height 8] -side left -fill x -expand yes
! 	$self.entry insert 0.0 $text
  	$self.expander configure -image icon_minus -command "listener_unexpand $self"
  	#bind $self.entry <Alt-Return> $@command
***************
*** 3520,3526 ****
  	regsub "\n$" $text "" text
  	destroy $self.entry
! 	entry $self.entry -width 40
  	$self.entry insert 0 $text
- 	pack $self.entry -side left -fill x -expand yes
  	$self.expander configure -image icon_plus -command "listener_expand $self"
  	bind $self.entry <Up>   "listener_up   $self"
--- 3400,3405 ----
  	regsub "\n$" $text "" text
  	destroy $self.entry
! 	pack [entry $self.entry -width 40] -side left -fill x -expand yes
  	$self.entry insert 0 $text
  	$self.expander configure -image icon_plus -command "listener_expand $self"
  	bind $self.entry <Up>   "listener_up   $self"