Advertisement
Guest User

Untitled

a guest
Jul 2nd, 2017
54
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Eiffel 0.54 KB | None | 0 0
  1. note
  2.        description : "db_test application root class"
  3.        date        : "$Date$"
  4.        revision    : "$Revision$"
  5.  
  6. class
  7.        APPLICATION
  8.  
  9. inherit
  10.     ARGUMENTS
  11.     G4_GLOBAL_PROPERTIES
  12.  
  13. create
  14.        make
  15.  
  16. feature -- Initialization
  17.  
  18.     make
  19.                                -- Run application.
  20.         local
  21.             l_store: G4_PROXY_STORE;
  22.             l_cat: G4_CATEGORY_STORE
  23.  
  24.        do
  25.  
  26.             --                  -- Create proxy store
  27.             create l_store.make
  28.  
  29.             l_store.connect
  30.  
  31.             create l_cat.make("Cellphone", "Celular")
  32.  
  33.             l_store.add_category (l_cat)
  34.  
  35.             l_store.disconnect
  36.         end
  37.  
  38. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement