home *** CD-ROM | disk | FTP | other *** search
/ The Developer Connection…ice Driver Kit for OS/2 3 / DEV3-D1.ISO / devtools / dataflex / protoent.pkg < prev    next >
Encoding:
Text File  |  1993-08-10  |  2.5 KB  |  86 lines
  1. //************************************************************************
  2. //
  3. // Copyright 1987-1992 Data Access Corporation, Miami FL, USA
  4. // All Rights reserved
  5. // DataFlex is a registered trademark of Data Access Corporation.
  6. //
  7. //
  8. //     $Source: /u3/source.30/product/pkg/RCS/protoent.pkg,v $
  9. //     $Revision: 1.1 $
  10. //     $State: Exp $
  11. //     $Author: james $
  12. //     $Date: 1992/09/08 14:43:08 $
  13. //     $Locker:  $
  14. //
  15. //     $Log: protoent.pkg,v $
  16. //Revision 1.1  1992/09/08  14:43:08  james
  17. //Initial revision
  18. //
  19. //Revision 1.5  92/05/14  17:19:20  SWM
  20. //Updated Copyright slug.
  21. //
  22. //Revision 1.4  92/05/13  01:33:48  lee
  23. //now also set matrix_size to fix same multi-line per row problem.
  24. //
  25. //Revision 1.3  92/03/09  19:03:58  james
  26. //Added #CHKSUB directive to insure source
  27. //only compiled with correct revision of 
  28. //compiler.
  29. //
  30. //Revision 1.2  91/11/08  09:20:32  steve-l
  31. //END_ROW macro changed to also set LINE_WIDTH, to enable non-rectangular
  32. //table to function correctly [DAR 2163]
  33. //
  34. //************************************************************************/
  35.  
  36. //************************************************************************
  37. //     File Name: ProtoEnt.Pkg
  38. // Creation Date: January 1, 1991
  39. // Modified Date: Oct 24, 1991
  40. //     Author(s): Steven A. Lowe
  41. //
  42. // This module contains the Prototype_Entry class definition.
  43. //
  44. // Class PROTOTYPE_ENTRY is used as Element of Table for row prototype
  45. //
  46. // Note that prototype_entry objects also have focus_mode = NO_ACTIVATE
  47. //************************************************************************/
  48.  
  49. #CHKSUB 1 1 // Verify the UI subsystem.
  50.  
  51. use ui
  52.  
  53. class Prototype_Entry is an ENTRY
  54.   procedure construct_object integer img
  55.     forward send construct_object img
  56.     set focus_mode to NO_ACTIVATE
  57.   end_procedure
  58. end_class
  59.  
  60. //
  61. //Begin_Row
  62. //
  63. // This macro begins the list of items for the row-prototype for the table
  64. //
  65. #COMMAND Begin_Row .
  66.   MAKEDEF$ OBJ$!Zj$ROWDEF
  67.   object Element is a PROTOTYPE_ENTRY NO_IMAGE
  68.     item_list
  69. #ENDCOMMAND
  70.  
  71. //
  72. //End_Row
  73. //
  74. // This macro ends the row-prototype item list for the table
  75. //
  76. #COMMAND End_Row .
  77.     end_item_list
  78.   End_Object
  79.   set item_limit to (item_count(element(Current_Object)))
  80.   set line_width to (item_count(element(Current_Object))) ;
  81.         (displayable_rows(current_object))
  82.   set matrix_size to (item_count(element(Current_Object))) ;
  83.         (displayable_rows(current_object))
  84. #ENDCOMMAND
  85.  
  86.