Tomotaka SUWA
t-suw****@users*****
2006年 1月 19日 (木) 22:59:26 JST
Index: RemoveAquaSKK/ChangeLog diff -u /dev/null RemoveAquaSKK/ChangeLog:1.1 --- /dev/null Thu Jan 19 22:59:26 2006 +++ RemoveAquaSKK/ChangeLog Thu Jan 19 22:59:26 2006 @@ -0,0 +1,3 @@ +2006-01-19 Tomotaka SUWA <t.suw****@mac*****> + + * RemoveAquaSKK: 削除ツール。AppleScript は初めて ;-) Index: RemoveAquaSKK/Info.plist diff -u RemoveAquaSKK/Info.plist:1.1.1.1 RemoveAquaSKK/Info.plist:1.2 --- RemoveAquaSKK/Info.plist:1.1.1.1 Wed Jan 18 22:54:57 2006 +++ RemoveAquaSKK/Info.plist Thu Jan 19 22:59:26 2006 @@ -2,8 +2,6 @@ <!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd"> <plist version="1.0"> <dict> - <key>CFBundleName</key> - <string>${PRODUCT_NAME}</string> <key>CFBundleDevelopmentRegion</key> <string>English</string> <key>CFBundleExecutable</key> @@ -11,15 +9,17 @@ <key>CFBundleIconFile</key> <string></string> <key>CFBundleIdentifier</key> - <string>com.apple.ASApplication</string> + <string>jp.sourceforge.RemoveAquaSKK</string> <key>CFBundleInfoDictionaryVersion</key> <string>6.0</string> + <key>CFBundleName</key> + <string>${PRODUCT_NAME}</string> <key>CFBundlePackageType</key> <string>APPL</string> <key>CFBundleShortVersionString</key> <string>1.4</string> <key>CFBundleSignature</key> - <string>????</string> + <string>askk</string> <key>CFBundleVersion</key> <string>0.1</string> <key>NSAppleScriptEnabled</key> Index: RemoveAquaSKK/RemoveAquaSKK.applescript diff -u RemoveAquaSKK/RemoveAquaSKK.applescript:1.1.1.1 RemoveAquaSKK/RemoveAquaSKK.applescript:1.2 --- RemoveAquaSKK/RemoveAquaSKK.applescript:1.1.1.1 Wed Jan 18 22:54:57 2006 +++ RemoveAquaSKK/RemoveAquaSKK.applescript Thu Jan 19 22:59:26 2006 @@ -1,9 +1,10 @@ -- RemoveAquaSKK.applescript -- RemoveAquaSKK --- Created by ?? ?? on 06/01/08. --- Copyright 2006 __MyCompanyName__. All rights reserved. +-- Created by Tomotaka SUWA <t.suw****@mac*****> on 06/01/08. +-- Copyright 2006 AquaSKK Project All rights reserved. +-- vpeB property pathForComponent : "/Library/Components" property pathForAquaSKK : pathForComponent & "/AquaSKKInputMethod.component" property pathForData : "~/Library/AquaSKK" @@ -11,6 +12,7 @@ property pathForPrefs : "~/Library/Preferences/" & pathForDefaults & ".plist" on clicked theObject + -- uJvÌnhO if name of theObject = "openAquaSKK" then do shell script "open " & pathForComponent return @@ -24,36 +26,38 @@ return end if + -- uí...vÌnhO tell window of theObject (* IvVðæ¾ *) - set opt_aquaskk to state of button "opt_aquaskk" as number - set opt_data to state of button "opt_data" as number - set opt_pref to state of button "opt_pref" as number + set optAquaSKK to state of button "optAquaSKK" as number + set optData to state of button "optData" as number + set optPrefs to state of button "optPrefs" as number end tell - if opt_aquaskk + opt_data + opt_pref > 0 then + if optAquaSKK + optData + optPrefs > 0 then display dialog "{ÉíµÄàæ뵢ŷ©?" default button 1 else - display alert "ð~µÜµ½" as informational message "íÎÛðIðµÄº³¢" + display alert "ð~µÜµ½" as informational message "í·éR|[lgðIðµÄº³¢" return end if - if opt_aquaskk = 1 then + -- wè³ê½R|[lgðí·é + if optAquaSKK = 1 then do shell script "rm -fr " & pathForAquaSKK with administrator privileges log "RemoveAquaSKK: removed " & pathForAquaSKK end if - if opt_data = 1 then + if optData = 1 then do shell script "rm -fr " & pathForData log "RemoveAquaSKK: removed " & pathForData end if - if opt_pref = 1 then + if optPrefs = 1 then try do shell script "defaults delete " & pathForDefaults end try log "RemoveAquaSKK: removed " & pathForDefaults end if - display alert "í®¹" as informational message "AquaSKK ðíµÜµ½" + display alert "í®¹" as informational message "Ið³ê½R|[lgðíµÜµ½" end clicked on should quit after last window closed @@ -61,11 +65,16 @@ end should quit after last window closed on awake from nib theObject - try - tell window of theObject - set content of text field "pathForAquaSKK" to pathForAquaSKK of me - set content of text field "pathForData" to pathForData of me - set content of text field "pathForPrefs" to pathForPrefs of me - end tell - end try + -- úlÌÝè + tell window of theObject + if name of theObject = "pathForAquaSKK" then + set content of text field "pathForAquaSKK" to pathForAquaSKK + end if + if name of theObject = "pathForData" then + set content of text field "pathForData" to pathForData + end if + if name of theObject = "pathForPrefs" then + set content of text field "pathForPrefs" to pathForPrefs + end if + end tell end awake from nib