SCClassLibrary/Common/osx/objC/scide_scapp/SCWindowPlusCocoa.sc

   1 + SCWindow{
   2         dataptr{
   3                 ^dataptr
   4         }
   5         asNSObject {
   6                 ^dataptr.asNSReturn;
   7         }
   8
   9         asNSWindow {
  10                 var view, window;
  11                 view = this.asNSObject;
  12                 window = view.invoke("window");
  13                 view.release;
  14                 ^window; // you own it - call release one you do not need it anymore
  15         }
  16
  17         visible {
  18                 var ok, nsObj;
  19
  20                 if(isClosed, {^false});
  21
  22                 nsObj = this.asNSWindow;
  23                 ok = nsObj.invoke("isVisible");
  24                 nsObj.release;
  25
  26                 if(ok.isKindOf(Char), {
  27                         ^(ok.ascii > 0); // 3.3 - BOOL is returned as Char
  28                 }, {
  29                         ^(ok > 0); // post 3.3 - BOOL is returned as Integer
  30                 });
  31
  32                 ^false;
  33         }
  34
  35         visible_ { |yorn|
  36                 var nsObj;
  37
  38                 if(isClosed, {^this});
  39
  40                 nsObj = this.asNSWindow;
  41                 if(yorn, {
  42                         this.front;
  43                 }, {
  44                         nsObj.invoke("orderOut:", [nil], true);
  45                 });
  46                 nsObj.release;
  47         }
  48
  49         unminimize {
  50                 this.front;
  51         }
  52 }