home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1995 August / NEBULA.mdf / Apps / DevTools / ClassBuilder / Source / Nu.wsp < prev    next >
Encoding:
Text File  |  1993-01-25  |  2.4 KB  |  104 lines
  1.  
  2.  
  3. #header
  4. #import <appkit/Application.h>
  5. #endheader
  6. id aWin, gv ;
  7. aWin = [NXApp loadNibFile:
  8.          "/local/grd/CB/Nu/GlyphWindow.nib"
  9.         owner: NXApp] ;
  10. aWin = [NXApp loadNibFile:
  11.          "/local/grd/CB/Nu/GlyphWindow.nib"
  12.         owner: NXApp] ;
  13.  
  14. ----------------------------------
  15.  
  16.  
  17. #header
  18. #import "/local/grd/CB/Glyph.h"
  19. #import <zone.h>
  20. #import <mach.h>
  21. #endheader
  22. id aGlyph, bGlyph ;
  23. NXZone *aZone;
  24. aZone = NXCreateZone(vm_page_size, vm_page_size, YES);
  25. aGlyph = [[Glyph allocFromZone: aZone] init] ;
  26. [aGlyph plant: [[Glyph allocFromZone: aZone] init]] ;
  27. [aGlyph plant: bGlyph = [[Glyph allocFromZone: aZone] init]] ;
  28. [aGlyph test: 0] ;
  29. [NXApp printf: "---------\n"] ;
  30. [bGlyph unlink] ;
  31. [aGlyph test: 0] ;
  32. NXDestroyZone( aZone) ;
  33.  
  34.     
  35. [DictManager insertKey: "gv" value: 
  36.    gv = [aWin delegate]
  37.         type: "@"] ;
  38. [gv setup] ;
  39. [NXApp printf: "%s\n", [gv name]] ;
  40.  
  41.  
  42. [[DictManager valueForKey: "gv" type: "@"]
  43.   free] ;
  44.  
  45.  
  46. #header
  47. #import "/local/grd/CB/Glyph.h"
  48. #import <zone.h>
  49. #import <mach.h>
  50. #endheader
  51. Glyph *aGlyph, *bGlyph, *cGlyph ;
  52. NXZone *aZone;
  53. NXPoint aPnt ;
  54. aZone = NXCreateZone(vm_page_size, vm_page_size, YES);
  55. aGlyph = [[Glyph allocFromZone: aZone] init] ;
  56. bGlyph = [[Glyph allocFromZone: aZone] init] ;
  57. cGlyph = [[Glyph allocFromZone: aZone] init] ;
  58. [aGlyph moveTo: 0.0 :0.0] ;
  59. [bGlyph moveTo: 2.0 :2.0] ;
  60. [cGlyph moveTo: 2.0 :2.0] ;
  61. [aGlyph plant: bGlyph] ;
  62. [bGlyph plant: cGlyph] ;
  63. aGlyph->flags.isRoot = YES ;
  64. aPnt.x = aPnt.y = 0.0 ;
  65. [cGlyph convertToRootGlyph: &aPnt] ;
  66. [NXApp printf: "%f %f\n", aPnt.x, aPnt.y] ;
  67. NXDestroyZone( aZone) ;
  68.  
  69.  
  70. ----------------------------------
  71. #header
  72. #import "/local/grd/CB/Glyph.h"
  73. #import <zone.h>
  74. #import <mach.h>
  75. #endheader
  76. Glyph *aGlyph, *bGlyph, *cGlyph ;
  77. NXZone *aZone;
  78. NXPoint aPnt ;
  79. aZone = NXCreateZone(vm_page_size, vm_page_size, YES);
  80. aGlyph = [[Glyph allocFromZone: aZone] init] ;
  81. bGlyph = [[Glyph allocFromZone: aZone] init] ;
  82. cGlyph = [[Glyph allocFromZone: aZone] init] ;
  83. [aGlyph moveTo: 0.0 :0.0] ;
  84. [bGlyph moveTo: 2.0 :2.0] ;
  85. [cGlyph moveTo: 1.0 :1.0] ;
  86. [aGlyph plant: bGlyph] ;
  87. [aGlyph plant: cGlyph] ;
  88. [aGlyph iam: "a"] ;
  89. [bGlyph iam: "b"] ;
  90. [cGlyph iam: "c"] ;
  91. aGlyph->flags.isRoot = YES ;
  92. aPnt.x = aPnt.y = 0.0 ;
  93. [aGlyph test: 0] ;
  94. [NXApp printf: "----\n"] ;
  95. [cGlyph unlink] ;
  96. [aGlyph test: 0] ;
  97. [NXApp printf: "----\n"] ;
  98. [cGlyph moveTo: 5.0 :5.0] ;
  99. [aGlyph plant: cGlyph] ;
  100. [aGlyph test: 0] ;
  101. [NXApp printf: "----\n"] ;
  102. NXDestroyZone( aZone) ;
  103.  
  104.