note description : "[ System's root class. Demonstrate how to use Memory Analyzer library. Before use, you should include Gobo, Graph, Vision2, Wel or Gtk, Time, Structure library. ]" legal: "See notice at end of class." status: "See notice at end of class." class ROOT_CLASS inherit EV_APPLICATION create make feature -- Initialization make -- Creation procedure. local l_env: EXECUTION_ENVIRONMENT l_path: STRING l_dir: DIRECTORY_NAME do create l_env l_path := l_env.get ("EIFFEL_SRC") if l_path = Void then io.put_string ("ISE_EIFFEL not defined.%N") io.put_string ("Press enter to exit.%N") io.read_line else create l_dir.make_from_string (l_path) l_dir.extend_from_array (<<"library", "memory_analyzer" >>) default_create create ma_window.make (l_dir) ma_window.close_request_actions.extend (agent handle_close_window) ma_window.show launch end end feature {NONE} -- Implementation handle_close_window -- Handle close window. do ma_window.destroy destroy end ma_window: MA_WINDOW; -- Window of Memory Analyzer. note copyright: "Copyright (c) 1984-2006, Eiffel Software and others" license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)" source: "[ Eiffel Software 356 Storke Road, Goleta, CA 93117 USA Telephone 805-685-1006, Fax 805-685-6869 Website http://www.eiffel.com Customer support http://support.eiffel.com ]" end -- class ROOT_CLASS