SF.net SVN: supercollider:[9084] trunk/build

View: New views

1 Messages — Rating Filter: Alert me

SF.net SVN: supercollider:[9084] trunk/build

by mullmusik :: Rate this Message:

Reply to Author | View Threaded | Show Only this Message

Revision: 9084
http://supercollider.svn.sourceforge.net/supercollider/?rev=9084&view=rev
Author: mullmusik
Date: 2009-04-20 18:22:52 +0000 (Mon, 20 Apr 2009)

Log Message:
-----------
switch to have openCodeFile redirect to implementation class for ViewRedirect classes

Modified Paths:
--------------
trunk/build/Help/GUI/GUI-Tools/ViewRedirect.html
trunk/build/SCClassLibrary/Common/Core/Kernel.sc
trunk/build/SCClassLibrary/Common/Core/Object.sc
trunk/build/SCClassLibrary/Common/GUI/ViewRedirect.sc

Modified: trunk/build/Help/GUI/GUI-Tools/ViewRedirect.html
===================================================================
--- trunk/build/Help/GUI/GUI-Tools/ViewRedirect.html 2009-04-20 14:26:53 UTC (rev 9083)
+++ trunk/build/Help/GUI/GUI-Tools/ViewRedirect.html 2009-04-20 18:22:52 UTC (rev 9084)
@@ -9,25 +9,29 @@
<style type="text/css">
p.p1 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica}
p.p2 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica; min-height: 14.0px}
-p.p3 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica; color: #314bd1; min-height: 14.0px}
-p.p4 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica; color: #1638e6; min-height: 14.0px}
+p.p3 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica; color: #2f4fcf; min-height: 14.0px}
+p.p4 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica; color: #0c3ee4; min-height: 14.0px}
p.p5 {margin: 0.0px 0.0px 0.0px 0.0px; font: 9.0px Monaco; min-height: 12.0px}
p.p6 {margin: 0.0px 0.0px 0.0px 57.0px; text-indent: -57.0px; font: 9.0px Monaco}
p.p7 {margin: 0.0px 0.0px 0.0px 57.0px; text-indent: -57.0px; font: 9.0px Monaco; min-height: 12.0px}
-p.p8 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica; color: #2641c9; min-height: 14.0px}
+p.p8 {margin: 0.0px 0.0px 0.0px 57.0px; text-indent: -57.0px; font: 14.0px Helvetica}
+p.p9 {margin: 0.0px 0.0px 0.0px 57.0px; text-indent: -57.0px; font: 12.0px Helvetica; min-height: 14.0px}
+p.p10 {margin: 0.0px 0.0px 0.0px 57.0px; text-indent: -57.0px; font: 12.0px Helvetica}
+p.p11 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica; color: #2345c7; min-height: 14.0px}
span.s1 {font: 18.0px Helvetica}
-span.s2 {color: #314bd1}
-span.s3 {text-decoration: underline ; color: #1e3bd0}
-span.s4 {color: #2946d8}
-span.s5 {text-decoration: underline ; color: #0020f6}
-span.s6 {text-decoration: underline ; color: #1534d7}
-span.s7 {color: #1638e6}
-span.s8 {color: #3850cb}
+span.s2 {color: #2f4fcf}
+span.s3 {text-decoration: underline ; color: #1940ce}
+span.s4 {color: #264ad6}
+span.s5 {text-decoration: underline ; color: #002cf4}
+span.s6 {text-decoration: underline ; color: #0b3ad5}
+span.s7 {color: #0c3ee4}
+span.s8 {color: #3753c9}
+span.s9 {color: #0000ff}
span.Apple-tab-span {white-space:pre}
</style>
</head>
<body>
-ViewRedirect an abstract super class for gui redirection classes 
+ViewRedirect an abstract super class for gui redirection classes 
 
Inherits from: <a href="../../Core/Object.html">Object</a>
 
@@ -40,11 +44,16 @@
 
Each subclass uses a *key class method to return a key appropriate to the desired GUI redirect method:
 
-MyGUIClass : ViewRedirect { *key { ^\myGUIClass }}
+MyGUIClass : ViewRedirect { *key { ^\myGUIClass }}
 
+Accessing Instance and Class Variables
+ 
+ *redirectQueries_(bool)
+ *redirectQueries
+ 
+ bool is a <a href="../../Core/Boolean.html">Boolean</a> indicating whether or not openClassFile queries will redirect to the active implementation class (Cocoa or Swing). The default is false.
 
+ 
 
- 
- 
</body>
</html>

Modified: trunk/build/SCClassLibrary/Common/Core/Kernel.sc
===================================================================
--- trunk/build/SCClassLibrary/Common/Core/Kernel.sc 2009-04-20 14:26:53 UTC (rev 9083)
+++ trunk/build/SCClassLibrary/Common/Core/Kernel.sc 2009-04-20 18:22:52 UTC (rev 9084)
@@ -222,7 +222,7 @@
});
});
},{
- class = string.asSymbol.asClass;
+ class = string.asSymbol.asClass.classRedirect;
if (class.notNil, {
class.filenameSymbol.asString.openTextFile(class.charPos, -1);
});
@@ -242,7 +242,7 @@
});
});
},{
- class = string.asSymbol.asClass;
+ class = string.asSymbol.asClass.classRedirect;
if (class.notNil, {
class.filenameSymbol.asString.openWinTextFile(class.charPos, -1);
});

Modified: trunk/build/SCClassLibrary/Common/Core/Object.sc
===================================================================
--- trunk/build/SCClassLibrary/Common/Core/Object.sc 2009-04-20 14:26:53 UTC (rev 9083)
+++ trunk/build/SCClassLibrary/Common/Core/Object.sc 2009-04-20 18:22:52 UTC (rev 9084)
@@ -816,4 +816,7 @@
// support for Gen
genNext { ^nil }
genCurrent { ^this }
+
+ // support for ViewRedirect
+ *classRedirect { ^this }
}

Modified: trunk/build/SCClassLibrary/Common/GUI/ViewRedirect.sc
===================================================================
--- trunk/build/SCClassLibrary/Common/GUI/ViewRedirect.sc 2009-04-20 14:26:53 UTC (rev 9083)
+++ trunk/build/SCClassLibrary/Common/GUI/ViewRedirect.sc 2009-04-20 18:22:52 UTC (rev 9084)
@@ -1,4 +1,7 @@
ViewRedirect { // Abstract class
+
+ classvar <>redirectQueries = false;
+
*implClass {
^GUI.scheme.perform(this.key)
}
@@ -20,6 +23,7 @@
DoesNotUnderstandError(this, selector, args).throw;
}
}
+ *classRedirect { ^redirectQueries.if({this.implClass ? this}, this)}
}

Window : ViewRedirect {

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

_______________________________________________
sc-dev mailing list

info (subscription, etc.): http://www.beast.bham.ac.uk/research/sc_mailing_lists.shtml
archive: http://www.listarc.bham.ac.uk/marchives/sc-dev/
search: http://www.listarc.bham.ac.uk/lists/sc-dev/search/