使用ApplescriptObjc处理NSWindow和NSTextview视图

use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "AppKit"

script AppDelegate
    property parent : class "NSObject"

    on applicationWillFinishLaunching_(aNotification)
        -- 创建窗口
        set mainWindow to current application's NSWindow's alloc()'s initWithContentRect:{{0, 0}, {400, 300}} styleMask:(current application's NSTitledWindowMask + current application's NSClosableWindowMask) backing:(current application's NSBackingStoreBuffered) defer:false
        mainWindow's setTitle:"My App"
        
        -- 创建文本视图
        set textView to current application's NSTextView's alloc()'s initWithFrame:mainWindow's contentView()'s bounds()
        textView's setEditable:true
        textView's setSelectable:true
        textView's setFont:(current application's NSFont's fontWithName:"Helvetica" |size|:14)
        
        -- 将文本视图添加到窗口
        (mainWindow's contentView())'s addSubview:textView
        
        -- 显示窗口
        mainWindow's makeKeyAndOrderFront:(missing value)
    end applicationWillFinishLaunching_
end script

-- 创建应用程序代理
set theAppDelegate to AppDelegate's alloc()'s init()

-- 运行应用程序
current application's NSApplication's sharedApplication's setDelegate:theAppDelegate
current application's NSApplication's sharedApplication's run()