Macのワープロソフト 総合スレッド part2

縦書き、原稿用紙モード、罫線、ルビ、レイアウト、印刷……

求める機能は人それぞれだけど
「テキストエディタじゃ物足りない」 「DTPソフトじゃ大げさすぎる」
そんなこんなで悶々とするスレ

「Boot Campや仮想化ソフトでWindows版一太郎を使う」とか
「最初からInDesignで書く」とか……わかっちゃいるけど。

■紹介・各ソフトへのリンクなど（ワードプロセッサのジャンルが無いのでエディタに集約）
アップル - Mac OS X - ダウンロード > 文書作成
http://www.apple.com/jp/downloads/macosx/text/
ベクター　Download: Mac用 > 文書作成 > テキストエディタ
http://www.vector.co.jp/vpack/filearea/mac/writing/edit/
OSX Freewares > テキスト
http://www16.plala.or.jp/x-tomo/Pages/text.html
dps mac Free Software news > 文書作成
http://dpsmac.com/category/editor
お気に入りのアプリケーション検索 > OSX > テキストエディタ
http://favorite-app.net/Mac/text/text.html
Macの手書き説明書 > テキスト エディタ
http://veadardiary.blog29.fc2.com/blog-category-47.html

--iTextProでのページ移動
--やりたい操作「ページ進む」か「ページ戻る」を設定（OS10.6.8でのみ動作確認）
property iTextPageControl : "ページ進む"
--property iTextPageControl : "ページ戻る"

tell application "System Events"
if application process "iText Pro" exists then

tell process "iText Pro"

--アプリウインドウを最前面に出す
set frontmost to true

if window 1 exists then
--ウインドウズームサイズのポップアップボタンの位置を取得し、そこからx:75, y:5ずらした座標（＝クリックしたい位置）を設定
set buttonPos to position of pop up button 1 of scroll area 1 of window 1
set xPos to (item 1 of buttonPos) + 75
set yPos to (item 2 of buttonPos) + 5

if iTextPageControl is "ページ進む" then
my left_click(xPos, yPos)
else if iTextPageControl is "ページ戻る" then
my right_click(xPos, yPos)
end if
end if

end tell

end if
end tell
--（まだ続きます）

--マウスクリックイベントに関して、以下のサイトのライブラリを使用しています
--http://d.hatena.ne.jp/zariganitosh/20120126/library_mouse_scpt
property kCGMouseButtonLeft : 0
property kCGMouseButtonRight : 1
property kCGEventLeftMouseDown : 1
property kCGEventLeftMouseUp : 2
property kCGEventRightMouseDown : 3
property kCGEventRightMouseUp : 4
property kCGMouseEventClickState : 1

on CGEventPost(CGEventType, x, y, CGMouseButton, click_count, CGEventFlags)
set ruby_cocoa to "require 'osx/cocoa'
loc=OSX::CGEventGetLocation(OSX::CGEventCreate(nil))
x=eval('" & x & "'.sub(/m/,loc.x.to_s))
y=eval('" & y & "'.sub(/m/,loc.y.to_s))
point=OSX::CGPointMake(x,y)
event=OSX::CGEventCreateMouseEvent(nil, " & CGEventType & ", point, " & CGMouseButton & ")
OSX::CGEventSetIntegerValueField(event, " & kCGMouseEventClickState & ", " & click_count & ")
OSX::CGEventSetFlags(event, " & CGEventFlags & ")
OSX::CGEventPost(0,event)"
do shell script "/usr/bin/ruby -e " & quoted form of ruby_cocoa
end CGEventPost
--（まだ続きます）

--左クリックする
on left_click(x, y)
modifire_left_click(x, y, 1, 0)
end left_click

--右クリックする
on right_click(x, y)
modifire_right_click(x, y, 1, 0)
end right_click


--修飾キーを押しながら、左ボタンをクリック・ダブルクリック等する
on modifire_left_click(x, y, click_count, modifire_key)
CGEventPost(kCGEventLeftMouseDown, x, y, kCGMouseButtonLeft, click_count, modifire_key)
delay 0.5
CGEventPost(kCGEventLeftMouseUp, "m", "m", kCGMouseButtonLeft, click_count, modifire_key)
end modifire_left_click

--修飾キーを押しながら、右ボタンをクリック・ダブルクリック等する
on modifire_right_click(x, y, click_count, modifire_key)
CGEventPost(kCGEventRightMouseDown, x, y, kCGMouseButtonRight, click_count, modifire_key)
delay 0.5
CGEventPost(kCGEventRightMouseUp, "m", "m", kCGMouseButtonRight, click_count, modifire_key)
end modifire_right_click
--（ここが最後）