property windisp : false
property wController : false

if current application’s AEInteractWithUser(-1, missing value, missing value) is not equal to 0 then return

set ap1List to {"Alpha", "Bravo", "Charlie", "Delta", "Echo", "Foxtrot", "Golf", "Hotel", "India"}
set ap2List to {"Juliett", "Kilo", "Lima", "Mike", "November", "Oscar", "Papa", "Quebec", "Romeo"}

set aButtonMSG to "OK"
set aSliderValMSG to "Numbers上の値を交換するセルの選択"
set aVal to getPopupValues(ap1List, ap2List, aButtonMSG, aSliderValMSG, 20) of me
–>　　{​​​​​"Alpha", ​​​​​"Kilo"​​​}–操作した場合
–>　　{false, false}–タイムアウト時

on getPopupValues(ap1List, ap2List, aButtonMSG, aSliderValMSG, timeOutSecs)
　　
　　set (my windisp) to true
　　
　　set aView to current application’s NSView’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, 0, 360, 120))
　　
　　–Labelをつくる
　　set a1TF to current application’s NSTextField’s alloc()’s initWithFrame:(current application’s NSMakeRect(60, 110, 80, 20))
　　set a2TF to current application’s NSTextField’s alloc()’s initWithFrame:(current application’s NSMakeRect(60, 70, 80, 20))
　　a1TF’s setEditable:false
　　a2TF’s setEditable:false
　　a1TF’s setStringValue:"移動前："
　　a2TF’s setStringValue:"移動後："
　　a1TF’s setDrawsBackground:false
　　a2TF’s setDrawsBackground:false
　　a1TF’s setBordered:false
　　a2TF’s setBordered:false
　　
　　–Ppopup Buttonをつくる
　　set a1Button to current application’s NSPopUpButton’s alloc()’s initWithFrame:(current application’s NSMakeRect(140, 110, 180, 20)) pullsDown:false
　　set a2Button to current application’s NSPopUpButton’s alloc()’s initWithFrame:(current application’s NSMakeRect(140, 70, 180, 20)) pullsDown:false
　　
　　a1Button’s removeAllItems()
　　a2Button’s removeAllItems()
　　
　　a1Button’s addItemsWithTitles:ap1List
　　a2Button’s addItemsWithTitles:ap2List
　　
　　
　　–Buttonをつくる
　　set bButton to (current application’s NSButton’s alloc()’s initWithFrame:(current application’s NSMakeRect(110, 10, 180, 40)))
　　bButton’s setButtonType:(current application’s NSMomentaryLightButton)
　　bButton’s setBezelStyle:(current application’s NSRoundedBezelStyle)
　　bButton’s setTitle:aButtonMSG
　　bButton’s setTarget:me
　　bButton’s setAction:("clicked:")
　　bButton’s setKeyEquivalent:(return)
　　
　　aView’s addSubview:a1TF
　　aView’s addSubview:a2TF
　　
　　aView’s addSubview:a1Button
　　aView’s addSubview:a2Button
　　aView’s addSubview:bButton
　　aView’s setNeedsDisplay:true
　　
　　–NSWindowControllerを作ってみた
　　set aWin to (my makeWinWithView(aView, 400, 160, aSliderValMSG))
　　set wController to current application’s NSWindowController’s alloc()
　　wController’s initWithWindow:aWin
　　
　　wController’s showWindow:me
　　
　　set aCount to timeOutSecs * 10
　　
　　set hitF to false
　　repeat aCount times
　　　　if (my windisp) = false then
　　　　　　set hitF to true
　　　　　　exit repeat
　　　　end if
　　　　delay 0.1
　　　　set aCount to aCount – 1
　　end repeat
　　
　　my closeWin:aWin
　　
　　if hitF = true then
　　　　set s1Val to a1Button’s titleOfSelectedItem() as string
　　　　set s2Val to a2Button’s titleOfSelectedItem() as string
　　else
　　　　set {s1Val, s2Val} to {false, false}
　　end if
　　
　　return {s1Val, s2Val}
　　
end getPopupValues

on clicked:aSender
　　set (my windisp) to false
end clicked:

–make Window for Display
on makeWinWithView(aView, aWinWidth, aWinHeight, aTitle)
　　set aScreen to current application’s NSScreen’s mainScreen()
　　set aFrame to {{0, 0}, {aWinWidth, aWinHeight}}
　　
　　set aBacking to current application’s NSTitledWindowMask
　　
　　set aDefer to current application’s NSBackingStoreBuffered
　　
　　— Window
　　set aWin to current application’s NSWindow’s alloc()
　　(aWin’s initWithContentRect:aFrame styleMask:aBacking backing:aDefer defer:false screen:aScreen)
　　–aWin’s setBackgroundColor:(current application’s NSColor’s whiteColor())
　　
　　aWin’s setTitle:aTitle
　　aWin’s setDelegate:me
　　aWin’s setDisplaysWhenScreenProfileChanges:true
　　aWin’s setHasShadow:true
　　aWin’s setIgnoresMouseEvents:false
　　aWin’s setLevel:(current application’s NSNormalWindowLevel)
　　aWin’s setOpaque:false
　　aWin’s setReleasedWhenClosed:true
　　aWin’s |center|()
　　–aWin’s makeKeyAndOrderFront:(me)
　　
　　aWin’s setContentView:aView
　　
　　return aWin
　　
end makeWinWithView