|
|
|
|
||
|
DEFINITION MODULE PatSelect; (******************************************************************* Module PatSelect (Version 1.0) Copyright (c) 1989-2006 by Olivier Roth and ETH Zurich. Purpose Display a window for selecting a color and/or pattern. Remarks Modal and not modal. Programming o Design Olivier Roth 10/03/1989 o Implementation Olivier Roth 10/03/1989 ETH Zurich Systems Ecology CHN E 35.1 Universitaetstrasse 16 8092 Zurich SWITZERLAND URLs: <mailto:RAMSES@env.ethz.ch> <http://www.sysecol.ethz.ch> <http://www.sysecol.ethz.ch/SimSoftware/RAMSES> Last revision of definition: 23/04/1996 AF & DG *******************************************************************) FROM DMWindIO IMPORT Color, Pattern; (* -------------------------------------------------------------- *) PROCEDURE SetUpPatSelWindow ( title : ARRAY OF CHAR; x, y: INTEGER ); (* opens a window and allows a non modal selection of colors and patterns. * The "title" will be the windows title and "x" and "y" specifiy the * lower left coordinates of the window. *) PROCEDURE RemovePatSelWindow; (* closes the non modal window opened by SetUpPatSelWindow. *) PROCEDURE PatSelWindowExists(): BOOLEAN; (* returns TRUE if the non modal pattern selector window is open. *) PROCEDURE SetColAndPatSelection( col : Color; pttrn : Pattern ); PROCEDURE GetColAndPatSelection( VAR col: Color; VAR pttrn: Pattern ); (* allow to set/get the color and pattern to be selected in the pattern * selection window opened by SetUpPatSelWindow. *) PROCEDURE DoColAndPatSelection( displayMsg : ARRAY OF CHAR; VAR col : Color; VAR pttrn : Pattern ); (* a call to this procedure displays a pattern selection dialog box and * allows for a modal selection of a color and pattern. * The "displayMsg" will be diplayed at the top of the pattern palette. * The two variables "col" and "pttrn" set the currently selected color * and pattern and contain the new values after the modal dialog (quit by 'Ok'). *) END PatSelect.
|
||
|
|
|