home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_07 / ACS_PRO.LZH / ASC / DEMO_PP.PRG / DIR / DIR.I < prev    next >
Text File  |  1993-01-09  |  9KB  |  216 lines
  1. {
  2.  
  3.         This file was created with ACS 2.0 (c) Stefan Bachert 1991, 1992
  4.  
  5.         The contents are based on file: F:\PASCAL\ACS2\DIR\DIR.ACS
  6.  
  7.         compiled at: Fri Jan 01 21:19:58 1993 
  8. }
  9.  
  10. Const
  11.  
  12. {        STRINGS        }
  13.     TEXT_001: packed array [1..1] of char =
  14.      (#0);
  15.     TEXT_002: packed array [1..12] of char =
  16.      ' DIRECTORY '#0;
  17.     TEXT_003: packed array [1..7] of char =
  18.      'ZURÜCK'#0;
  19.     TEXT_004: packed array [1..12] of char =
  20.      'FILE SYSTEM'#0;
  21.  
  22.  
  23. {        ICONS        }
  24.  
  25.     _MSK_DIRECTORY: array [0..63] of WORD = (
  26. $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0fc0, 
  27. $0000, $1fe0, $0fff, $fff0, $1fff, $fff8, $3fff, $fffc, 
  28. $3fff, $fffe, $3fff, $fffe, $3fff, $fffe, $3fff, $fffe, 
  29. $3fff, $fffe, $3fff, $fffe, $3fff, $fffe, $3fff, $fffe, 
  30. $3fff, $fffe, $3fff, $fffe, $3fff, $fffe, $3fff, $fffe, 
  31. $3fff, $fffe, $3fff, $fffe, $3fff, $fffe, $3fff, $fffe, 
  32. $3fff, $fffe, $3fff, $fffe, $3fff, $fffe, $1fff, $fffe, 
  33. $0fff, $fffc, $07ff, $fff8, $0000, $0000, $0000, $0000);
  34.     _DAT_DIRECTORY: array [0..63] of WORD = (
  35. $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0fc0, 
  36. $0000, $1560, $0fff, $fab0, $1000, $1fe8, $2000, $0004, 
  37. $2000, $0006, $2000, $0006, $2000, $0006, $2000, $0006, 
  38. $2000, $0006, $2000, $0006, $2000, $0006, $2000, $0006, 
  39. $2000, $0006, $2000, $0006, $2000, $0006, $2000, $0006, 
  40. $2000, $0006, $2000, $0006, $2000, $0006, $2000, $0006, 
  41. $2000, $0006, $2000, $0006, $2000, $0006, $1000, $000e, 
  42. $0fff, $fffc, $07ff, $fff8, $0000, $0000, $0000, $0000);
  43.     DIRECTORY: ICONBLK = (ib_pmask: @_MSK_DIRECTORY; ib_pdata: @_DAT_DIRECTORY; ib_ptext: @TEXT_001;
  44.      ib_char: $1000; ib_xchar:  0; ib_ychar:  0;
  45.      ib_xicon: 20; ib_yicon:  0; ib_wicon: 32; ib_hicon: 32;
  46.      ib_xtext:  0; ib_ytext: 33; ib_wtext: 72; ib_htext:  8);
  47.  
  48.     _MSK_DOTDOT: array [0..63] of WORD = (
  49. $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000, 
  50. $0010, $0000, $0030, $0000, $0070, $0000, $00f0, $0000, 
  51. $01ff, $fe00, $03ff, $ff80, $07ff, $ffc0, $0fff, $ffe0, 
  52. $1fff, $ffe0, $3fff, $fff0, $1fff, $fff0, $0fff, $fff0, 
  53. $1fff, $fff0, $3fff, $fff0, $1fff, $fff0, $0fff, $fff0, 
  54. $07ff, $fff0, $03ff, $fff0, $01f0, $01f0, $00f0, $0070, 
  55. $0070, $0030, $0030, $0030, $0010, $0010, $0000, $0000, 
  56. $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000);
  57.     _DAT_DOTDOT: array [0..63] of WORD = (
  58. $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000, 
  59. $0010, $0000, $0030, $0000, $0050, $0000, $0090, $0000, 
  60. $011f, $fe00, $0200, $0180, $0400, $0040, $0800, $0020, 
  61. $1000, $0020, $2006, $6010, $1006, $6010, $0800, $0010, 
  62. $1c00, $0010, $3e00, $0010, $1f1f, $fe10, $0f9f, $ff90, 
  63. $07df, $ffd0, $03ff, $fff0, $01f0, $01f0, $00f0, $0070, 
  64. $0070, $0030, $0030, $0030, $0010, $0010, $0000, $0000, 
  65. $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000);
  66.     DOTDOT: ICONBLK = (ib_pmask: @_MSK_DOTDOT; ib_pdata: @_DAT_DOTDOT; ib_ptext: @TEXT_003;
  67.      ib_char: $1000; ib_xchar:  0; ib_ychar:  0;
  68.      ib_xicon: 20; ib_yicon:  0; ib_wicon: 32; ib_hicon: 32;
  69.      ib_xtext:  0; ib_ytext: 32; ib_wtext: 72; ib_htext:  8);
  70.  
  71.     _MSK_FILER: array [0..63] of WORD = (
  72. $0000, $0000, $0fff, $fe00, $0fff, $ff00, $0fff, $ff80, 
  73. $0fff, $ffc0, $0fff, $ffe0, $0fff, $fff0, $0fff, $fff0, 
  74. $0fff, $fff0, $0fff, $fff0, $0fff, $fff0, $0fff, $fff0, 
  75. $0fff, $fff0, $0fff, $fff0, $0fff, $fff0, $0fff, $fff0, 
  76. $0fff, $fff0, $0fff, $fff0, $0fff, $fff0, $0fff, $fff0, 
  77. $0fff, $fff0, $0fff, $fff0, $0fff, $fff0, $0fff, $fff0, 
  78. $0fff, $fff0, $0fff, $fff0, $0fff, $fff0, $0fff, $fff0, 
  79. $0fff, $fff0, $0fff, $fff0, $0fff, $fff0, $0000, $0000);
  80.     _DAT_FILER: array [0..63] of WORD = (
  81. $0000, $0000, $0fff, $fe00, $0800, $0300, $0800, $0280, 
  82. $0800, $0240, $0800, $0220, $0800, $03f0, $0800, $0010, 
  83. $0800, $0010, $0800, $0010, $0800, $0010, $08f5, $0f10, 
  84. $0885, $0810, $0885, $0810, $08e5, $0e10, $0885, $0810, 
  85. $0885, $0810, $0885, $ef10, $0800, $0010, $0800, $0010, 
  86. $0800, $0010, $0800, $0010, $0800, $0010, $0800, $0010, 
  87. $0800, $0010, $0800, $0010, $0800, $0010, $0800, $0010, 
  88. $0800, $0010, $0800, $0010, $0fff, $fff0, $0000, $0000);
  89.     FILER: ICONBLK = (ib_pmask: @_MSK_FILER; ib_pdata: @_DAT_FILER; ib_ptext: @TEXT_001;
  90.      ib_char: $1000; ib_xchar:  0; ib_ychar:  0;
  91.      ib_xicon: 20; ib_yicon:  0; ib_wicon: 32; ib_hicon: 32;
  92.      ib_xtext:  1; ib_ytext: 35; ib_wtext: 72; ib_htext:  8);
  93.  
  94.     _MSK_FLOPPY: array [0..63] of WORD = (
  95. $0000, $0000, $0000, $0000, $0000, $0000, $1fff, $fff8, 
  96. $3fff, $fffc, $3fff, $fffc, $3fff, $fffc, $3fff, $fffc, 
  97. $3fff, $fffc, $3fff, $fffc, $3fff, $fffc, $3fff, $fffc, 
  98. $3fff, $fffc, $3fff, $fffc, $3fff, $fffc, $3fff, $fffc, 
  99. $3fff, $fffc, $3fff, $fffc, $3fff, $fffc, $3fff, $fffc, 
  100. $3fff, $fffc, $3fff, $fffc, $3fff, $fffc, $3fff, $fffc, 
  101. $3fff, $fffc, $3fff, $fffc, $3fff, $fffc, $1fff, $fffc, 
  102. $0fff, $fff8, $0000, $0000, $0000, $0000, $0000, $0000);
  103.     _DAT_FLOPPY: array [0..63] of WORD = (
  104. $0000, $0000, $0000, $0000, $0000, $0000, $1fff, $fff8, 
  105. $2900, $008c, $2300, $00a4, $2900, $008c, $2300, $00a4, 
  106. $2900, $008c, $2300, $00a4, $2900, $008c, $2300, $00a4, 
  107. $2900, $008c, $2300, $00a4, $2900, $008c, $22ff, $ff24, 
  108. $2888, $888c, $2222, $2224, $2888, $888c, $223f, $fa24, 
  109. $28c0, $048c, $224c, $0624, $28cc, $048c, $224c, $0624, 
  110. $28cc, $048c, $3240, $0624, $3fff, $fffc, $1ad5, $5554, 
  111. $0fff, $fff8, $0000, $0000, $0000, $0000, $0000, $0000);
  112.     FLOPPY: ICONBLK = (ib_pmask: @_MSK_FLOPPY; ib_pdata: @_DAT_FLOPPY; ib_ptext: @TEXT_001;
  113.      ib_char: $1041; ib_xchar: 13; ib_ychar:  5;
  114.      ib_xicon:  5; ib_yicon:  2; ib_wicon: 32; ib_hicon: 32;
  115.      ib_xtext:  0; ib_ytext:  0; ib_wtext: 40; ib_htext: 40);
  116.  
  117.     _MSK_WI_ICON: array [0..59] of WORD = (
  118. $0000, $0000, $0000, $0000, $7fff, $fffe, $7fff, $fffe, 
  119. $7fff, $fffe, $7fff, $fffe, $7fff, $fffe, $7fff, $fffe, 
  120. $7fff, $fffe, $7fff, $fffe, $7fff, $fffe, $7fff, $fffe, 
  121. $7fff, $fffe, $7fff, $fffe, $7fff, $fffe, $7fff, $fffe, 
  122. $7fff, $fffe, $7fff, $fffe, $7fff, $fffe, $7fff, $fffe, 
  123. $7fff, $fffe, $7fff, $fffe, $7fff, $fffe, $7fff, $fffe, 
  124. $7fff, $fffe, $7fff, $fffe, $7fff, $fffe, $7fff, $fffe, 
  125. $7fff, $fffe, $7fff, $fffe);
  126.     _DAT_WI_ICON: array [0..59] of WORD = (
  127. $0000, $0000, $0000, $0000, $7fff, $fffe, $4000, $0002, 
  128. $4000, $0002, $4000, $0002, $4070, $01c2, $41f0, $07c2, 
  129. $4210, $0842, $4210, $0842, $4210, $0842, $4210, $0842, 
  130. $41f0, $07c2, $4000, $0002, $47f8, $1fe2, $4000, $0002, 
  131. $4000, $0002, $4000, $0002, $43f0, $0fc2, $4210, $0842, 
  132. $4210, $0842, $4210, $0842, $4230, $08c2, $4250, $0942, 
  133. $43f0, $0fc2, $4000, $0002, $47f8, $1fe2, $4000, $0002, 
  134. $4000, $0002, $7fff, $fffe);
  135.     WI_ICON: ICONBLK = (ib_pmask: @_MSK_WI_ICON; ib_pdata: @_DAT_WI_ICON; ib_ptext: @TEXT_004;
  136.      ib_char: $1000; ib_xchar:  0; ib_ychar:  0;
  137.      ib_xicon: 21; ib_yicon:  0; ib_wicon: 32; ib_hicon: 30;
  138.      ib_xtext:  0; ib_ytext: 32; ib_wtext: 72; ib_htext:  8);
  139.  
  140.  
  141. {        OBJECT TREES        }
  142. ICONS : Array [0 .. 4] of ACSOBJECT = ( (aes: (ob_next: -1; ob_head:  1; ob_tail:  4; ob_type: 20; ob_flags: $0000; ob_state: $0010;ob_spec: (index: $00021100);ob_x:  0; ob_y:  0; ob_width: 18; ob_height:  6)),
  143.  (aes: (ob_next:  2; ob_head: -1; ob_tail: -1; ob_type: 31; ob_flags: $0000; ob_state: $0000;ob_spec: (free_string: @DOTDOT);ob_x:  0; ob_y:  3; ob_width:  9; ob_height:  3)),
  144.  (aes: (ob_next:  3; ob_head: -1; ob_tail: -1; ob_type: 31; ob_flags: $0000; ob_state: $0000;ob_spec: (free_string: @DIRECTORY);ob_x:  0; ob_y:  0; ob_width:  9; ob_height:  3)),
  145.  (aes: (ob_next:  4; ob_head: -1; ob_tail: -1; ob_type: 31; ob_flags: $0000; ob_state: $0000;ob_spec: (free_string: @FILER);ob_x:  9; ob_y:  0; ob_width:  9; ob_height:  3)),
  146.  (aes: (ob_next:  0; ob_head: -1; ob_tail: -1; ob_type: 31; ob_flags: $0020; ob_state: $0000;ob_spec: (free_string: @FLOPPY);ob_x:  9; ob_y:  3; ob_width:  9; ob_height:  3))
  147. );
  148.  
  149.  
  150. {        WINDOWS        }
  151.  
  152.     DIR_WI: Awindow = ( user: NIL;
  153.  service: Awi_service;
  154.  create: file_make;
  155.  open: Awi_open;
  156.  init: Awi_init;
  157.  work: NIL;
  158.  ob_edit: -1; ob_col: -1; wi_id: -1;
  159.  wi_kind: $0fff; wi_act: (x:  0; y:  0; w: 34; h: 14);
  160.  wi_slider: (x: -1; y: -1; w: -1; h: -1);
  161.  snap_mask: $fff0;
  162.  name: @TEXT_002; info: @TEXT_001;
  163.  wi_type: $2710; kind: $000b; icon : -1;
  164.  iconblk: @WI_ICON;
  165.  menu: NIL;
  166.  keys: Awi_keys;
  167.  obchange: Awi_obchange;
  168.  redraw: Awi_redraw;
  169.  topped: Awi_topped;
  170.  closed: Awi_closed;
  171.  fulled: Awi_fulled;
  172.  arrowed: Awi_arrowed;
  173.  hslid: Awi_hslid;
  174.  vslid: Awi_vslid;
  175.  sized: Awi_sized;
  176.  moved: Awi_moved);
  177.  
  178.  
  179.  
  180. ACSdescr: Adescr = (
  181.         magic: 'ACS 2.0'#0; version: 200; dx: -4; dy: -4; flags: $001b;
  182.  acc_reg: '  ACS ACCESSORY'#0'                ';
  183.  root: NIL; acc: NIL; mouse: (
  184.  (number:   0; form: NIL),
  185.  (number:   2; form: NIL),
  186.  (number:   3; form: NIL),
  187.  (number:   4; form: NIL),
  188.  (number:   1; form: NIL),
  189.  (number:   5; form: NIL),
  190.  (number:   6; form: NIL),
  191.  (number:   7; form: NIL),
  192.  (number:   0; form: NIL),
  193.  (number:   0; form: NIL),
  194.  (number:   0; form: NIL),
  195.  (number:   0; form: NIL),
  196.  (number:   0; form: NIL),
  197.  (number:   0; form: NIL),
  198.  (number:   0; form: NIL),
  199.  (number:   0; form: NIL),
  200.  (number:   0; form: NIL),
  201.  (number:   0; form: NIL),
  202.  (number:   0; form: NIL),
  203.  (number:   0; form: NIL),
  204.  (number:   0; form: NIL),
  205.  (number:   0; form: NIL),
  206.  (number:   0; form: NIL),
  207.  (number:   0; form: NIL),
  208.  (number:   0; form: NIL),
  209.  (number:   0; form: NIL),
  210.  (number:   0; form: NIL),
  211.  (number:   0; form: NIL),
  212.  (number:   0; form: NIL),
  213.  (number:   0; form: NIL),
  214.  (number:   0; form: NIL),
  215.  (number:   0; form: NIL)) );
  216.