From 9dedb2c34d3225b19fd5fbca35d97a28fe5e5660 Mon Sep 17 00:00:00 2001
From: hashirama <hashirama@noreply.localhost>
Date: Thu, 15 Oct 2026 02:35:49 +0000
Subject: [PATCH] Add appleKit.hs

---
 appleKit.hs | 57 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 57 insertions(+)
 create mode 100644 appleKit.hs

diff --git a/appleKit.hs b/appleKit.hs
new file mode 100644
index 0000000..f1dce3c
--- /dev/null
+++ b/appleKit.hs
@@ -0,0 +1,57 @@
+{-  
+  
+install my lib: https://github.com/KonstantinDjairo/haskell-obj-c
+
+then:
+
+  $ appleKit.hs -o hello \
+  -package haskell-obj-c \
+  -package libffi \
+  -framework AppKit
+  
+  
+-}
+
+
+import Foreign.C.String (withCString)
+import Foreign.LibFFI (argPtr, retPtr, retVoid, retCULong)
+import Foreign.Ptr (castPtr)
+import ObjC.Runtime
+
+main :: IO ()
+main = withAutoreleasePool $ do
+  loadFramework "AppKit"
+
+  appClass <- getRequiredClass "NSApplication"
+  _ <- sendClassMsg appClass (mkSelector "sharedApplication")
+         (retPtr retVoid) []
+
+  alertClass <- getRequiredClass "NSAlert"
+  alertPtr <- sendClassMsg alertClass (mkSelector "new")
+                (retPtr retVoid) []
+  let alert = RawId (castPtr alertPtr)
+
+  stringClass <- getRequiredClass "NSString"
+  title <- makeString stringClass "Hello from Haskell"
+  detail <- makeString stringClass "RawId-only AppKit test."
+
+  let RawId titlePtr = title
+      RawId detailPtr = detail
+
+  _ <- sendRawMsg alert (mkSelector "setMessageText:")
+         retVoid [argPtr titlePtr]
+
+  _ <- sendRawMsg alert (mkSelector "setInformativeText:")
+         retVoid [argPtr detailPtr]
+
+  _ <- sendRawMsg alert (mkSelector "runModal")
+         retCULong []
+
+  pure ()
+
+makeString :: Class -> String -> IO RawId
+makeString cls s =
+  withCString s $ \cs -> do
+    ptr <- sendClassMsg cls (mkSelector "stringWithUTF8String:")
+             (retPtr retVoid) [argPtr cs]
+    pure (RawId (castPtr ptr))
\ No newline at end of file