diff options
| -rw-r--r-- | main/Mac/Clean2AppleEventHandler.dcl | 2 | ||||
| -rw-r--r-- | main/Mac/Clean2AppleEventHandler.icl | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/main/Mac/Clean2AppleEventHandler.dcl b/main/Mac/Clean2AppleEventHandler.dcl index 27efb47..9936d9a 100644 --- a/main/Mac/Clean2AppleEventHandler.dcl +++ b/main/Mac/Clean2AppleEventHandler.dcl @@ -11,6 +11,6 @@ from events import :: Event; 0.2*/ install_apple_event_handlers :: Int; -HandleAppleEvent :: !Event (!{#Char} *Files -> (!Int,!*Files)) !*Files -> (!Bool,!Bool,!*Files); +HandleAppleEvent :: !Event ({#Char} *Files -> (!Int,!*Files)) !*Files -> (!Bool,!Bool,!*Files); get_apple_event_string :: !Int !String -> Int; diff --git a/main/Mac/Clean2AppleEventHandler.icl b/main/Mac/Clean2AppleEventHandler.icl index bf1f5c3..4fdc1ba 100644 --- a/main/Mac/Clean2AppleEventHandler.icl +++ b/main/Mac/Clean2AppleEventHandler.icl @@ -7,7 +7,7 @@ import StdDebug,StdString; import code from "cae.obj"; // "cae.carbon.o"; -HandleAppleEvent :: !Event (!{#Char} *Files -> (!Int,!*Files)) !*Files -> (!Bool,!Bool,!*Files); +HandleAppleEvent :: !Event ({#Char} *Files -> (!Int,!*Files)) !*Files -> (!Bool,!Bool,!*Files); HandleAppleEvent (b,what,message,when,p1,p2,modifiers) script_handler files | what==HighLevelEvent # r1=handle_apple_event2 what message when p1 p2 modifiers; |