diff options
| author | ronny | 2000-02-23 14:55:54 +0000 |
|---|---|---|
| committer | ronny | 2000-02-23 14:55:54 +0000 |
| commit | 763041adf7a1f87addcb5069f203396dc896b3f1 (patch) | |
| tree | 78472565231b153eebf953f64a73b37be1fcec57 /main/CleanCocl.icl | |
| parent | Added backend.dll (diff) | |
Initial import
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@100 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'main/CleanCocl.icl')
| -rw-r--r-- | main/CleanCocl.icl | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/main/CleanCocl.icl b/main/CleanCocl.icl new file mode 100644 index 0000000..69915fd --- /dev/null +++ b/main/CleanCocl.icl @@ -0,0 +1,24 @@ +module CleanCocl + +import StdEnv +import deltaEventIO, deltaIOState +import CoclSystemDependent + +Don`tCareId + :== 0 + +Start :: !*World -> *World +Start world + # (_, world) + = StartIO [menus : SystemDependentDevices] 0 SystemDependentInitialIO world + with + menus + = MenuSystem [file] + file + = PullDownMenu Don`tCareId "File" Able + [MenuItem Don`tCareId "Quit" (Key 'Q') Able Quit] + = world + +Quit :: *s (IOState *s) -> (*s, IOState *s) +Quit s io + = (s, QuitIO io) |