–v1：Convert Pages version to Keynote

property NSView : a reference to current application’s NSView
property NSColor : a reference to current application’s NSColor
property NSArray : a reference to current application’s NSArray
property NSMenu : a reference to current application’s NSMenu
property NSImage : a reference to current application’s NSImage
property NSScreen : a reference to current application’s NSScreen
property NSButton : a reference to current application’s NSButton
property NSWindow : a reference to current application’s NSWindow
property NSTextField : a reference to current application’s NSTextField
property NSMenuItem : a reference to current application’s NSMenuItem
property NSBezierPath : a reference to current application’s NSBezierPath
property NSPopUpButton : a reference to current application’s NSPopUpButton
property NSWindowController : a reference to current application’s NSWindowController
property NSTitledWindowMask : a reference to current application’s NSTitledWindowMask
property NSRoundedBezelStyle : a reference to current application’s NSRoundedBezelStyle
property NSFloatingWindowLevel : a reference to current application’s NSFloatingWindowLevel
property NSBackingStoreBuffered : a reference to current application’s NSBackingStoreBuffered
property NSMomentaryLightButton : a reference to current application’s NSMomentaryLightButton

property windisp : true
property wController : missing value
property pop1ind : 1

–初期化
set (my windisp) to true
set (my pop1ind) to 1
load framework

–Pagesの1ページ目にある表の塗り色を取得
tell application "Keynote"
　　tell front document
　　　　tell current slide
　　　　　　tell table 1
　　　　　　　　set c1List to background color of every cell
　　　　　　　　set aProp to properties
　　　　　　　　set xCount to column count of aProp
　　　　　　end tell
　　　　end tell
　　end tell
end tell

–Convert 1D List to 2D List
set c3List to (current application’s SMSForder’s subarraysFrom:c1List groupedBy:xCount |error|:(missing value)) as list

–色データをユニーク化（重複削除）
set bList to uniquifyList(c1List) of me

–missing value（背景色なし）を除外する
set c2List to (current application’s SMSForder’s arrayByDeletingBlanksIn:(bList)) as list

–Popup Menuで置換色選択
set paramObj to {c2List, 65535, "OK", "Select Target Color", 180} –Timeout = 180 sec, Color val range = 16bit
my performSelectorOnMainThread:"getPopupValues:" withObject:(paramObj) waitUntilDone:true
if pop1ind = false then return –timed out
set fromCol to (contents of item pop1ind of c2List)

–カラーピッカーで置換色選択
set tCol to choose color default color fromCol

set d1 to current date

–実際に表の背景色を置換する
set hitList to findDataFrom2DList(fromCol, c3List) of me –データ上で当該色のセル情報を計算する

–Rangeを横スキャンと縦スキャンの２通りで試算（Two way Simulation）
set rList1 to retRangeFromPosListHorizontal(hitList) of me –横方向へのrange評価
set rList2 to retRangeFromPosListVertival(hitList) of me –縦方向へのrange評価

–Simulationの結果、要素数の少ない方（＝処理時間の短い方＝高速な方）を採用する
log {"Simulation", (length of rList1), (length of rList2)}
if (length of rList1) < (length of rList2) then
　　copy rList1 to rangeList
else
　　copy rList2 to rangeList
end if

tell application "Keynote"
　　activate
　　tell front document
　　　　tell current slide
　　　　　　tell table 1
　　　　　　　　repeat with i in rangeList
　　　　　　　　　　set j to contents of i
　　　　　　　　　　
　　　　　　　　　　ignoring application responses –非同期実行モードで高速実行
　　　　　　　　　　　　set background color of range j to tCol
　　　　　　　　　　end ignoring
　　　　　　　　　　
　　　　　　　　end repeat
　　　　　　end tell
　　　　end tell
　　end tell
end tell

set d2 to current date
return d2 – d1

–カラーポップアップメニューをウィンドウ表示
on getPopupValues:paramObj
　　copy (paramObj as list) to {ap1List, aColMax, aButtonMSG, aSliderValMSG, timeOutSecs}
　　
　　set (my windisp) to true
　　
　　set aView to NSView’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, 0, 360, 100))
　　
　　–Labelをつくる
　　set a1TF to NSTextField’s alloc()’s initWithFrame:(current application’s NSMakeRect(30, 60, 80, 20))
　　a1TF’s setEditable:false
　　a1TF’s setStringValue:"Color:"
　　a1TF’s setDrawsBackground:false
　　a1TF’s setBordered:false
　　
　　–Ppopup Buttonをつくる
　　set a1Button to NSPopUpButton’s alloc()’s initWithFrame:(current application’s NSMakeRect(80, 60, 200, 20)) pullsDown:false
　　a1Button’s removeAllItems()
　　
　　set a1Menu to NSMenu’s alloc()’s init()
　　set aCDB to current application’s DBColorNames’s alloc()’s init()
　　
　　set iCount to 1
　　repeat with i in ap1List
　　　　copy i to {r1, g1, b1}
　　　　
　　　　set nsCol to makeNSColorFromRGBAval(r1, g1, b1, aColMax, aColMax) of me
　　　　set anImage to makeRoundedNSImageWithFilledWithColor(64, 64, nsCol, 4) of me
　　　　
　　　　set aTitle to "#" & (iCount as string) & " " & (aCDB’s nameForColor:nsCol) as string
　　　　set aMenuItem to (NSMenuItem’s alloc()’s initWithTitle:aTitle action:"actionHandler:" keyEquivalent:"")
　　　　(aMenuItem’s setImage:anImage)
　　　　(aMenuItem’s setEnabled:true)
　　　　(a1Menu’s addItem:aMenuItem)
　　　　
　　　　set iCount to iCount + 1
　　end repeat
　　
　　a1Button’s setMenu:a1Menu
　　
　　
　　–Buttonをつくる
　　set bButton to (NSButton’s alloc()’s initWithFrame:(current application’s NSMakeRect(80, 10, 140, 40)))
　　bButton’s setButtonType:(NSMomentaryLightButton)
　　bButton’s setBezelStyle:(NSRoundedBezelStyle)
　　bButton’s setTitle:aButtonMSG
　　bButton’s setTarget:me
　　bButton’s setAction:("clicked:")
　　bButton’s setKeyEquivalent:(return)
　　
　　aView’s addSubview:a1TF
　　
　　aView’s addSubview:a1Button
　　aView’s addSubview:bButton
　　aView’s setNeedsDisplay:true
　　
　　–NSWindowControllerを作ってみた（いらない？）
　　set aWin to (my makeWinWithView(aView, 300, 100, aSliderValMSG))
　　
　　set wController to NSWindowController’s alloc()
　　wController’s initWithWindow:aWin
　　
　　wController’s showWindow:me
　　
　　set aCount to timeOutSecs * 100
　　
　　set hitF to false
　　repeat aCount times
　　　　if (my windisp) = false then
　　　　　　set hitF to true
　　　　　　exit repeat
　　　　end if
　　　　delay 0.01
　　　　set aCount to aCount – 1
　　end repeat
　　
　　my closeWin:aWin
　　
　　if hitF = true then
　　　　set s1Val to ((a1Button’s indexOfSelectedItem() as number) + 1)
　　else
　　　　set s1Val to false
　　end if
　　
　　copy s1Val to my pop1ind
　　
end getPopupValues: