[sc-dev] SF.net SVN: supercollider:[8298] trunk/build/SCClassLibrary/Common/GUI/ ViewRedirect.sc

[jmfuo@xxxxxxxxxxxxxxxxxxxxx]

Revision: 8298
          http://supercollider.svn.sourceforge.net/supercollider/?rev=8298&view=rev
Author:   jmfuo
Date:     2008-12-25 23:53:55 +0000 (Thu, 25 Dec 2008)

Log Message:
-----------
FreqScope redirect class needed to override *new, because it does not have the standard parent bounds scheme

Modified Paths:
--------------
    trunk/build/SCClassLibrary/Common/GUI/ViewRedirect.sc

Modified: trunk/build/SCClassLibrary/Common/GUI/ViewRedirect.sc
===================================================================
--- trunk/build/SCClassLibrary/Common/GUI/ViewRedirect.sc	2008-12-25 22:50:28 UTC (rev 8297)
+++ trunk/build/SCClassLibrary/Common/GUI/ViewRedirect.sc	2008-12-25 23:53:55 UTC (rev 8298)
@@ -29,7 +29,14 @@
 Stethoscope : ViewRedirect { *key { ^\stethoscope }}
 ScopeView : ViewRedirect { *key { ^\scopeView }}
 FreqScopeView : ViewRedirect { *key { ^\freqScopeView }} // redirects to SCFreqScope
-FreqScope : ViewRedirect { *key { ^\freqScope }} // redirects to SCFreqScopeWindow
+
+FreqScope : ViewRedirect { // redirects to SCFreqScopeWindow
+	*new { arg width=512, height=300, busNum=0, scopeColor, bgColor;
+		^this.implClass.new(width, height, busNum, scopeColor)
+		}
+	*key { ^\freqScope }
+} 
+
 Dialog : ViewRedirect { *key { ^\dialog }}
 View : ViewRedirect { *key { ^\view }}
 


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: https://listarc.bham.ac.uk/marchives/sc-dev/
search: https://listarc.bham.ac.uk/lists/sc-dev/search/