--//Script by Kenji Kojima//--
cREVGeometryCacheIDs 1141910299561 10101141910311004 10131141910299562 10111141910299563 10121141909436648 10081207310914318 10421142613168152 10161142615418457 10251142615632030 10291142615418495 10261142614184749 10241142600362353 10091141909429840 10041142615538611 10281142615665611 1030 cREVGeometrycache order *1141909429840 1141909436648 1207310914318 total 15 jpText )h y" cREVGeometry Master,movevDistance falseMaster,scalebottomDistance -84Master,expectedRect 25,136,407,419 Master,scaleBottomObjectSide BottomMaster,movehDistance falseMaster trueMaster,scaleRightAbsolute trueMaster,scaleRight true Master,scaleBottomObjectRef cardMaster,scalerightDistance -28 Master,scaleRightObjectSide RightMaster,scaleRightObjectRef cardMaster,scaleBottomAbsolute trueMaster,cardRanking 2Master,scaleBottom trueMaster,scaletopDistance Master,scaleleftDistance cREVGeneral revUniqueID 1141909429840 *1. fn0nN0Lt0W00Y0D0|!SX0jN}D00g & 60 0D0d00n0000000O0c0ffS0000L00~0Y0 2 iN0fS0000o^8X0n0o0Z0j0n0k fS0000h 0F0h0S0bq0D0L0W0O0fbP0j00000c0c0f0W0~0D0~0Y0m00g00 0a00c0hfS0000 0`0c0_000D0d0O0c0f0D0MacOSX 0nMail 00Windows0n OutLook Express0j0i0n0000000K00|!SX0kfS0000L00~0Y0Y'j!0j0000b0000K00k0O0Du0n-[0<0on menuPick pWhich
put uniDecode(the unicodeText of fld 1, "Japanese") into tSjisText
set the textfont of fld 1 to pWhich
set the unicodetext of fld 1 to uniencode(tSjisText,"japanese")
end menuPick
on mouseDown
if platform() is "MacOS" then
set the textFont of me to "osaka"
else
set the textFont of me to "MS UI Gothic"
end if
get fontNames()
sort it
repeat for each line thisLine in it
if the fontLanguage of thisLine is "japanese" then \
put thisLine & cr after jFontList
if the fontLanguage of thisLine is "ANSI" then \
put thisLine & cr after eFontList
end repeat
set the text of me to jFontList & eFontList
end mouseDown
Menubar1 I cREVGeneral scriptChecksum ُ B~ revUniqueID 1142600362353 bookmarks handlerList tempScript prevHandler mouseUpscriptSelection char 1 to 0script File ] 3 on menuPick pWhich set the unicodeText of fld "picked" to uniencode(the menuhistory of me) & uniencode(cr) & pWhich end menuPick 4 0000 /e / N 0O / O 0X0 / W - - }BN / Q cREVGeneral scriptChecksum iOP 5`l revUniqueID 1141910299561 bookmarks handlerList menuPick tempScript prevHandler menuPickscriptSelection char 133 to 132scripton menuPick pWhich
set the unicodeText of fld "picked" to uniencode(the menuhistory of me) & uniencode(cr) & pWhich
end menuPick
Edit ] L 0on menuPick pWhich if the menuhistory of me is (the num of lines of the text of me) then if the menubar of this stack is char 2 to -2 of word 2 of the owner of me then set the unicodeText of fld "picked" to uniencode(the menuhistory of me) & uniencode(cr) & \ uniencode(pWhich,utf8) else set the unicodeText of fld "picked" to uniencode(the menuhistory of me) & uniencode(cr) & pWhich end if else set the unicodeText of fld "picked" to uniencode(the menuhistory of me) & uniencode(cr) & pWhich end if end menuPick 0 ' } =000 / X 000 / C 0000 / P 000 - - tX-[ cREVGeneral scriptChecksum v{*P2cJ/ revUniqueID 1141910299562 bookmarks handlerList menuPick tempScript prevHandler menuPickscriptSelection char 560 to 559scripton menuPick pWhich
if the menuhistory of me is (the num of lines of the text of me) then
if the menubar of this stack is char 2 to -2 of word 2 of the owner of me then
set the unicodeText of fld "picked" to uniencode(the menuhistory of me) & uniencode(cr) & \
uniencode(pWhich,utf8)
else
set the unicodeText of fld "picked" to uniencode(the menuhistory of me) & uniencode(cr) & pWhich
end if
else
set the unicodeText of fld "picked" to uniencode(the menuhistory of me) & uniencode(cr) & pWhich
end if
end menuPick
text ] 3 *--script by Kenji Kojima constant jpFont="%93%FA%96%7B%8C%EA%83t%83H%83%93%83g" --it's converted SJIS to URLEncode constant enFont="%89p%8C%EA%83t%83H%83%93%83g" on menuPick pWhich set the unicodeText of fld "picked" to uniencode(the menuhistory of me) & uniencode(cr) & pWhich put uniDecode(the unicodeText of fld 1, "Japanese") into tSjisText put unidecode(pwhich,"japanese") into tSJSIFont set the itemDel to "|" put item 2 of tSJSIFont into tFontName set the textfont of fld 1 to tFontName set the unicodetext of fld 1 to uniencode(tSjisText,"japanese") end menuPick on mouseDown put the cItemList of me into myList replace urlDecode(jpFont) with tFontList(jpFont, "Japanese") in myList replace urlDecode(enFont) with tFontList(enFont, "ANSI") in myList if platform() is "MacOS" then set the textFont of me to "osaka,japanese" else set the textFont of me to "Tahoma,japanese" end if set the text of me to uniencode(myList,japanese) end mouseDown function tFontList pItemName, pLang get fontNames() put urlDecode(pItemName)&cr into tFontList sort it repeat for each line thisLine in it if the fontLanguage of thisLine is pLang then \ put tab & thisLine & cr after tFontList end repeat delete the last char of tFontList return tFontList end tFontList P 2 cItemList H{tHg ptHg TCY 8 10 12 14 24 J[ 0000 "eg,0000 O s a k a O s a k a"{I^E -3 00000 -3 0fg -3 0000 -3 fg 0000Ή0 P r o W 3 0000Ή0 P r o W 6 0000Ή0 P r o N W 3 0000Ή0 P r o N W 6 0000Ή0 S t d W 8 0000Ή0 S t d N W 8 0000N80 P r o W 4 0000N80 P r o N W 4 0000fg P r o W 3 0000fg P r o W 6 0000fg P r o N W 3 0000fg P r o N W 6 0000 A b a d i M T C o n d e n s e d E x t r a B o l d A b a d i M T C o n d e n s e d L i g h t A m e r i c a n T y p e w r i t e r A m e r i c a n T y p e w r i t e r C o n d e n s e d A m e r i c a n T y p e w r i t e r C o n d e n s e d L i g h t A m e r i c a n T y p e w r i t e r L i g h t A n d a l e M o n o A p p l e C a s u a l A p p l e C h a n c e r y A p p l e S y m b o l s A r i a l A r i a l B l a c k A r i a l B o l d A r i a l B o l d I t a l i c A r i a l I t a l i c A r i a l N a r r o w A r i a l N a r r o w B o l d A r i a l N a r r o w B o l d I t a l i c A r i a l N a r r o w I t a l i c A r i a l R o u n d e d M T B o l d A r i a l U n i c o d e M S A v a n t G a r d e B A v a n t G a r d e D e m i B a s k e r v i l l e B a s k e r v i l l e O l d F a c e B a s k e r v i l l e S e m i b o l d B a u h a u s 9 3 B e l l M T B e r n a r d M T C o n d e n s e d B I A v a n t G a r d e D e m i O b l i q u e B i g C a s l o n B l a i r M d I T C T T - M e d i u m B o o k A n t i q u a B o o k m a n O l d S t y l e B o r d e a u x R o m a n B o l d L E T B r a g g a d o c i o B r i t a n n i c B o l d B r u s h S c r i p t M T B r u s h S c r i p t M T I t a l i c C a l i s t o M T C e n t u r y C e n t u r y G o t h i c C e n t u r y S c h o o l b o o k C h a l k b o a r d C h a l k b o a r d B o l d C h a r c o a l C o c h i n C o l o n n a M T C o m i c S a n s M S C o m i c S a n s M S B o l d C o o p e r B l a c k C o p p e r p l a t e C o p p e r p l a t e G o t h i c B o l d C o p p e r p l a t e G o t h i c L i g h t C o p p e r p l a t e L i g h t C o u r i e r C o u r i e r N e w C o u r i e r N e w B o l d C o u r i e r N e w B o l d I t a l i c C o u r i e r N e w I t a l i c C r a c k e d C u r l z M T D e s d e m o n a D i d o t E d w a r d i a n S c r i p t I T C E n g r a v e r s M T E u p h e m i a U C A S E u p h e m i a U C A S B o l d E u p h e m i a U C A S I t a l i c E u r o s t i l e F o o t l i g h t M T L i g h t F u t u r a F u t u r a C o n d e n s e d G a r a m o n d G a r a m o n d P r e m r P r o G a r a m o n d P r e m r P r o B o l d G a r a m o n d P r e m r P r o B o l d C a p t G a r a m o n d P r e m r P r o B o l d D i s p G a r a m o n d P r e m r P r o B o l d I t G a r a m o n d P r e m r P r o B o l d I t C a p t G a r a m o n d P r e m r P r o B o l d I t D i s p G a r a m o n d P r e m r P r o B o l d I t S u b h G a r a m o n d P r e m r P r o B o l d S u b h G a r a m o n d P r e m r P r o C a p t G a r a m o n d P r e m r P r o D i s p G a r a m o n d P r e m r P r o I t G a r a m o n d P r e m r P r o I t C a p t G a r a m o n d P r e m r P r o I t D i s p G a r a m o n d P r e m r P r o I t S u b h G a r a m o n d P r e m r P r o L t D i s p G a r a m o n d P r e m r P r o L t I t D i s p G a r a m o n d P r e m r P r o M e d G a r a m o n d P r e m r P r o M e d C a p t G a r a m o n d P r e m r P r o M e d D i s p G a r a m o n d P r e m r P r o M e d I t G a r a m o n d P r e m r P r o M e d I t C a p t G a r a m o n d P r e m r P r o M e d I t D i s p G a r a m o n d P r e m r P r o M e d I t S u b h G a r a m o n d P r e m r P r o M e d S u b h G a r a m o n d P r e m r P r o S m b d G a r a m o n d P r e m r P r o S m b d C a p t G a r a m o n d P r e m r P r o S m b d D i s p G a r a m o n d P r e m r P r o S m b d I t G a r a m o n d P r e m r P r o S m b d I t C a p t G a r a m o n d P r e m r P r o S m b d I t D i s p G a r a m o n d P r e m r P r o S m b d I t S u b h G a r a m o n d P r e m r P r o S m b d S u b h G a r a m o n d P r e m r P r o S u b h G e n e v a G e o r g i a G e o r g i a B o l d G e o r g i a B o l d I t a l i c G e o r g i a I t a l i c G i l l S a n s G i l l S a n s L i g h t G i l l S a n s U l t r a B o l d G l o u c e s t e r M T E x t r a C o n d e n s e d G o u d y O l d S t y l e H a e t t e n s c h w e i l e r H a n d w r i t i n g - D a k o t a H a r r i n g t o n H e l s i n k i H e l s i n k i M e t r o n o m e H e l s i n k i S p e c i a l H e l s i n k i T e x t H e l v e t i c a H e l v e t i c a N e u e H e l v e t i c a N e u e B l a c k C o n d e n s e d H e l v e t i c a N e u e B o l d C o n d e n s e d H e l v e t i c a N e u e L i g h t H e l v e t i c a N e u e U l t r a L i g h t H e r c u l a n u m H o e f l e r T e x t H o e f l e r T e x t O r n a m e n t s I A v a n t G a r d e B o o k O b l i q u e I m p a c t I m p r i n t M T S h a d o w I n k p e n 2 I n k p e n 2 C h o r d s I n k p e n 2 M e t r o n o m e I n k p e n 2 S c r i p t I n k p e n 2 S p e c i a l I n k p e n 2 T e x t K i n o M T L u c i d a B l a c k l e t t e r L u c i d a B r i g h t L u c i d a C a l l i g r a p h y L u c i d a F a x L u c i d a G r a n d e L u c i d a H a n d w r i t i n g L u c i d a S a n s L u c i d a S a n s T y p e w r i t e r M a r k e r F e l t M a t u r a M T S c r i p t C a p i t a l s M i c r o s o f t S a n s S e r i f M i s t r a l M o d e r n N o . 2 0 M o n a c o M o n o t y p e C o r s i v a M o n o t y p e S o r t s M T E x t r a N e w s G o t h i c M T O n y x O p t i m a O p t i m a E x t r a B l a c k O p u s O p u s C h o r d s O p u s C h o r d s S a n s O p u s C h o r d s S a n s C o n d e n s e d O p u s F i g u r e d B a s s O p u s F i g u r e d B a s s E x t r a s O p u s F u n c t i o n S y m b o l s O p u s J a p a n e s e C h o r d s O p u s M e t r o n o m e O p u s N o t e N a m e s O p u s O r n a m e n t s O p u s P e r c u s s i o n O p u s P l a i n C h o r d s O p u s R o m a n C h o r d s O p u s S p e c i a l O p u s S p e c i a l E x t r a O p u s T e x t P a l a t i n o P a p y r u s P a p y r u s C o n d e n s e d P e r p e t u a T i t l i n g M T P l a n t a g e n e t C h e r o k e e P l a y b i l l P o r t a g o I T C T T R e p r i s e R e p r i s e C h o r d s R e p r i s e M e t r o n o m e R e p r i s e R e h e a r s a l R e p r i s e S c r i p t R e p r i s e S p e c i a l R e p r i s e S t a m p R e p r i s e T e x t R e p r i s e T i t l e R o c k w e l l R o c k w e l l E x t r a B o l d S k i a S t e n c i l S y m b o l T a h o m a T a h o m a B o l d T i m e s T i m e s N e w R o m a n T i m e s N e w R o m a n B o l d T i m e s N e w R o m a n B o l d I t a l i c T i m e s N e w R o m a n I t a l i c T r a j a n T r a j a n B o l d T r e b u c h e t M S T r e b u c h e t M S B o l d T r e b u c h e t M S B o l d I t a l i c T r e b u c h e t M S I t a l i c V e r d a n a V e r d a n a B o l d V e r d a n a B o l d I t a l i c V e r d a n a I t a l i c W e b d i n g s W i d e L a t i n W i n g d i n g s W i n g d i n g s 2 W i n g d i n g s 3 Z a p f D i n g b a t s Z a p f i n o 000 8 1 0 1 2 1 4 2 4 000 v} d cREVGeneral scriptChecksum A[jQ 4Y bookmarks revUniqueID 1141910299563 handlerList menuPick mouseDown tFontListscriptSelection char 588 to 587 prevHandler menuPick tempScript script--script by Kenji Kojima
constant jpFont="%93%FA%96%7B%8C%EA%83t%83H%83%93%83g" --it's converted SJIS to URLEncode
constant enFont="%89p%8C%EA%83t%83H%83%93%83g"
on menuPick pWhich
set the unicodeText of fld "picked" to uniencode(the menuhistory of me) & uniencode(cr) & pWhich
put uniDecode(the unicodeText of fld 1, "Japanese") into tSjisText
put unidecode(pwhich,"japanese") into tSJSIFont
set the itemDel to "|"
put item 2 of tSJSIFont into tFontName
set the textfont of fld 1 to tFontName
set the unicodetext of fld 1 to uniencode(tSjisText,"japanese")
end menuPick
on mouseDown
put the cItemList of me into myList
replace urlDecode(jpFont) with tFontList(jpFont, "Japanese") in myList
replace urlDecode(enFont) with tFontList(enFont, "ANSI") in myList
if platform() is "MacOS" then
set the textFont of me to "osaka,japanese"
else
set the textFont of me to "Tahoma,japanese"
end if
set the text of me to uniencode(myList,japanese)
end mouseDown
function tFontList pItemName, pLang
get fontNames()
put urlDecode(pItemName)&cr into tFontList
sort it
repeat for each line thisLine in it
if the fontLanguage of thisLine is pLang then \
put tab & thisLine & cr after tFontList
end repeat
delete the last char of tFontList
return tFontList
end tFontList
Help ] 3 on menuPick pWhich set the unicodeText of fld "picked" to uniencode(the menuhistory of me) & uniencode(cr) & pWhich end menuPick $ 000 5000 0]0n 0]0n - - 0S0n00000 cREVGeneral scriptChecksum iOP 5`l revUniqueID 1141910311004 bookmarks handlerList menuPick tempScript prevHandler scriptSelection char 133 to 132scripton menuPick pWhich
set the unicodeText of fld "picked" to uniencode(the menuhistory of me) & uniencode(cr) & pWhich
end menuPick
Button ep,on mouseUp toggleEnableUnicodeMenuItem 3, file end mouseUp on toggleEnableUnicodeMenuItem pItemNum, pMenuName if platform() is "MacOS" then set the useUnicode to true if charToNum(char 1 to 2 of line pItemNum of btn pMenuName) is 40 then -- after version 2.9 delete char 1 to 2 of line pItemNum of btn pMenuName --// delete char 1 to 4 of line pItemNum of btn pMenuName --// else set the useUnicode to false put uniencode(numToChar(40)&" ") before line pItemNum of btn pMenuName end if else if charToNum(char 2 of line pItemNum of btn pMenuName) is 40 then delete char 1 to 2 of line pItemNum of btn pMenuName else put (numtochar(0)&numToChar(40)) before line pItemNum of btn pMenuName end if end if end toggleEnableUnicodeMenuItem 6 #enable/disable Unicode menus/items cREVGeneral scriptChecksum P'N!q 9 revUniqueID 1142613168152 bookmarks handlerList #mouseUp toggleEnableUnicodeMenuItem tempScript prevHandler mouseUpscriptSelection char 406 to 405scripton mouseUp
toggleEnableUnicodeMenuItem 3, file
end mouseUp
on toggleEnableUnicodeMenuItem pItemNum, pMenuName
if platform() is "MacOS" then
set the useUnicode to true
if charToNum(char 1 to 2 of line pItemNum of btn pMenuName) is 40 then
-- after version 2.9
delete char 1 to 2 of line pItemNum of btn pMenuName
--// delete char 1 to 4 of line pItemNum of btn pMenuName --//
else
set the useUnicode to false
put uniencode(numToChar(40)&" ") before line pItemNum of btn pMenuName
end if
else
if charToNum(char 2 of line pItemNum of btn pMenuName) is 40 then
delete char 1 to 2 of line pItemNum of btn pMenuName
else
put (numtochar(0)&numToChar(40)) before line pItemNum of btn pMenuName
end if
end if
end toggleEnableUnicodeMenuItem
picked )h B Y ( cREVTable currentview n1
新規
cREVGeneral revUniqueID 1142614184749 1 eg,0000|Osaka setTheMenubar Ep Fon mouseUp set the menubar of this stack to "menubar1" end mouseUp : r W cREVGeneral scriptChecksum Ӄ%K; !\ revUniqueID 1142615418457 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 55 to 54scripton mouseUp
set the menubar of this stack to "menubar1"
end mouseUp
emptyTheMenubar Ep >on mouseUp set the menubar of this stack to "" end mouseUp : r U cREVGeneral scriptChecksum B(` V bookmarks revUniqueID 1142615418495 handlerList mouseUpscriptSelection char 61 to 60 prevHandler mouseUp tempScript scripton mouseUp
set the menubar of this stack to ""
end mouseUp
Label Field B cREVTable currentviewファイルメニューの閉じる
cREVGeneral revUniqueID 1142615538611 000000000n0X0 Label Field B : cREVTable currentviewMacOSのメニューバーセット
cREVGeneral revUniqueID 1142615632030 MacOS0n000000000 E Label Field B X & cREVTable currentview選んだメニューアイテム
cREVGeneral revUniqueID 1142615665611 x00`00000000 Label Field w cREVGeometry Master,movevDistance -38Master,scalebottomDistance Master,expectedRect 20,455,395,476Master,moveVObjectSide bottomMaster,movehDistance falseMaster trueMaster,moveVObjectRef cardMaster,scalerightDistance Master,cardRanking 1Master,moveVAbsolute true Master,moveV trueMaster,scaletopDistance Master,scaleleftDistance cREVTable currentview +フォントセットが主体で、カラー等他のスクリプトは入っていません。
cREVGeneral revUniqueID 1207310914318 A00000000LN;OS0g0000{IN0n000000oQe0c0f0D0~0[00 @