ランタイム・レヴォルーションのlineOffsetコマンドを使った、JANコード検索用のスタックです。
スクリプトはこんな感じです:
on enterInfield
lock screen
set the hilitedline of fld "pluData" to 0
set the vScroll of fld "pluData" to 0
JANtoFind
unlock screen
end enterInfield
on returnInField
enterInfield
end returnInField
on JANtoFind
set the textfont of field "searchResult" to "Tahoma" --
put line (lineOffset(fld "JANtoFind",fld "pluData")) of fld "pluData" into fld "searchResult"
set the hilitedline of fld "pluData" to (lineOffset(fld "JANtoFind",fld "pluData"))
if the platform is MacOS then set the textfont of field "searchResult" to "Osaka" --unnecessary for windows
end JANtoFind
スタックの外観は……