[PD-cvs] externals/miXed/bin/pddp pddpserver.tcl, 1.1, 1.2 pkgIndex.tcl, 1.1, 1.2

[Krzysztof Czaja]

Update of /cvsroot/pure-data/externals/miXed/bin/pddp
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21923/bin/pddp

Modified Files:
	pddpserver.tcl pkgIndex.tcl 
Log Message:
toxy alpha19 and pddp alpha3 (see notes.txt for toxy and pddp)

Index: pddpserver.tcl
===================================================================
RCS file: /cvsroot/pure-data/externals/miXed/bin/pddp/pddpserver.tcl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** pddpserver.tcl	30 May 2005 09:29:25 -0000	1.1
--- pddpserver.tcl	13 Jun 2005 20:41:50 -0000	1.2
***************
*** 304,316 ****
  }
  
! # FIXME test if "path" has its patch window already open...
! proc ::pddp::srvPdHandler {sock path} {
      set dir [file dirname $path]
!     set tail [file tail $path]
!     if {[catch {pd [concat pd open $tail $dir \;]}]} {
  	srvError $sock 504
      } else {
  	srvError $sock 204
- 	# FIXME raise; focus (test on windows)
      }
  }
--- 304,333 ----
  }
  
! proc ::pddp::srvPdOpen {path} {
!     global menu_windowlist
!     set name [file tail $path]
      set dir [file dirname $path]
!     # FIXME white space in $name and $dir
!     # FIXME this is a fragile hack, there should be an "openx" message to pd...
!     foreach en $menu_windowlist {
! 	set wd [lindex $en 1]
! 	set nm [lindex $en 0]
! 	set dr [lindex [wm title $wd] end]
! 	if {[string equal $name $nm] && [string equal $dir $dr]} {
! 	    # FIXME test on windows
! 	    raise $wd
! 	    focus -force $wd
! 	    return
! 	}
!     }
!     pd [concat pd open $name $dir \;]
!     # FIXME raise and focus on windows?
! }
! 
! proc ::pddp::srvPdHandler {sock path} {
!     if {[catch {::pddp::srvPdOpen $path}]} {
  	srvError $sock 504
      } else {
  	srvError $sock 204
      }
  }

Index: pkgIndex.tcl
===================================================================
RCS file: /cvsroot/pure-data/externals/miXed/bin/pddp/pkgIndex.tcl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** pkgIndex.tcl	30 May 2005 09:29:25 -0000	1.1
--- pkgIndex.tcl	13 Jun 2005 20:41:51 -0000	1.2
***************
*** 6,10 ****
  }
  
! set version "0.1.0.2"
  
  package ifneeded pddp $version [list LoadPddp $version $dir]
--- 6,10 ----
  }
  
! set version "0.1.0.3"
  
  package ifneeded pddp $version [list LoadPddp $version $dir]