pd/src desire.tk,1.1.2.600.2.273,1.1.2.600.2.274 - Pd-cvs

4 Aug 2007


      Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25867
Modified Files:
      Tag: desiredata
    desire.tk 
Log Message:
finally solved the mset mystery; also fixed defaults for #X coords
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.273
retrieving revision 1.1.2.600.2.274
diff -C2 -d -r1.1.2.600.2.273 -r1.1.2.600.2.274
*** desire.tk	3 Aug 2007 16:03:18 -0000	1.1.2.600.2.273
--- desire.tk	4 Aug 2007 02:32:12 -0000	1.1.2.600.2.274
***************
*** 73,77 ****
# set several variables from elements of a list
! proc mset {vars list} {uplevel 1 "foreach {$vars} {$list} {break}"}
# add or substract two lists
--- 73,80 ----
# set several variables from elements of a list
! # WARNING: for @-variables, use [list @a @b @c] instead of {@a @b @c}
! proc mset {vars list} {
! 	uplevel 1 "foreach {$vars} {$list} {break}"
! }
# add or substract two lists
***************
*** 1473,1479 ****
              menu_openhtml $filename
          } else {
!             set help_directory [string range $filename 0 [expr [string last / $filename]-1]]
!             set basename       [string range $filename   [expr [string last / $filename]+1] end]
! 		netsend [list pd open [enquote $basename] [enquote $help_directory]]
          }
      }
--- 1476,1483 ----
              menu_openhtml $filename
          } else {
!             set i [string last / $filename]
!             set help_directory [string range $filename 0 [expr $i-1]]
!             set basename       [string range $filename   [expr $i+1] end]
!             netsend [list pd open [enquote $basename] [enquote $help_directory]]
          }
      }
***************
*** 1623,1631 ****
      # default #X coords line
      set @coordsx1 0
!     set @coordsy1 -1
      set @coordsx2 1
      set @coordsy2 1
!     set @pixwidth 85
!     set @pixheight 60
      set @xmargin 0
      set @ymargin 0
--- 1627,1635 ----
      # default #X coords line
      set @coordsx1 0
!     set @coordsy1 0
      set @coordsx2 1
      set @coordsy2 1
!     set @pixwidth 0
!     set @pixheight 0
      set @xmargin 0
      set @ymargin 0
***************
*** 1645,1649 ****
      1 {
    	set @subpatch 0
! 		mset {@fontsize} $args
    	set @name ""
    	set @mapped 1
--- 1649,1653 ----
      1 {
    	set @subpatch 0
! 		mset [list @fontsize] $args
    	set @name ""
    	set @mapped 1
***************
*** 1651,1656 ****
      2 {
    	  set @subpatch 1
! 		  set @name [lindex $args 0]
! 		  set @mapped [lindex $args 1]
    	  set @fontsize "what?"
      }
--- 1655,1659 ----
      2 {
    	  set @subpatch 1
! 		  mset [list @name @mapped] $args
    	  set @fontsize "what?"
      }
***************
*** 1673,1683 ****
    }
    coords {
! 	  #mset {@coordsx1 @coordsy1 @coordsx2 @coordsy2 @pixwidth @pixheight} [lrange $mess 2 7]
! 	  set @coordsx1 [lindex $mess 2]
! 	  set @coordsy1 [lindex $mess 3]
! 	  set @coordsx2 [lindex $mess 4]
! 	  set @coordsy2 [lindex $mess 5]
! 	  set @pixwidth [lindex $mess 6]
! 	  set @pixheight [lindex $mess 7]
      switch [llength $mess] {
        8  {set @gop 0}
--- 1676,1680 ----
    }
    coords {
! 	  mset [list @coordsx1 @coordsy1 @coordsx2 @coordsy2 @pixwidth @pixheight] [lrange $mess 2 7]
      switch [llength $mess] {
        8  {set @gop 0}