On the Ecology of Mountainous Forests in a Changing Climate: A ...

Appendix 213
IV. Source code of the FORCLIM model
Module ForClim
MODULE ForClim;
(*
Implementation and Revisions:
============================
Author Date Description
------ ---- -----------
hb 17.12.92 First implementation (MacMETH_V3.2)
af 08.07.93 About uses now FCResFileName
hb 23. 9.93 Final purging for the thesis
*)
FROM ForestBase IMPORT fMenu, configCmd, DeclForestBase, FCResFileName;
FROM ForClimE IMPORT DeclForClimE, RemoveForClimE;
FROM ForClimP IMPORT DeclForClimP, RemoveForClimP;
FROM ForClimS IMPORT DeclForClimS, RemoveForClimS;
FROM SimMaster IMPORT RunSimEnvironment;
FROM DMMaster IMPORT AddKeyboardHandler, RemoveKeyboardHandler;
FROM DMMenus IMPORT InstallMenu, InstallCommand, AccessStatus, Marking,
InstallAliasChar, InstallAbout, ExecuteAbout;
FROM DMWindows IMPORT Window, CreateModalWindow, ModalWindowKind, ScrollBars,
WindowFrame, AddWindowHandler, WindowHandlers, RemoveWindow,
RectArea, UseWindowModally;
FROM DMWindowIO IMPORT DisplayPredefinedPicture, BackgroundWidth,
BackgroundHeight;
FROM DMEntryForms IMPORT FormFrame, WriteLabel, CheckBox, UseEntryForm;
CONST
windW = 500;
windH = 315;
VAR
useFe, useFp, useFs: BOOLEAN;
w: Window;
PROCEDURE ConfigureForClim;
CONST lem = 5;
VAR ef: FormFrame;
ok : BOOLEAN;
cl: INTEGER;
BEGIN
cl := 2;
WriteLabel(cl, lem-2, "Select the ForClim submodels you wish to use:"); INC(cl);
CheckBox(cl,lem, "ForClim-E: Abiotic environment", useFe ); INC(cl);
CheckBox(cl,lem, "ForClim-P: Plant population dynamics", useFp ); INC(cl);
CheckBox(cl,lem, "ForClim-S: Soil organic matter turnover", useFs ); INC(cl);
INC(cl);
ef.x:= 0; ef.y:= -1; (* display entry form in middle of screen *)
ef.lines:= cl+1; ef.columns:= 50;
UseEntryForm(ef,ok);
IF ok THEN
IF useFe THEN DeclForClimE ELSE RemoveForClimE END;
IF useFp THEN DeclForClimP ELSE RemoveForClimP END;
IF useFs THEN DeclForClimS ELSE RemoveForClimS END;
END; (* IF *)
END ConfigureForClim;
PROCEDURE PaintStartup( w : Window );
VAR r : RectArea;
BEGIN
r.x := 1; r.y := 1;
r.w := 0; r.h := 0;
DisplayPredefinedPicture( FCResFileName, 2000, r );
END PaintStartup;
PROCEDURE CloseStartupWindow( w : Window );
BEGIN RemoveWindow( w ) END CloseStartupWindow;
PROCEDURE CloseStartupWindowByKeyboard;
BEGIN
RemoveWindow( w );
RemoveKeyboardHandler( CloseStartupWindowByKeyboard );
END CloseStartupWindowByKeyboard;
PROCEDURE ShowStartupPicture;
VAR f: WindowFrame;
ok: BOOLEAN;
BEGIN
f.w := windW;
f.h := windH;
f.x := (BackgroundWidth() - windW) DIV 2;
f.y := (BackgroundHeight() - windH) DIV 2;
CreateModalWindow( w, SingleFrameShadowed, WithoutScrollBars, f, PaintStartup );