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 = 0, bufsize = 4096, zoom = 1, rate = \audio, view, bufnum;
  63                 index = index.asControlInput;
  64
  65                 if (GUI.id == \qt and:
  66                         { server.serverRunning and: server.hasShmInterface.not })
  67                 {
  68                         ^GUI.current.stethoscope1.new
  69                                 (server, numChannels, index, bufsize, zoom, rate, view, bufnum)
  70                 }{
  71                         ^super.new(server, numChannels, index, bufsize, zoom, rate, view, bufnum)
  72                 };
  73         }
  74         *key { ^\stethoscope }
  75 }
  76
  77 ScopeView : ViewRedirect { *key { ^\scopeView }}
  78 FreqScopeView : ViewRedirect { *key { ^\freqScopeView }} // redirects to FreqScope
  79
  80 FreqScope : GuiRedirect { // redirects to FreqScopeWindow
  81         *new { arg width=512, height=300, busNum=0, scopeColor, bgColor;
  82                 busNum = busNum.asControlInput;
  83                 ^super.new(width, height, busNum, scopeColor)
  84         }
  85         *key { ^\freqScope }
  86 }
  87
  88 Dialog : GuiRedirect {
  89         *key { ^\dialog }
  90         *openPanel { arg okFunc, cancelFunc, multipleSelection=false;
  91                 ^super.openPanel(okFunc, cancelFunc, multipleSelection)
  92         }
  93         *savePanel { arg okFunc, cancelFunc;
  94                 ^super.savePanel(okFunc, cancelFunc)
  95         }
  96 }
  97
  98 View : ViewRedirect { *key { ^\view }}
  99
 100 RangeSlider : ViewRedirect { *key { ^\rangeSlider }}
 101 Slider2D : ViewRedirect { *key { ^\slider2D }}
 102 TabletSlider2D : ViewRedirect { *key { ^\tabletSlider2D }}
 103 Button : ViewRedirect { *key { ^\button }}
 104
 105 PopUpMenu : ViewRedirect { *key { ^\popUpMenu }}
 106 StaticText : ViewRedirect { *key { ^\staticText }}
 107 NumberBox : ViewRedirect { *key { ^\numberBox }}
 108 ListView : ViewRedirect { *key { ^\listView }}
 109
 110 DragSource : ViewRedirect { *key { ^\dragSource }}
 111 DragSink : ViewRedirect { *key { ^\dragSink }}
 112 DragBoth : ViewRedirect { *key { ^\dragBoth }}
 113
 114 UserView : ViewRedirect { *key { ^\userView }}
 115 MultiSliderView : ViewRedirect { *key { ^\multiSliderView }}
 116 EnvelopeView : ViewRedirect { *key { ^\envelopeView }}
 117
 118 TextField : ViewRedirect  { *key { ^\textField }}
 119
 120
 121 TabletView : ViewRedirect { *key { ^\tabletView }}
 122 SoundFileView : ViewRedirect { *key { ^\soundFileView }}
 123 MovieView : ViewRedirect { *key { ^\movieView }}
 124 TextView : ViewRedirect  { *key { ^\textView }}
 125
 126 Font : GuiRedirect  {
 127         *key { ^\font }
 128         *findFirstAvailable { |fontNames, action|
 129                 Routine {
 130                         fontNames.do { |name|
 131                                 if(this.availableFonts.any(_.contains(name))) {
 132                                         action.value(name);
 133                                         nil.alwaysYield;
 134                                 }
 135                         }
 136                 }.play(AppClock)
 137         }
 138         *new { arg name, size, bold = false, italic = false, isPointSize = false;
 139                 ^super.new(name, size, bold, italic, isPointSize)
 140         }
 141 }
 142
 143 Knob : ViewRedirect  { *key { ^\knob }}
 144
 145 LevelIndicator : ViewRedirect  { *key { ^\levelIndicator }}
 146
 147 Image : ViewRedirect { *key { ^\image }}
 148
 149 WebView : ViewRedirect { *key { ^\webView }}
 150
 151 CheckBox : ViewRedirect { *key { ^\checkBox }}
 152
 153 TreeView : ViewRedirect { *key { ^\treeView }}
 154
 155 HLayout : GuiRedirect { *key { ^\hLayout }}
 156 VLayout : GuiRedirect { *key { ^\vLayout }}
 157 GridLayout : GuiRedirect { *key { ^\gridLayout }}
 158 StackLayout : GuiRedirect { *key { ^\stackLayout } }