Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- note
- description : "db_test application root class"
- date : "$Date$"
- revision : "$Revision$"
- class
- APPLICATION
- inherit
- ARGUMENTS
- G4_GLOBAL_PROPERTIES
- create
- make
- feature -- Initialization
- make
- -- Run application.
- local
- l_store: G4_PROXY_STORE;
- l_cat: G4_CATEGORY_STORE
- do
- -- -- Create proxy store
- create l_store.make
- l_store.connect
- create l_cat.make("Cellphone", "Celular")
- l_store.add_category (l_cat)
- l_store.disconnect
- end
- end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement