アプリケーションのDockアイコンに文字列をバッジ表示（５文字まで）

AppleScript名：アプリケーションのDockアイコンに文字列をバッジ表示（５文字まで）

use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "AppKit" –初版では入っておらず、環境によってはクラッシュした。後から追記

showDockBadge_("")

delay 1

showDockBadge_("77777") –Max 5 文字

delay 5

showDockBadge_("")

–Dockのアプリケーションアイコンに指定文字をバッジ表示
on showDockBadge:theText
　　set theDockTile to current application’s NSApp’s dockTile()
　　theDockTile’s setBadgeLabel:theText
　　theDockTile’s display()
end showDockBadge: