SCClassLibrary/Common/GUI/ViewRedirect.sc

   1 GuiRedirect { // Abstract
   2         classvar <>redirectQueries = false;
   3
   4         *implScheme{
   5                 ^GUI.scheme
   6         }
   7
   8         *implClass {
   9                 var scheme, key, target;
  10                 scheme = GUI.scheme;
  11                 if (scheme.isNil) {
  12                         Error("No GUI scheme active.", this).throw
  13                 };
  14                 key = this.key;
  15                 target = key !? {GUI.scheme.tryPerform(key)};
  16                 if (target.isNil) {
  17                         Error("No redirection for" + this.name + "available in the active GUI scheme:" +
  18                                 scheme.id ++ ".", this).throw;
  19                 }
  20                 ^target;
  21         }
  22
  23         *classRedirect { ^redirectQueries.if({this.implClass ? this}, this)}
  24
  25         *key { ^nil }
  26
  27         *new { arg ...args;
  28                 ^this.implClass.new(*args);
  29         }
  30
  31         *doesNotUnderstand{|selector ... args|
  32                 var impl;
  33                 ^this.implClass.perform(selector, *args);
  34         }
  35
  36         *browse { ^ClassBrowser( this.key !? {this.implClass} ? this ) }
  37 }
  38
  39 ViewRedirect : GuiRedirect { // Abstract class
  40         *new { arg parent, bounds;
  41                 ^super.new(parent, bounds);
  42         }
  43 }
  44
  45 Window : GuiRedirect {
  46         *key { ^\window }
  47         *new { arg name = "panel", bounds, resizable = true, border = true, server, scroll = false;
  48                 ^super.new(name, bounds, resizable, border, server, scroll)
  49         }
  50 }
  51
  52 CompositeView : ViewRedirect { *key { ^\compositeView }}
  53 ScrollView : ViewRedirect { *key { ^\scrollView }}
  54 HLayoutView : ViewRedirect { *key { ^\hLayoutView }}
  55 VLayoutView : ViewRedirect { *key { ^\vLayoutView }}
  56
  57 Slider : ViewRedirect { *key { ^\slider }}
  58
  59 Pen : GuiRedirect { *key { ^\pen }}
  60
  61 Stethoscope : GuiRedirect {
  62         *new {  arg server, numChannels = 2, index, bufsize = 4096, zoom, rate, view, bufnum;
  63                 index = index.asControlInput;
  64                 ^super.new(server, numChannels, index, bufsize, zoom, rate, view, bufnum)
  65         }
  66         *key { ^\stethoscope }
  67
  68 }
  69 ScopeView : ViewRedirect { *key { ^\scopeView }}
  70 FreqScopeView : ViewRedirect { *key { ^\freqScopeView }} // redirects to FreqScope
  71
  72 FreqScope : GuiRedirect { // redirects to FreqScopeWindow
  73         *new { arg width=512, height=300, busNum=0, scopeColor, bgColor;
  74                 busNum = busNum.asControlInput;
  75                 ^super.new(width, height, busNum, scopeColor)
  76         }
  77         *key { ^\freqScope }
  78 }
  79
  80 Dialog : GuiRedirect {
  81         *key { ^\dialog }
  82         *openPanel { arg okFunc, cancelFunc, multipleSelection=false;
  83                 ^super.openPanel(okFunc, cancelFunc, multipleSelection)
  84         }
  85         *savePanel { arg okFunc, cancelFunc;
  86                 ^super.savePanel(okFunc, cancelFunc)
  87         }
  88 }
  89
  90 View : ViewRedirect { *key { ^\view }}
  91
  92 RangeSlider : ViewRedirect { *key { ^\rangeSlider }}
  93 Slider2D : ViewRedirect { *key { ^\slider2D }}
  94 TabletSlider2D : ViewRedirect { *key { ^\tabletSlider2D }}
  95 Button : ViewRedirect { *key { ^\button }}
  96
  97 PopUpMenu : ViewRedirect { *key { ^\popUpMenu }}
  98 StaticText : ViewRedirect { *key { ^\staticText }}
  99 NumberBox : ViewRedirect { *key { ^\numberBox }}
 100 ListView : ViewRedirect { *key { ^\listView }}
 101
 102 DragSource : ViewRedirect { *key { ^\dragSource }}
 103 DragSink : ViewRedirect { *key { ^\dragSink }}
 104 DragBoth : ViewRedirect { *key { ^\dragBoth }}
 105
 106 UserView : ViewRedirect { *key { ^\userView }}
 107 MultiSliderView : ViewRedirect { *key { ^\multiSliderView }}
 108 EnvelopeView : ViewRedirect { *key { ^\envelopeView }}
 109
 110 TextField : ViewRedirect  { *key { ^\textField }}
 111
 112
 113 TabletView : ViewRedirect { *key { ^\tabletView }}
 114 SoundFileView : ViewRedirect { *key { ^\soundFileView }}
 115 MovieView : ViewRedirect { *key { ^\movieView }}
 116 TextView : ViewRedirect  { *key { ^\textView }}
 117
 118 Font : GuiRedirect  {
 119         *key { ^\font }
 120         *findFirstAvailable { |fontNames, action|
 121                 Routine {
 122                         fontNames.do { |name|
 123                                 if(this.availableFonts.any(_.contains(name))) {
 124                                         action.value(name);
 125                                         nil.alwaysYield;
 126                                 }
 127                         }
 128                 }.play(AppClock)
 129         }
 130         *new { arg name, size, bold = false, italic = false, isPointSize = false;
 131                 super.new(name, size, bold, italic, isPointSize)
 132         }
 133 }
 134
 135 Knob : ViewRedirect  { *key { ^\knob }}
 136
 137 LevelIndicator : ViewRedirect  { *key { ^\levelIndicator }}
 138
 139 Image : ViewRedirect { *key { ^\image }}
 140
 141 WebView : ViewRedirect { *key { ^\webView }}
 142
 143 CheckBox : ViewRedirect { *key { ^\checkBox }}
 144
 145 TreeView : ViewRedirect { *key { ^\treeView }}
 146
 147 HLayout : GuiRedirect { *key { ^\hLayout }}
 148 VLayout : GuiRedirect { *key { ^\vLayout }}
 149 GridLayout : GuiRedirect { *key { ^\gridLayout }}