SCClassLibrary/Common/GUI/osx/scide_scapp/Base/SCCocoaView.sc

   1 SCTextView : SCView{
   2         var <stringColor, <font, <editable;
   3         var     <autohidesScrollers, <hasHorizontalScroller, <hasVerticalScroller, <textBounds;
   4         var <usesTabToFocusNextView=true, <enterInterpretsSelection=true;
   5         var <>linkAction;
   6
   7         mouseUp {arg x, y, modifiers, buttonNumber, clickCount, clickPos;
   8                 mouseUpAction.value(this, x, y, modifiers, buttonNumber, clickCount, clickPos); }
   9
  10         doLinkAction { arg url, description;
  11                 linkAction.value(this, url, description);
  12         }
  13
  14         string{
  15                 ^this.getProperty(\string);
  16         }
  17
  18         string_{|str|
  19                 ^this.setString(str, -1);
  20         }
  21
  22         selectedString {
  23                 ^this.getProperty(\selectedString);
  24         }
  25
  26         selectedString_{|str|
  27                 this.setProperty(\selectedString, str);
  28         }
  29
  30         selectionStart {
  31                 ^this.getProperty(\selectedRangeLocation);
  32         }
  33
  34         selectionSize {
  35                 ^this.getProperty(\selectedRange);
  36         }
  37
  38         path {
  39                 ^this.getProperty(\path);
  40         }
  41
  42         stringColor_ {arg color;
  43                 stringColor = color;
  44                 this.setStringColor(color,-1, 0);
  45         }
  46
  47         setStringColor{arg color, rangeStart = -1, rangeSize = 0;
  48                 this.setProperty(\setTextColor, [color,rangeStart, rangeSize]);
  49         }
  50
  51         syntaxColorize {
  52                 this.setProperty(\setSyntaxColors);
  53         }
  54
  55         font_ {arg afont;
  56                 font = afont;
  57                 this.setFont(font, -1, 0)
  58         }
  59
  60         setFont{|       font, rangestart = -1, rangesize=0|
  61                 this.setProperty(\setFont, [font, rangestart, rangesize]);
  62         }
  63
  64         usesAutoInOutdent_{|bool|
  65                 this.setProperty(\setUsesAutoInOutdent, bool);
  66         }
  67
  68         setString{|string, rangestart=0, rangesize=0|
  69                 this.setProperty(\insertStringInRange, [string, rangestart, rangesize]);
  70         }
  71
  72         editable_{|bool|
  73                 editable = bool;
  74                 this.setProperty(\setEditable, bool);
  75         }
  76
  77         enabled_{|bool|
  78                 this.editable_(bool);
  79         }
  80         usesTabToFocusNextView_{|bool|
  81                 usesTabToFocusNextView=bool;
  82                 this.setProperty(\usesTabToFocusNextView, bool);
  83         }
  84         enterInterpretsSelection_{|bool|
  85                 enterInterpretsSelection=bool;
  86                 this.setProperty(\enterExecutesSelection, bool);
  87         }
  88         autohidesScrollers_{|bool|
  89                 autohidesScrollers = bool;
  90                 this.setProperty(\setAutohidesScrollers, bool);
  91         }
  92         hasHorizontalScroller_{|bool|
  93                 hasHorizontalScroller = bool;
  94                 this.setProperty(\setHasHorizontalScroller, bool);
  95         }
  96         hasVerticalScroller_{|bool|
  97                 hasVerticalScroller = bool;
  98                 this.setProperty(\setHasVerticalScroller, bool);
  99         }
 100
 101         textBounds_{|rect|
 102                 textBounds = rect;
 103                 this.setProperty(\textBounds, rect);
 104         }
 105
 106         open {|path|
 107                 if ( path.contains( "SC://"), {
 108                         path = Help.findHelpFile( path.asRelativePath( "SC:/") );
 109                 });
 110
 111                 if ( path.contains( "://" ).not, {
 112                 if ( path.first.asString != "/" ) { path = String.scDir +/+ path; };
 113                 path = "file://"++path;
 114                 });
 115                 path = path.replace(" ", "%20");
 116                 this.setProperty(\open, path);
 117         }
 118
 119         *paletteExample{ arg parent, bounds;
 120                 ^this.new(parent, bounds).string_("The quick brown fox jumps over the lazy dog.");
 121         }
 122 }
 123
 124 SCMovieView : SCView{
 125         var <rate, <loopMode, <muted, <path, <editable;
 126
 127         /*
 128         loop modes
 129         0 Playback runs forward and backward between both endpoints.
 130         1 Restarts playback at beginning when end is reached.
 131         2 Playback stops when end is reached.
 132         */
 133
 134         start{
 135                 this.setProperty(\start);
 136         }
 137
 138         stop{
 139                 this.setProperty(\stop);
 140         }
 141
 142         path_{|moviePath|
 143                 path = moviePath;
 144                 this.setProperty(\setMovie, moviePath);
 145         }
 146
 147         muted_{|bool|
 148                 muted = bool;
 149                 this.setProperty(\setMuted, bool);
 150         }
 151
 152         playSelectionOnly_{|bool|
 153                 this.setProperty(\setPlaysSelectionOnly, bool);
 154         }
 155
 156         rate_{|ratein|
 157                 rate = ratein;
 158                 this.setProperty(\setRate, ratein);
 159         }
 160
 161         loopMode_{|mode|
 162                 loopMode = mode;
 163                 this.setProperty(\setLoopMode, mode);
 164         }
 165
 166         gotoEnd{
 167                 this.setProperty(\gotoEnd);
 168         }
 169         stepForward{
 170                 this.setProperty(\stepForward);
 171         }
 172
 173         stepBack{
 174                 this.setProperty(\stepBack);
 175         }
 176
 177         gotoBeginning{
 178                 this.setProperty(\gotoBeginning);
 179         }
 180
 181         currentTime_{|time|
 182                 this.setProperty(\setCurrentTime, time);
 183         }
 184
 185         currentTime{
 186                 //"SCMovieView-currentTime is not implemented".warn;
 187                 ^this.getProperty(\getCurrentTime);
 188         }
 189
 190         editable_{|bool|
 191                 editable = bool;
 192                 this.setProperty(\setEditable, bool);
 193         }
 194
 195         showControllerAndAdjustSize{|show, adjust|
 196                 this.setProperty(\showControllerAndAdjustSize, [show, adjust]);
 197         }
 198
 199         resizeWithMagnification{|size|
 200                 this.setProperty(\resizeWithMagnification, size)
 201         }
 202
 203         copy{
 204                 this.setProperty(\copy);
 205         }
 206         clear{
 207                 this.setProperty(\clear);
 208         }
 209         cut{
 210                 this.setProperty(\cut);
 211         }
 212         paste{
 213                 this.setProperty(\paste);
 214         }
 215
 216         *paletteExample{ arg parent, bounds;
 217                 ^this.new(parent, bounds).path_("Help/GUI/Cocoa-GUI/SCImage/flowers2.jpg");
 218         }
 219
 220 }
 221
 222 SCWebView : SCView{
 223
 224         var <>onLoadFinished, <>onLoadFailed, <onLinkActivated, <enterInterpretsSelection=true;
 225
 226         url_ {|path|
 227                 if ( path.contains( "SC://"), {
 228                         path = Help.findHelpFile( path.asRelativePath( "SC:/") );
 229                 });
 230
 231                 if ( path.contains( "://" ).not, {
 232                 if ( path.first.asString != "/" ) { path = String.scDir +/+ path; };
 233                 path = "file://"++path;
 234                 });
 235                 path = path.replace(" ", "%20");
 236                 this.setProperty(\url, path);
 237         }
 238
 239         url { ^this.getProperty(\url);}
 240
 241         title { ^this.getProperty(\title);}
 242
 243         forward { this.setProperty(\forward);}
 244
 245         back { this.setProperty(\back);}
 246
 247         reload { this.setProperty(\reload);}
 248
 249         didLoad { onLoadFinished.value(this); }
 250
 251         didFail { onLoadFailed.value(this); }
 252
 253         // Get the displayed content in html form.
 254         html { ^this.getProperty(\html); }
 255
 256         // Set html content.
 257         html_ { arg htmlString;
 258                 this.setProperty(\html, htmlString);
 259         }
 260
 261         editable_ { arg bool;
 262                 this.setProperty(\editable, bool);
 263         }
 264
 265         selectedText { ^this.getProperty(\selectedText); }
 266
 267         // Try to extract plain text from html content and return it.
 268         plainText { ^this.getProperty(\plainText); }
 269
 270         onLinkActivated_{|func|
 271                 onLinkActivated = func;
 272                 this.setProperty(\handleLinks, func.isNil);
 273         }
 274
 275         linkActivated {|linkString| onLinkActivated.value(this, linkString) }
 276
 277         findText { arg string, reverse = false;
 278                 this.setProperty( \findText, [string, reverse] );
 279         }
 280
 281         enterInterpretsSelection_{|bool|
 282                 enterInterpretsSelection=bool;
 283                 this.setProperty(\enterExecutesSelection, bool);
 284         }
 285
 286         setFontFamily { arg generic, specific;
 287                 this.setProperty(\fontFamily, [generic, specific]);
 288         }
 289
 290         *paletteExample{ arg parent, bounds;
 291                 ^this.new(parent, bounds).url_("http://supercollider.sourceforge.net");
 292         }
 293 }