mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 09:40:21 +00:00
25 lines
698 B
Perl
25 lines
698 B
Perl
local f = assert(io.popen("uname", 'r'))
|
|
local s = assert(f:read('*a'))
|
|
f:close()
|
|
|
|
if s~="Darwin\n" then
|
|
print("Warning, not running test b/c this isn't a mac")
|
|
else
|
|
|
|
local OC = require("lib/objc")
|
|
|
|
terra main()
|
|
OC.NSAutoreleasePool:new()
|
|
var str = OC.NSString:stringWithUTF8String("the number of hacks is overwhelming...")
|
|
var err = OC.NSError:errorWithDomain_code_userInfo(str,12,nil)
|
|
var alert = OC.NSAlert:alertWithError(err)
|
|
|
|
var imgname = OC.NSString:stringWithUTF8String("foo.png")
|
|
var img = OC.NSImage:alloc():initByReferencingFile(imgname)
|
|
alert:setIcon(img)
|
|
alert:runModal()
|
|
end
|
|
|
|
terralib.saveobj("objc",{main = main}, { "-framework", "Foundation", "-framework", "Cocoa" })
|
|
|
|
end |