SCClassLibrary/QtCollider/QTextView.sc

   1 QTextView : QAbstractScroll {
   2   var <stringColor, <font, <editable=true;
   3
   4   *qtClass { ^'QcTextEdit' }
   5
   6   enterInterpretsSelection { ^this.getProperty( \enterInterpretsSelection ); }
   7
   8   enterInterpretsSelection_ { arg bool;
   9     this.setProperty( \enterInterpretsSelection, bool );
  10   }
  11
  12   editable_ { arg aBool;
  13     editable = aBool;
  14     this.setProperty( \readOnly, aBool.not );
  15   }
  16
  17   usesTabToFocusNextView_ { arg aBool;
  18     this.setProperty( \tabChangesFocus, aBool );
  19   }
  20
  21   open { arg aString;
  22     this.setProperty( \document, aString );
  23   }
  24
  25   string {
  26     ^this.getProperty( \plainText );
  27   }
  28
  29   string_ { arg aString;
  30     this.setProperty( \plainText, aString );
  31   }
  32
  33   font_ { arg aFont;
  34     font = aFont;
  35     this.setProperty( \textFont, aFont );
  36   }
  37
  38   stringColor_ { arg aColor;
  39     stringColor = aColor;
  40     this.setProperty( \textColor, aColor );
  41   }
  42
  43   background { ^this.palette.base }
  44
  45   background_ { arg color; this.palette = this.palette.base_(color); }
  46
  47   selectedString { ^this.getProperty( \selectedString ); }
  48
  49   selectedString_ { arg string; this.setProperty( \selectedString, string ); }
  50
  51   selectionStart {
  52     ^this.getProperty( \selectionStart );
  53   }
  54
  55   selectionSize {
  56     ^this.getProperty( \selectionSize );
  57   }
  58
  59   select { arg start, size;
  60     this.invokeMethod( \select, [start, size] );
  61   }
  62
  63   setStringColor { arg aColor, intStart, intSize;
  64     this.setProperty( \rangeColor, [aColor,intStart,intSize] );
  65   }
  66
  67   setFont { arg aFont, intStart, intSize;
  68     this.setProperty( \rangeFont, [aFont,intStart,intSize] );
  69   }
  70
  71   setString { arg aString, intStart, intSize;
  72     this.setProperty( \rangeText, [aString,intStart,intSize] );
  73   }
  74
  75   tabWidth { ^this.getProperty( \tabStopWidth ); }
  76
  77   tabWidth_ { arg pixels; this.setProperty( \tabStopWidth, pixels ); }
  78
  79   syntaxColorize {
  80     this.nonimpl( "syntaxColorize" );
  81   }
  82
  83   defaultGetDrag {
  84     var text = this.selectedString;
  85     if( text.size < 1 ) { ^nil };
  86     if( text.size > 150 ) {
  87       this.dragLabel = text.copyRange(0,149) ++ "...";
  88     }{
  89       this.dragLabel = text;
  90     }
  91     ^text;
  92   }
  93 }