SF.net SVN: supercollider: [7529] trunk/build/SCClassLibrary/crucial

[cruxxial]

Revision: 7529
          http://svn.sourceforge.net/supercollider/?rev=7529&view=rev
Author:   cruxxial
Date:     2008-04-21 04:02:21 -0700 (Mon, 21 Apr 2008)

Log Message:
-----------
making Patch.set work as expected

Modified Paths:
--------------
    trunk/build/SCClassLibrary/crucial/Editors/NumberEditor.sc
    trunk/build/SCClassLibrary/crucial/Instr/Patch.sc

Modified: trunk/build/SCClassLibrary/crucial/Editors/NumberEditor.sc
===================================================================
--- trunk/build/SCClassLibrary/crucial/Editors/NumberEditor.sc 2008-04-20 19:57:55 UTC (rev 7528)
+++ trunk/build/SCClassLibrary/crucial/Editors/NumberEditor.sc 2008-04-21 11:02:21 UTC (rev 7529)
@@ -36,7 +36,7 @@
  })
  }
  set { arg val;
- this.activeValue_(val);
+ this.activeValue_(val).changed;
  }
  activeValue_ { arg val;
  this.value_(val);

Modified: trunk/build/SCClassLibrary/crucial/Instr/Patch.sc
===================================================================
--- trunk/build/SCClassLibrary/crucial/Instr/Patch.sc 2008-04-20 19:57:55 UTC (rev 7528)
+++ trunk/build/SCClassLibrary/crucial/Instr/Patch.sc 2008-04-21 11:02:21 UTC (rev 7529)
@@ -169,6 +169,12 @@
  }
  set { arg index, value;
  var argg;
+ if(index.isKindOf(Symbol),{
+ index = this.argNames.detectIndex({ |an| an == index });
+ if(index.isNil,{
+ Error("Key not found in argNames:"+index).throw
+ });
+ });
  argg = args[index];
  if(argg.respondsTo('set'),{
  argg.set(value);
@@ -176,6 +182,7 @@
  (argg.asString + "does not respond to set").warn;
  });
  }
+ argNames { ^this.instr.argNames }
  argNameAt { arg i; ^instr.argNameAt(i) }
  specAt { arg i; ^instr.specs.at(i) }
  // out


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
_______________________________________________
sc-dev mailing list
sc-dev@...
http://lists.create.ucsb.edu/mailman/listinfo/sc-dev