property windisp : false
property wController : false

set fieldList to {"field １", "field 2", "field 3", "field 4", "field 5", "field 6", "field 7", "field 8", "field 9", "field 10"}
–set fieldList to {"field １", "field 2"}
set aButtonMSG to "OK"
set aWinTitle to "Multiple Text Field Input"
set aVal to getMultiTextFieldValues(fieldList, aWinTitle, aButtonMSG, 180) of me

on getMultiTextFieldValues(fieldList, aWinTitle, aButtonMSG, timeOutSecs)
　　set (my windisp) to false
　　set fLen to (length of fieldList) + 1
　　
　　set aView to current application’s NSView’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, 0, 360, (20 * fLen)))
　　
　　set a1y to (30 * fLen)
　　set tList to {}
　　
　　repeat with i in fieldList
　　　　set a1TF to (current application’s NSTextField’s alloc()’s initWithFrame:(current application’s NSMakeRect(60, a1y, 80, 20)))
　　　　(a1TF’s setEditable:false)
　　　　(a1TF’s setStringValue:(i as string))
　　　　(a1TF’s setDrawsBackground:false)
　　　　(a1TF’s setBordered:false)
　　　　
　　　　set a2TF to (current application’s NSTextField’s alloc()’s initWithFrame:(current application’s NSMakeRect(140, a1y, 200, 20)))
　　　　(a2TF’s setEditable:true)
　　　　(a2TF’s setDrawsBackground:true)
　　　　(a2TF’s setBordered:true)
　　　　
　　　　(aView’s addSubview:a1TF)
　　　　(aView’s addSubview:a2TF)
　　　　
　　　　set the end of tList to a2TF
　　　　set a1y to a1y – 30
　　end repeat
　　
　　
　　–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:bButton
　　aView’s setNeedsDisplay:true
　　
　　–NSWindowControllerを作ってみた
　　set aWin to (my makeWinWithView(aView, 400, ((fLen + 1) * 30), aWinTitle))
　　set wController to current application’s NSWindowController’s alloc()
　　wController’s initWithWindow:aWin
　　
　　set (my windisp) to true
　　
　　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 aResList to {}
　　　　repeat with i in tList
　　　　　　set the end of aResList to (i’s stringValue()) as string
　　　　end repeat
　　else
　　　　return false
　　end if
　　
　　return aResList
　　
end getMultiTextFieldValues

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 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 setContentView:aView
　　
　　return aWin
end makeWinWithView

property NSMutableDictionary : a reference to current application’s NSMutableDictionary
property NSWindowCloseButton : a reference to current application’s NSWindowCloseButton
property NSScreen : a reference to current application’s NSScreen
property NSPredicate : a reference to current application’s NSPredicate
property NSDictionary : a reference to current application’s NSDictionary
property NSBackingStoreBuffered : a reference to current application’s NSBackingStoreBuffered
property NSMutableArray : a reference to current application’s NSMutableArray
property NSTitledWindowMask : a reference to current application’s NSTitledWindowMask
property NSString : a reference to current application’s NSString
property NSWindow : a reference to current application’s NSWindow
property NSNumber : a reference to current application’s NSNumber
property NSNormalWindowLevel : a reference to current application’s NSNormalWindowLevel
property QCView : a reference to current application’s QCView
property NSColor : a reference to current application’s NSColor
property NSWindowController : a reference to current application’s NSWindowController

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

set chartData to NSMutableArray’s new()

–chartData’s addObject:(NSMutableDictionary’s dictionaryWithObjectsAndKeys_("練馬区", "label", 3, "value", missing value))–older way (Obsolete in 10.13)
chartData’s addObject:(my recWithLabels:{"label", "value"} andValues:{"練馬区", 3})
chartData’s addObject:(my recWithLabels:{"label", "value"} andValues:{"青梅市", 1})
chartData’s addObject:(my recWithLabels:{"label", "value"} andValues:{"中野区", 2})

–上記データの最大値を求める
set aMaxRec to chartData’s filteredArrayUsingPredicate:(NSPredicate’s predicateWithFormat_("SELF.value == %@.@max.value", chartData))
set aMax to value of aMaxRec
set aMaxVal to (first item of aMax) as integer

–Scalingの最大値を求める
if aMaxVal ≥ 10 then
　　set aScaleMax to (10 div aMaxVal)
　　set aScaleMin to aScaleMax div 10
else
　　set aScaleMax to (10 / aMaxVal)
　　set aScaleMin to 1
end if

try
　　set aPath to path to resource "Chart.qtz"
on error
　　return
end try

set qtPath to NSString’s stringWithString:(POSIX path of aPath)

set aView to QCView’s alloc()’s init()
set qtRes to (aView’s loadCompositionFromFile:qtPath)

aView’s setValue:chartData forInputKey:"Data"
aView’s setValue:(NSNumber’s numberWithFloat:(0.5)) forInputKey:"Scale"
aView’s setValue:(NSNumber’s numberWithFloat:(0.2)) forInputKey:"Spacing"
aView’s setAutostartsRendering:true

set maXFrameRate to aView’s maxRenderingFrameRate()

(aView’s setValue:(NSNumber’s numberWithFloat:aScaleMax / 10) forInputKey:"Scale")

set aWin to (my makeWinWithView(aView, 800, 600, "AppleScript Composition Test"))

set wController to NSWindowController’s alloc()
wController’s initWithWindow:aWin
aWin’s makeFirstResponder:aView
wController’s showWindow:me

aWin’s makeKeyAndOrderFront:me

delay 5

my closeWin:aWin
aView’s stopRendering() –レンダリング停止

–make Window for Display
on makeWinWithView(aView, aWinWidth, aWinHeight, aTitle)
　　set aScreen to NSScreen’s mainScreen()
　　set aFrame to {{0, 0}, {aWinWidth, aWinHeight}}
　　
　　set aBacking to NSTitledWindowMask
　　
　　set aDefer to NSBackingStoreBuffered
　　
　　— Window
　　set aWin to NSWindow’s alloc()
　　(aWin’s initWithContentRect:aFrame styleMask:aBacking backing:aDefer defer:false screen:aScreen)
　　aWin’s setBackgroundColor:(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:(NSNormalWindowLevel)
　　aWin’s setOpaque:false
　　aWin’s setReleasedWhenClosed:true
　　aWin’s |center|()
　　aWin’s makeKeyAndOrderFront:(me)
　　–aWin’s movableByWindowBackground:true
　　
　　— Set Custom View
　　aWin’s setContentView:aView
　　
　　–Set Close Button　　
　　set closeButton to NSWindow’s standardWindowButton:(NSWindowCloseButton) forStyleMask:(NSTitledWindowMask)
　　
　　return aWin
end makeWinWithView

–close win
on closeWin:aWindow
　　repeat with n from 10 to 1 by -1
　　　　(aWindow’s setAlphaValue:n / 10)
　　　　delay 0.02
　　end repeat
　　aWindow’s |close|()
end closeWin:

on recWithLabels:theKeys andValues:theValues
　　return (NSDictionary’s dictionaryWithObjects:theValues forKeys:theKeys) as record
end recWithLabels:andValues:

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

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 {{65535, 0, 65535}, {0, 32896, 16448}, {0, 32896, 65535}, {19702, 31223, 40505}}

set aButtonMSG to "OK"
set aSliderValMSG to "Select Color"
set aVal to getPopupValues(ap1List, 65535, aButtonMSG, aSliderValMSG, 20) of me

on getPopupValues(ap1List, aColMax, 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, 100))
　　
　　–Labelをつくる
　　set a1TF to current application’s 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 current application’s NSPopUpButton’s alloc()’s initWithFrame:(current application’s NSMakeRect(80, 60, 200, 20)) pullsDown:false
　　a1Button’s removeAllItems()
　　
　　set a1Menu to current application’s NSMenu’s alloc()’s init()
　　
　　set iCount to 0
　　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 makeNSImageWithFilledWithColor(64, 16, nsCol) of me
　　　　
　　　　set aTitle to "col_test_" & (iCount as string)
　　　　set aMenuItem to (current application’s 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 (current application’s NSButton’s alloc()’s initWithFrame:(current application’s NSMakeRect(80, 10, 140, 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:a1Button
　　aView’s addSubview:bButton
　　aView’s setNeedsDisplay:true
　　
　　–NSWindowControllerを作ってみた（いらない？）
　　set aWin to (my makeWinWithView(aView, 300, 100, aSliderValMSG))
　　
　　set wController to current application’s 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 titleOfSelectedItem() as string
　　else
　　　　set s1Val to false
　　end if
　　
　　return s1Val
　　
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

–close win
on closeWin:aWindow
　　repeat with n from 10 to 1 by -1
　　　　(aWindow’s setAlphaValue:n / 10)
　　　　delay 0.02
　　end repeat
　　aWindow’s |close|()
end closeWin:

–Popup Action Handler
on actionHandler:sender
　　set aTag to tag of sender as integer
　　set aTitle to title of sender as string
end actionHandler:

on makeNSColorFromRGBAval(redValue as integer, greenValue as integer, blueValue as integer, alphaValue as integer, aMaxVal as integer)
　　set aRedCocoa to (redValue / aMaxVal) as real
　　set aGreenCocoa to (greenValue / aMaxVal) as real
　　set aBlueCocoa to (blueValue / aMaxVal) as real
　　set aAlphaCocoa to (alphaValue / aMaxVal) as real
　　set aColor to current application’s NSColor’s colorWithCalibratedRed:aRedCocoa green:aGreenCocoa blue:aBlueCocoa alpha:aAlphaCocoa
　　return aColor
end makeNSColorFromRGBAval

–指定サイズの画像を作成し、指定色で塗ってファイル書き出し
on makeNSImageWithFilledWithColor(aWidth, aHeight, fillColor)
　　set anImage to current application’s NSImage’s alloc()’s initWithSize:(current application’s NSMakeSize(aWidth, aHeight))
　　anImage’s lockFocus()
　　—
　　set theRect to {{x:0, y:0}, {height:aHeight, width:aWidth}}
　　set theNSBezierPath to current application’s NSBezierPath’s bezierPath
　　theNSBezierPath’s appendBezierPathWithRect:theRect
　　—
　　fillColor’s |set|() –色設定
　　theNSBezierPath’s fill() –ぬりつぶし
　　—
　　anImage’s unlockFocus()
　　—
　　return anImage
end makeNSImageWithFilledWithColor

property windisp : false
property wController : false
property aSliderValMSG : ""

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

set aMaxVal to 10
set aButtonMSG to "OK"
set aSliderValMSG to "スライダーの設定値："
set aVal to getSliderValue(aMaxVal, aButtonMSG, aSliderValMSG) of me

on getSliderValue(aMaxVal, aButtonMSG, aSliderValMSG)
　　set (my windisp) to true
　　set (my aSliderValMSG) to aSliderValMSG
　　
　　set aView to current application’s NSSplitView’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, 0, 360, 40))
　　aView’s setVertical:false
　　
　　–Sliderをつくる
　　set aSlider to makeSider(aMaxVal) of me
　　
　　–Buttonをつくる
　　set bButton to (current application’s NSButton’s alloc()’s init())
　　bButton’s setTitle:aButtonMSG
　　bButton’s setTarget:me
　　bButton’s setAction:("clicked:")
　　
　　bButton’s setKeyEquivalent:(return) –キーボードショートカット（リターンキー）
　　
　　aView’s addSubview:aSlider
　　aView’s addSubview:bButton
　　aView’s setNeedsDisplay:true
　　
　　–NSWindowControllerを作ってみた
　　set aWin to (my makeWinWithView(aView, 400, 80, aSliderValMSG & (aMaxVal div 2) as string))
　　set wController to current application’s NSWindowController’s alloc()
　　wController’s initWithWindow:aWin
　　wController’s showWindow:me
　　
　　set aCount to 1800
　　repeat aCount times
　　　　if (my windisp) = false then
　　　　　　exit repeat
　　　　end if
　　　　delay 0.1
　　　　set aCount to aCount – 1
　　end repeat
　　
　　my closeWin:aWin
　　
　　set sVal to aSlider’s intValue()
　　return sVal
end getSliderValue

on sliderChanged:aSender
　　set aVal to aSender’s intValue()
　　set parentWin to aSender’s |window|()
　　parentWin’s setTitle:(my aSliderValMSG & (aVal as text))
end sliderChanged:

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

–close win
on closeWin:aWindow
　　repeat with n from 10 to 1 by -1
　　　　(aWindow’s setAlphaValue:n / 10)
　　　　delay 0.02
　　end repeat
　　aWindow’s |close|()
end closeWin:

property |NSURL| : a reference to current application’s |NSURL|
property NSData : a reference to current application’s NSData
property NSView : a reference to current application’s NSView
property NSString : a reference to current application’s NSString
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 MKMapView : a reference to current application’s MKMapView
property NSURLRequest : a reference to current application’s NSURLRequest
property NSURLConnection : a reference to current application’s NSURLConnection
property NSJSONSerialization : a reference to current application’s NSJSONSerialization
property NSWindowController : a reference to current application’s NSWindowController
property NSUTF8StringEncoding : a reference to current application’s NSUTF8StringEncoding

property windisp : false
property theDataSource : {}

on run
　　my performSelectorOnMainThread:"disp:" withObject:(missing value) waitUntilDone:true
end run

on disp:aParam
　　set aWidth to 400
　　set aHeight to 200
　　
　　set aDic to {{field1:"test 10", field2:"test 20"}, {field1:"test 11", field2:"test 21"}, {field1:"test 12", field2:"test 22"}, {field1:"test 13", field2:"test 23"}, {field1:"test 14", field2:"test 24"}, {field1:"test 15", field2:"test 25"}, {field1:"test 16", field2:"test 26"}, {field1:"test 17", field2:"test 27"}, {field1:"test 18", field2:"test 28"}, {field1:"test 19", field2:"test 29"}, {field1:"test 10", field2:"test 20"}, {field1:"test 11", field2:"test 21"}, {field1:"test 12", field2:"test 22"}, {field1:"test 13", field2:"test 23"}, {field1:"test 14", field2:"test 24"}, {field1:"test 15", field2:"test 25"}, {field1:"test 16", field2:"test 26"}, {field1:"test 17", field2:"test 27"}, {field1:"test 18", field2:"test 28"}, {field1:"test 19", field2:"test 29"}}
　　
　　dispTableView(aWidth, aHeight, "Result", "OK", 180, aDic) of me
end disp:

on dispTableView(aWidth as integer, aHeight as integer, aTitle as text, aButtonMSG as text, timeOutSecs as number, aDictList)
　　
　　–Check If this script runs in foreground
　　if not (current application’s NSThread’s isMainThread()) as boolean then
　　　　error "This script must be run from the main thread (Command-Control-R in Script Editor)."
　　end if
　　set (my windisp) to true
　　
　　
　　set aTableView to makeTableView(aDictList, aWidth, aHeight – 40) of me
　　
　　
　　–Buttonをつくる
　　set bButton to (NSButton’s alloc()’s initWithFrame:(current application’s NSMakeRect(aWidth / 4, 0, aWidth / 2, 40)))
　　bButton’s setTitle:aButtonMSG
　　bButton’s setButtonType:(current application’s NSMomentaryLightButton)
　　bButton’s setBezelStyle:(current application’s NSRoundedBezelStyle)
　　bButton’s setKeyEquivalent:(return)
　　bButton’s setTarget:me
　　bButton’s setAction:("clicked:")
　　
　　–NSViewをつくる
　　set aNSV to NSView’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, 0, aHeight, aWidth))
　　aNSV’s addSubview:aTableView
　　aNSV’s addSubview:bButton
　　aNSV’s setNeedsDisplay:true
　　
　　set aWin to makeWinWithView(aNSV, aWidth, aHeight, aTitle, 1.0)
　　
　　
　　set wController to NSWindowController’s alloc()
　　wController’s initWithWindow:aWin
　　aWin’s makeFirstResponder:aTableView
　　wController’s showWindow:me
　　
　　aWin’s makeKeyAndOrderFront:me
　　
　　set aCount to timeOutSecs * 10 –timeout seconds * 10
　　repeat aCount times
　　　　if (my windisp) = false then
　　　　　　exit repeat
　　　　end if
　　　　delay 0.1
　　end repeat
　　
　　my closeWin:aWin
　　
end dispTableView

–Button Clicked Event Handler
on clicked:aSender
　　set (my windisp) to false
end clicked:

–make Window for Input
on makeWinWithView(aView, aWinWidth, aWinHeight, aTitle, alphaV)
　　set aScreen to 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 NSWindow’s alloc()
　　(aWin’s initWithContentRect:aFrame styleMask:aBacking backing:aDefer defer:false screen:aScreen)
　　
　　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 setAlphaValue:alphaV –append
　　aWin’s setReleasedWhenClosed:true
　　aWin’s |center|()
　　aWin’s makeKeyAndOrderFront:(me)
　　
　　— Set Custom View
　　aWin’s setContentView:aView
　　
　　return aWin
end makeWinWithView

–close win
on closeWin:aWindow
　　repeat with n from 10 to 1 by -1
　　　　(aWindow’s setAlphaValue:n / 10)
　　　　delay 0.02
　　end repeat
　　aWindow’s |close|()
end closeWin:

–TableView Event Handlers
on numberOfRowsInTableView:aView
　　return my theDataSource’s |count|()
end numberOfRowsInTableView:

on tableView:aView objectValueForTableColumn:aColumn row:aRow
　　set aRec to (my theDataSource)’s objectAtIndex:(aRow as number)
　　set aTitle to (aColumn’s headerCell()’s title()) as string
　　set aRes to (aRec’s valueForKey:aTitle)
　　return aRes
end tableView:objectValueForTableColumn:row:

on makeTableView(aDicList, aWidth, aHeight)
　　set aOffset to 40
　　set theDataSource to current application’s NSMutableArray’s alloc()’s init()
　　theDataSource’s addObjectsFromArray:aDicList
　　
　　set aScroll to current application’s NSScrollView’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, aOffset, aWidth, aHeight))
　　set aView to current application’s NSTableView’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, aOffset, aWidth, aHeight))
　　
　　set aFirstRec to current application’s NSDictionary’s dictionaryWithDictionary:(first item of (aDicList as list))
　　set keyList to (aFirstRec’s allKeys()) as list
　　set aLen to length of keyList
　　
　　repeat with i in keyList
　　　　set j to contents of i
　　　　set aColumn to (current application’s NSTableColumn’s alloc()’s initWithIdentifier:j)
　　　　(aColumn’s setWidth:(aWidth div aLen))
　　　　(aColumn’s headerCell()’s setStringValue:j)
　　　　(aView’s addTableColumn:aColumn)
　　end repeat
　　
　　aView’s setDelegate:me
　　aView’s setDataSource:me
　　aView’s reloadData()
　　
　　aScroll’s setDocumentView:aView
　　aView’s enclosingScrollView()’s setHasVerticalScroller:true
　　
　　–１行目を選択
　　set aIndexSet to current application’s NSIndexSet’s indexSetWithIndex:0
　　aView’s selectRowIndexes:aIndexSet byExtendingSelection:false
　　
　　–強制的にトップにスクロール
　　–set maxHeight to aScroll’s documentView()’s |bounds|()’s |size|()’s height
　　set aDBounds to aScroll’s documentView()’s |bounds|()
　　if class of aDBounds = list then
　　　　–macOS 10.13 or later
　　　　set maxHeight to item 2 of item 1 of aDBounds
　　else
　　　　–macOS 10.10….10.12
　　　　set maxHeight to height of |size| of aDBounds
　　end if
　　
　　
　　set aPT to current application’s NSMakePoint(0.0, -40.0) —— (aScroll’s documentView()’s |bounds|()’s |size|()’s height))
　　aScroll’s documentView()’s scrollPoint:aPT
　　
　　return aScroll
end makeTableView

property windisp : false
property aPBar : missing value

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

set aMaxVal to 100
set aButtonMSG to "Abort"
set aTitle to "現在進行中…"
set aWin to makeProgressWindow(aMaxVal, aButtonMSG, aTitle) of me

repeat with i from 1 to aMaxVal by 1
　　if (my windisp) = false then
　　　　exit repeat
　　end if
　　(aPBar’s setDoubleValue:(i as real))
　　delay 0.01
end repeat