SCClassLibrary/Common/GUI/osx/scide_scapp/SCInterfaceBuilder/asSCIBCompileString.sc

   1 //todo use streams
   2 + SCWindow{
   3
   4         asSCIBCompileString {
   5                 var str = "";
   6                 view.children.do({ |v| if(v.isKindOf(SCConstructionView).not){
   7                          str = str ++ v.asSCIBCompileString ++";\n" }});
   8                 ^format( "(\nvar window = SCWindow.new(\"\",%).front;\n%\n)",this.bounds,str )
   9         }
  10 }
  11
  12 + SCIBPanelWindow{
  13         asSCIBCompileString {
  14                 ^window.asSCIBCompileString
  15         }
  16
  17 }
  18
  19 + SCView{
  20
  21         asSCIBCompileString {
  22                 if(this.setActionForConstructionString){
  23                         ^format("%.new(window,%)%\n\t.action_{|v| }",this.class,this.bounds, this.modifiersForConstructionString);
  24                 }{
  25                         ^format("%.new(window,%)",this.class,this.bounds);
  26                 }
  27         }
  28
  29         setActionForConstructionString{
  30                 ^true
  31         }
  32         modifiersForConstructionString{
  33                 ^""
  34         }
  35
  36 }
  37
  38 +SCButton{
  39
  40         modifiersForConstructionString{
  41                 ^"\n\t.states_(%)".format(this.states.asCompileString)
  42         }
  43
  44 }
  45
  46 +SCStaticText{
  47
  48         modifiersForConstructionString{
  49                 ^"\n\t.string_(%)".format(this.string.asCompileString)
  50         }
  51
  52 }