home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995 February: Tool Chest / Dev.CD Feb 95 / Dev.CD Feb 95.toast / Sample Code / Newton Sample Code 1.2 / Drawing / MonacoTest-2 / MonacoTest.text < prev    next >
Encoding:
Text File  |  1994-03-11  |  1.2 KB  |  52 lines  |  [TEXT/MPS ]
  1.  
  2. // ---- End Project Data ----
  3.  
  4.  
  5. // ---- File MonacoTest.t ----
  6.  
  7. // Before Script for "baseView"
  8. // Copyright © 1994 by Apple Computer, Inc.  All rights reserved.
  9.  
  10. baseView :=
  11.    {title: "Monaco Test",
  12.     viewBounds: {top: 0, left: 0, right: 240, bottom: 220},
  13.     viewJustify: 16,
  14.     _proto: protoApp,
  15.     debug: "baseView"
  16.    };
  17.  
  18.  
  19. // Before Script for "testView"
  20. // Copyright © 1994 by Apple Computer, Inc.  All rights reserved.
  21.  
  22. testView := /* child of baseView */
  23.    {
  24.     text:
  25.       "iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii\nmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm\n\n1         2         3         4       \n01234567890123456789012345678901234567\n\n\n\"We have nothing to fcar, but fcar itself\"\n\nGrim Onto Rain\n\nReg the whooping Llama"
  26.     ,
  27.     viewBounds: {top: 25, left: 5, right: -5, bottom: 175},
  28.     viewFont:
  29.       {    family: 'Monaco,
  30.                       face: 0,
  31.                       size: 9
  32.       },
  33.     viewJustify: 48,
  34.     viewSetupFormScript:
  35.       func()
  36.       begin
  37.         if NOT fonts.Monaco exists then
  38.           self.text := "You have not installed the Monaco font package."
  39.       end,
  40.     _proto: protoStaticText,
  41.     debug: "testView"
  42.    };
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50. // ---- Beginning of section for non used Layout files ----
  51.  
  52. // End of output