script AppDelegate
　　property parent : class "NSObject"
　　
　　— IBOutlets
　　property theWindow : missing value
　　property aView : missing value
　　property maxPageNum : 0
　　property curPageIndex : 0
　　property aPDFDoc : missing value
　　property pLabelField : missing value
　　
　　
　　on applicationWillFinishLaunching:aNotification
　　end applicationWillFinishLaunching:
　　
　　on applicationShouldTerminate:sender
　　　　return current application’s NSTerminateNow
　　end applicationShouldTerminate:
　　
　　
　　on clicked:aSender
　　　　set aTag to (tag of aSender) as integer
　　　　
　　　　if aTag = 100 then
　　　　　　set aPath to choose file of type {"com.adobe.pdf"}
　　　　　　
　　　　　　set pPath to POSIX path of aPath
　　　　　　set aURL to current application’s |NSURL|’s fileURLWithPath:pPath
　　　　　　set my aPDFDoc to current application’s PDFDocument’s alloc()’s initWithURL:aURL
　　　　　　
　　　　　　set myFileName to (current application’s NSString’s stringWithString:pPath)’s lastPathComponent()
　　　　　　theWindow’s setTitle:myFileName
　　　　　　
　　　　　　set maxPageNum to ((aPDFDoc’s pageCount()) as integer) – 1
　　　　　　set curPageIndex to 0
　　　　　　
　　　　　　log {"maxPageNum", maxPageNum}
　　　　　　
　　　　　　aView’s setAutoScales:true
　　　　　　aView’s setDisplaysPageBreaks:true
　　　　　　
　　　　　　my dispCurPageDoc()
　　　　　　set tmpStr to ((maxPageNum + 1) as string) & "/" & ((curPageIndex + 1) as string)
　　　　　　pLabelField’s setStringValue:tmpStr
　　　　　　
　　　　else if aTag = 200 then
　　　　　　
　　　　　　set tmpPage to my (aPDFDoc’s pageAtIndex:(curPageIndex))
　　　　　　set curPageLabel to tmpPage’s label()
　　　　　　
　　　　　　tell current application
　　　　　　　　display dialog (curPageLabel as string)
　　　　　　end tell
　　　　　　
　　　　else if aTag = 1000 then
　　　　　　my decPage()
　　　　　　my dispCurPageDoc()
　　　　　　
　　　　else if aTag = 1010 then
　　　　　　my incPage()
　　　　　　my dispCurPageDoc()
　　　　　　
　　　　end if
　　　　
　　end clicked:
　　
　　on dispCurPageDoc()
　　　　set tmpPage to my (aPDFDoc’s pageAtIndex:(curPageIndex))
　　　　set tmpDoc to (current application’s PDFDocument’s alloc()’s initWithData:(tmpPage’s dataRepresentation()))
　　　　aView’s setDocument:tmpDoc
　　　　
　　　　set tmpStr to ((maxPageNum + 1) as string) & "/" & ((curPageIndex + 1) as string)
　　　　pLabelField’s setStringValue:tmpStr
　　end dispCurPageDoc
　　
　　
　　on incPage()
　　　　if curPageIndex = maxPageNum then
　　　　　　–何もしない
　　　　else if curPageIndex < maxPageNum then
　　　　　　set curPageIndex to curPageIndex + 1
　　　　end if
　　end incPage
　　
　　on decPage()
　　　　if curPageIndex = 0 then
　　　　　　–何もしない
　　　　else if curPageIndex > 0 then
　　　　　　set curPageIndex to curPageIndex – 1
　　　　end if
　　end decPage
end script

★Click Here to Open This Script