Configuring Mouse Clicks

selecting any conveyor-station implies 
	create-subworkspace 

selecting any navigate-down-button absolutely implies 
	go-to-subworkspace 

configure the user interface as follows: 
	when in my-drag-mode: 
		pressing any mouse button on this item implies ole-clone;

configure the user interface as follows: 
	when in my-transfer-mode: 
		pressing control+any mouse button on this item implies ole-transfer;
	when in my-transfer-mode: 
		pressing alt+any mouse button on this item implies ole-clone;

pressing any mouse button on any custom-object starts 
    track-mouse-over-custom-object as the mouse tracks over any item 

pressing control  +  any mouse button on any custom-object starts 
    track-mouse-over-custom-object as the mouse tracks 
    continuously over any item 

mouse-tracking-procedure 
	(event: symbol , tracked-window: class g2-window, 
	    trigger-item: item-or-value, tracked-item: item-or-value, 
	    x-mouse-position: integer, y-mouse-position: integer, 
	    event-timing-in-milliseconds: integer, state-of-modifier-keys: integer ) 

configure the user interface as follows : 
	unless in administrator mode : 
		pressing alt  +  any mouse button on any pull-down-menu starts 
		    start-procedure use-pull-down-menu as the mouse tracks over 
		    any pull-down-menu-choice or pull-down-menu 

use-pull-down-menu ( event : symbol, tracked-window : class g2-window, 
	trigger-item : item-or-value, tracked-item : item-or-value, 
	x-mouse-position : integer, y-mouse-position : integer, 
	event-time-stamp : integer, keys-mask : integer ) = ( )
begin 
	{ Respond to the four mouse-tracking procedure events ... } 
	case ( event ) of 
		START-TRACKING : 
		begin 
			call highlight-a-pull-down-menu ( trigger-item ) ; 
			call select-a-pull-down-menu ( trigger-item ) ; 
		end ;

		ENTER : 
		{ First, verify that a "tracked-item" value was returned } 
		    if tracked-item has a current value then 
			begin 
				{ Second, perform this operation only if the "tracked-item" 
				    still exists. } 
				if tracked-item exists then 
					call highlight-a-choice-on-pull-down-menu 
					    ( tracked-item ) ; 
			end ; 

		MOTION : 
		{ This case is necessary only if the relevant configuration 
		    statement specifies "continuously over". } 

		{ First, verify that a "tracked-item" value was returned } 
		if tracked-item has a current value then 
			begin 
				{ Second, perform this operation only if the "tracked-item" 
				    still exists. } 
				if tracked-item exists then 
					call display-menu-for-traversed-item ( tracked-item ) ; 
			end ; 

		LEAVE : 
		{ First, verify that a "tracked-item" value was returned } 
		if tracked-item has a current value then 
			begin 
				{ Second, perform this operation only if the "tracked-item" 
				    still exists. } 
				if tracked-item exists then 
					call unhighlight-a-choice-on-pull-down-menu 
					    ( tracked-item ) ; 
			end ; 

		STOP-TRACKING : 
		{ First, verify that a "tracked-item" value was returned } 
		if tracked-item has a current value then 
			begin 
				{ Second, perform this operation only if the "tracked-item" 
				    still exists. } 
				if tracked-item exists then 
					case ( the class of tracked-item ) of 
						pull-down-menu-choice : 
						{ Perform this operation only if the "tracked-item" 
						    still exists. } 
						if tracked-item exists 
							call select-choice-on-pull-down-menu 
							    (tracked-item) ; 
						otherwise : 
						{ If mouse-up event occurs over other than a 
						    pull-down-menu-choice ... } 
						call unselect-the-selected-pull-down-menu ( ) ; 
					end { case of } 
			end { begin } 

		ABORT-TRACKING : 
		{ This procedure does not support responding to aborts 
		    (the Control  +  a keypress) during mouse-tracking. } 
		begin 
		end 
	end { case of } 
end { begin }