RAMSES	Systems Ecology
Start         Modules:   A-Z   Function   Layer        QuickRefs:   DM   AuxLib   AuxLibE   SciLib   EasyMW   MW   ISIS   RMSLib

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.