#!/bin/sh # MetaCard 2.4 stack # The following is not ASCII text, # so now would be a good time to q out of more exec mc $0 "$@"  jpnClickLink`+YJapanese Click Link @ULucida Grande ULucida Grande ULucida Grande,Japanese @ULucida Grande,Japanese UOsaka,Japanese @UOsaka,Japanese ULucida Grande,Greek ULucida Grande ULucida Grande,Japanese ULucida Grande,Greek ULucida Grande,Korean @ULucida Grande,Japanese @ULucida Grandexxxx<<<<xxxx cREVGeneralstackfileversion @ Field)xon linkClicked theText if theText is not empty then do merge ("get the unicodeText of [[the clickChunk]]") set the unicodeText of fld 2 to it put urlEncode(it) into jString put base64Encode(it) into jString put jString switch jString case "AFsAUgBSAFUASgBdACByeVuaZYdbV1IXMJIw3DC/MPNTFg==" beep break case "MLkwrzDqMNcwyDBMW5+ITDBVMIwwiw==" beep break case "MF0wjDCSMK8w6jDDMK8wWTCLMFMwaDBnU8JxZw==" beep break case "MAxlh1tXUhcwbjDcML8w81MWMA0=" beep wait 30 beep break case "MGkwajBfMEswAVQNaEgwkjBKYwEwYTBuZbk=" beep wait 30 beep break end switch set the unicodeText of fld 3 to base64Decode(jString) end if end linkClicked local storedHilitedChunk on mouseMove -- first unhighlight the "old" phrase if necessary: if storedHilitedChunk is not empty \ and storedHilitedChunk is not the mouseChunk then do "set the backgroundColor of" && \ storedHilitedChunk && "to empty" put empty into storedHilitedChunk end if -- highlight if the text under the mouse is linked: if the mouseChunk is not empty \ and "link" is in the textStyle of the mouseChunk then set the backgroundColor of the mouseChunk to 220,220,190 -- saved for later unhighlighting put the mouseChunk into storedHilitedChunk end if pass mouseMove end mouseMove on mouseLeave -- unhighlight any currently highlighted text: if storedHilitedChunk is not empty then do "set the backgroundColor of" && \ storedHilitedChunk && "to empty" put empty into storedHilitedChunk end if pass mouseLeave end mouseLeave /* --set the text colors set the underlineLinks of this stack to false set the linkColor of this stack to 120,120,180 set the linkVisitedColor of this stack to 120,120,180 set the linkHiliteColor of this stack to 200,60,60 */  a   cREVTable currentview )

Subject: [RRUJ] 特定文字列をボタン化できるか

ブラウザで見るように、文字列の一部を特定して、そこをクリックすると所定のスクリプトが実行される（という意味で「文字列のボタン化」）ようなことは可能でしょうか。

スクロールフィールドの中で、ある事柄について、参照させたいサブスタックがあり、現在はボタンを置いて、それをクリックすることで参照を実現させています。

しかし、フィールドをスクロールすると、ボタンは元の位置のままスクロールされませんので、見にくくなってしまいます。

こういう場合に、「文字列のボタン化」が出来ればいいけどなあと思います。

どなたか、名案をお持ちの方おられましたら、教えてください。

坂井　弘之

 cREVGeneralscriptChecksum7{mص} bookmarks revUniqueID 1153736941594 handlerList linkClicked mouseMove mouseLeavescriptSelectionchar 1300 to 1299 prevHandlermouseUp tempScriptscript 

on linkClicked theText

if theText is not empty then

do merge ("get the unicodeText of [[the clickChunk]]")

set the unicodeText of fld 2 to it

put urlEncode(it) into jString

put base64Encode(it) into jString

put jString

switch jString

case "AFsAUgBSAFUASgBdACByeVuaZYdbV1IXMJIw3DC/MPNTFg=="

beep

break

case "MLkwrzDqMNcwyDBMW5+ITDBVMIwwiw=="

beep

break

case "MF0wjDCSMK8w6jDDMK8wWTCLMFMwaDBnU8JxZw=="

beep

break

case "MAxlh1tXUhcwbjDcML8w81MWMA0="

beep

wait 30

beep

break

case "MGkwajBfMEswAVQNaEgwkjBKYwEwYTBuZbk="

beep

wait 30

beep

break

end switch

set the unicodeText of fld 3 to base64Decode(jString)

end if

end linkClicked

local storedHilitedChunk

on mouseMove

-- first unhighlight the "old" phrase if necessary:

if storedHilitedChunk is not empty \

and storedHilitedChunk is not the mouseChunk then

do "set the backgroundColor of" && \

storedHilitedChunk && "to empty"

put empty into storedHilitedChunk

end if

-- highlight if the text under the mouse is linked:

if the mouseChunk is not empty \

and "link" is in the textStyle of the mouseChunk then

set the backgroundColor of the mouseChunk to 220,220,190

-- saved for later unhighlighting

put the mouseChunk into storedHilitedChunk

end if

pass mouseMove

end mouseMove

on mouseLeave

-- unhighlight any currently highlighted text:

if storedHilitedChunk is not empty then

do "set the backgroundColor of" && \

storedHilitedChunk && "to empty"

put empty into storedHilitedChunk

end if

pass mouseLeave

end mouseLeave

/* --set the text colors

set the underlineLinks of this stack to false

set the linkColor of this stack to 120,120,180

set the linkVisitedColor of this stack to 120,120,180

set the linkHiliteColor of this stack to 200,60,60

*/

 .Subject: [RRUJ] ry[e[WR0000S 0g0M00K       $ % 00000g000F0k0e[WR0nN0ry[0W0f00]0S000000Y00hb@[0n000000L[L0U000h0D0FaTs0g0 e[WR0n000S0 00F0j0S0h0oS0g0W00F0K0 H  H ^@ 00000000000nN-0g00B0Ng0k0d0D0f0Sqg0U0[0_0D0000000L0B00sW(0o0000n0D0f00]0000000Y00S0h0gSqg0[s0U0[0f0D0~0Y0 d  d  q0W0K0W0000000000000Y00h00000oQC0nOMn0n0~0~000000U00~0[00n0g00k0O0O0j0c0f0W0~0D0~0Y0 p G0S0F0D0FX4T0k00 e[WR0n000S0 0LQge00p0D0D0Q0i0j0B0h`0D0~0Y0    $" <0i0j0_0K0T hH00Jc0a0ne 0J000~0W0_00eY0H0f0O0`0U0D0      WBN0_NK     `k  Field)ha4 cREVTable currentviewS

コメント

 cREVGeneral revUniqueID 1153752699046  0 e[WR0n000S0  Field)h4a4 cREVTable currentviewS

コメント

 cREVGeneral revUniqueID 1153794584254  0 e[WR0n000S0