如何在ApplescriptObjC中正确使用复选框？

set checkboxButton to current application's NSButton's alloc()'s initWithFrame:(current application's NSMakeRect(0, 0, 100, 20))
checkboxButton's setButtonType:(current application's NSSwitchButton)
checkboxButton's setTitle:"复选框"

checkboxButton's setChecked_(true)

-- 创建处理复选框状态变化的方法
on checkboxStateChanged_(sender)
    set isChecked to (sender's state() as boolean)
    if isChecked then
        display dialog "复选框被选中了！"
    else
        display dialog "复选框被取消选中！"
    end if
end checkboxStateChanged_

-- 将复选框与方法关联
checkboxButton's setTarget:(me)
checkboxButton's setAction:"checkboxStateChanged:"

-- 获取当前窗口
set currentWindow to current application's NSApp's mainWindow()

-- 将复选框添加到窗口
(currentWindow's contentView()'s addSubview:checkboxButton)