home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / xcmd / prctclxf.sit / DemoStack / card_6438.txt < prev    next >
Text File  |  1990-08-28  |  2KB  |  109 lines
  1. -- card: 6438 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2685
  5. -- name: Versions
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 8003
  11. -- rect: left=329 top=36 right=58 bottom=429
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Get Versions
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   set cursor to watch
  23.   put empty into cd fld "Versions"
  24.  
  25.   get alist("!")
  26.   putVersion alist("!")
  27.   putVersion btree("!")
  28.   putVersion research("!")
  29.   putVersion errorname("!")
  30.   putVersion errorstring("!")
  31. end mouseUp
  32.  
  33. on putVersion version
  34.   put item 5 of version into compiled
  35.   delete item 3 to 5 of version
  36.   put version & return after cd fld "Versions"
  37.   put "   Compiled: " & compiled & return after cd fld "Versions"
  38. end putVersion
  39.  
  40.  
  41.  
  42.  
  43. -- part 2 (field)
  44. -- low flags: 01
  45. -- high flags: 0007
  46. -- rect: left=257 top=90 right=314 bottom=502
  47. -- title width / last selected line: 0
  48. -- icon id / first selected line: 0 / 0
  49. -- text alignment: 0
  50. -- font id: 3
  51. -- text size: 10
  52. -- style flags: 0
  53. -- line height: 13
  54. -- part name: Versions
  55.  
  56.  
  57. -- part 3 (field)
  58. -- low flags: 01
  59. -- high flags: 0002
  60. -- rect: left=257 top=74 right=90 bottom=502
  61. -- title width / last selected line: 0
  62. -- icon id / first selected line: 0 / 0
  63. -- text alignment: 1
  64. -- font id: 3
  65. -- text size: 10
  66. -- style flags: 256
  67. -- line height: 13
  68. -- part name: 
  69.  
  70.  
  71. -- part contents for background part 9
  72. ----- text -----
  73. DemoStack 0.9
  74.  
  75. -- part contents for background part 1
  76. ----- text -----
  77. Versions
  78.  
  79. -- part contents for background part 12
  80. ----- text -----
  81. Card #11
  82.  
  83. -- part contents for card part 3
  84. ----- text -----
  85. Versions
  86.  
  87. -- part contents for background part 14
  88. ----- text -----
  89.  
  90.  
  91. The field on the right displays the versions of the XFCNs in this stack. Use the "Get Versions" button to update this list.
  92.  
  93. -- part contents for background part 13
  94. ----- text -----
  95. Description
  96.  
  97. -- part contents for card part 2
  98. ----- text -----
  99. ArrayList XFCN, Version 0.9
  100.    Compiled:  Aug 27 1990 08:12:23
  101. BinaryTree XFCN, Version 0.9
  102.    Compiled:  Aug 27 1990 08:32:47
  103. Research XFCN, Version 0.9
  104.    Compiled:  Aug 27 1990 08:02:28
  105. ErrorName XFCN, Version 0.9
  106.    Compiled:  Aug 27 1990 08:10:42
  107. ErrorString XFCN, Version 0.9
  108.    Compiled:  Aug 27 1990 08:14:39
  109.