[V2d-checkins] CVS: v2d/src/examples/events/action_sequence_pause main_window.e,NONE,1.1 application.e,NONE,1.1 action_sequence_pause.ace,NONE,1.1

[Julian R. <jul...@us...>]

Update of /cvsroot/v2d/v2d/src/examples/events/action_sequence_pause
In directory usw-pr-cvs1:/tmp/cvs-serv25746

Added Files:
	main_window.e application.e action_sequence_pause.ace 
Log Message:
Initial.

--- NEW FILE: main_window.e ---
indexing
	description	: "Main window for this application"
	author		: "Generated by the New Vision2 Application Wizard."
	date		: "$Date: 2002/05/21 03:47:35 $"
	revision	: "1.0.0"

class
	MAIN_WINDOW

inherit
	EV_TITLED_WINDOW
		redefine
			initialize,
			is_in_default_state
		end

	INTERFACE_NAMES
		export
			{NONE} all
		undefine
			default_create, copy
		end

create
	default_create

feature {NONE} -- Initialization

	initialize is
			-- Build the interface for this window.
		local
			horizontal_box: EV_HORIZONTAL_BOX
			vertical_box: EV_VERTICAL_BOX
			pause_button, resume_button: EV_BUTTON
			frame: EV_FRAME
		do
			Precursor {EV_TITLED_WINDOW}
			create vertical_box
			create horizontal_box
			create test_button.make_with_text ("Select me")
			test_button.select_actions.extend (agent display_button_selected)
			create pause_button.make_with_text ("Pause")
			pause_button.select_actions.extend (agent pause)
			create resume_button.make_with_text ("Resume")
			resume_button.select_actions.extend (agent resume)
			create text.make_with_text ("Pause test started.")
			extend (vertical_box)
			horizontal_box.extend (pause_button)
			horizontal_box.extend (resume_button)
			vertical_box.extend (horizontal_box)
			vertical_box.extend (test_button)
			vertical_box.disable_item_expand (horizontal_box)
			vertical_box.disable_item_expand (test_button)
			vertical_box.extend (text)
			text.set_minimum_height (50)
		end
		
	pause is
			-- Pause `select_actions' of `test_button'.
		do
			test_button.select_actions.pause
			text.append_text ("%N`select_actions' paused.")
		end
		
	resume is
			-- Resume `select_actions' of `test_button'.
		do
			text.append_text ("%N`select_actions' resumed.")
			test_button.select_actions.resume
		end
		
	display_button_selected is
			-- Display `test_button' selection.
		do
			text.append_text ("%Ntest button selected.")
		end
		
		
	test_button: EV_BUTTON
	
	text: EV_TEXT
		

	is_in_default_state: BOOLEAN is
			-- Is the window in its default state
			-- (as stated in `initialize')
		do
			Result := True
		end

end -- class MAIN_WINDOW

--- NEW FILE: application.e ---
indexing
	description	: "Root class for this application."
	author		: "Generated by the New Vision2 Application Wizard."
	date		: "$Date: 2002/05/21 03:47:35 $"
	revision	: "1.0.0"

class
	APPLICATION

inherit
	EV_APPLICATION

create
	make_and_launch 

feature {NONE} -- Initialization

	make_and_launch is
			-- Initialize and launch application
		do
			default_create
			prepare
			launch
		end

	prepare is
			-- Prepare the first window to be displayed.
			-- Perform one call to first window in order to
			-- avoid to violate the invariant of class EV_APPLICATION.
		do
				-- create and initialize the first window.
			create first_window

				-- Show the first window.
				--| TODO: Remove this line if you don't want the first 
				--|       window to be shown at the start of the program.
			first_window.show
		end

feature {NONE} -- Implementation

	first_window: MAIN_WINDOW
			-- Main window.
	
end -- class APPLICATION

--- NEW FILE: action_sequence_pause.ace ---
-------------------------------------------------
-- This ace file has been generated for you by --
-- The New Vision2 Application Wizard.         --
-------------------------------------------------
system
	action_sequence_pause

root 
	APPLICATION (root_cluster): "make_and_launch"

default
	assertion (require)
	assertion (ensure)
	assertion (check)
	multithreaded (no)
	console_application (no)
	dynamic_runtime (no)
	dead_code_removal (yes)
	profile (no)
	line_generation (no)
	debug (no)
	array_optimization (no)
	inlining (no)
	inlining_size ("4")

cluster 
		-- The application
	root_cluster: "$V2D\src\examples\events\action_sequence_pause"

		-- EiffelBase
	all base: "$ISE_EIFFEL\library\base"
		exclude
			"table_eiffel3"; "desc"
		end

		-- WEL
	all wel: "$ISE_EIFFEL\library\wel"

		-- EiffelVision2
	all vision2: "$ISE_EIFFEL\library\vision2"
		exclude
			"gtk"; "EIFGEN"; "tmp"; "temp"; "release"; "obsolete"; "CVS"
		end

external
	include_path:
		"$(ISE_EIFFEL)\library\wel\spec\windows\include",
		"$(ISE_EIFFEL)\library\vision2\spec\include"

	object:
		"$(ISE_EIFFEL)\library\wel\spec\$(ISE_C_COMPILER)\lib\wel.lib",
		"$(ISE_EIFFEL)\library\vision2\spec\$(ISE_C_COMPILER)\lib\vision2.lib",
		"$(ISE_EIFFEL)\library\vision2\spec\$(ISE_C_COMPILER)\lib\zlib.lib",
		"$(ISE_EIFFEL)\library\vision2\spec\$(ISE_C_COMPILER)\lib\libpng.lib"
end