From a081f16e3696e8adbf687cc925d1ce0370f4a48d Mon Sep 17 00:00:00 2001 From: Stefan Urbanek Date: Sun, 23 Mar 2003 12:53:54 +0000 Subject: [PATCH] Added forgotten .gorms git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/steptalk/trunk@16235 72102866-910b-0410-8b05-ffd578937521 --- .../ScriptsPanel.gorm/data.classes | 161 ++++++++++++++++++ .../ScriptsPanel.gorm/objects.gorm | Bin 0 -> 5551 bytes .../TranscriptWindow.gorm/data.classes | 155 +++++++++++++++++ .../TranscriptWindow.gorm/objects.gorm | Bin 0 -> 2010 bytes .../Source/NSTextView+ScriptExecution.h | 34 ++++ .../Source/NSTextView+ScriptExecution.m | 74 ++++++++ 6 files changed, 424 insertions(+) create mode 100644 ApplicationScripting/Source/English.lproj/ScriptsPanel.gorm/data.classes create mode 100644 ApplicationScripting/Source/English.lproj/ScriptsPanel.gorm/objects.gorm create mode 100644 ApplicationScripting/Source/English.lproj/TranscriptWindow.gorm/data.classes create mode 100644 ApplicationScripting/Source/English.lproj/TranscriptWindow.gorm/objects.gorm create mode 100644 ApplicationScripting/Source/NSTextView+ScriptExecution.h create mode 100644 ApplicationScripting/Source/NSTextView+ScriptExecution.m diff --git a/ApplicationScripting/Source/English.lproj/ScriptsPanel.gorm/data.classes b/ApplicationScripting/Source/English.lproj/ScriptsPanel.gorm/data.classes new file mode 100644 index 0000000..938a4f9 --- /dev/null +++ b/ApplicationScripting/Source/English.lproj/ScriptsPanel.gorm/data.classes @@ -0,0 +1,161 @@ +{ + FirstResponder = { + Actions = ( + "activateContextHelpMode:", + "alignCenter:", + "alignJustified:", + "alignLeft:", + "alignRight:", + "arrangeInFront:", + "cancel:", + "capitalizeWord:", + "changeColor:", + "changeFont:", + "checkSpelling:", + "close:", + "complete:", + "copy:", + "copyFont:", + "copyRuler:", + "cut:", + "delete:", + "deleteBackward:", + "deleteForward:", + "deleteToBeginningOfLine:", + "deleteToBeginningOfParagraph:", + "deleteToEndOfLine:", + "deleteToEndOfParagraph:", + "deleteToMark:", + "deleteWordBackward:", + "deleteWordForward:", + "deminiaturize:", + "deselectAll:", + "fax:", + "hide:", + "hideOtherApplications:", + "indent:", + "loosenKerning:", + "lowerBaseline:", + "lowercaseWord:", + "makeKeyAndOrderFront:", + "miniaturize:", + "miniaturizeAll:", + "moveBackward:", + "moveBackwardAndModifySelection:", + "moveDown:", + "moveDownAndModifySelection:", + "moveForward:", + "moveForwardAndModifySelection:", + "moveLeft:", + "moveRight:", + "moveToBeginningOfDocument:", + "moveToBeginningOfLine:", + "moveToBeginningOfParagraph:", + "moveToEndOfDocument:", + "moveToEndOfLine:", + "moveToEndOfParagraph:", + "moveUp:", + "moveUpAndModifySelection:", + "moveWordBackward:", + "moveWordBackwardAndModifySelection:", + "moveWordForward:", + "moveWordForwardAndModifySelection:", + "newDocument:", + "ok:", + "openDocument:", + "orderBack:", + "orderFront:", + "orderFrontColorPanel:", + "orderFrontDataLinkPanel:", + "orderFrontFontPanel:", + "orderFrontHelpPanel:", + "orderFrontSharedMemoryPanel:", + "orderFrontStandardAboutPanel:", + "orderFrontStandardInfoPanel:", + "orderOut:", + "pageDown:", + "pageUp:", + "paste:", + "pasteAsPlainText:", + "pasteAsRichText:", + "pasteFont:", + "pasteRuler:", + "performClose:", + "performMiniaturize:", + "performZoom:", + "print:", + "raiseBaseline:", + "revertDocumentToSaved:", + "runPageLayout:", + "runToolbarCustomizationPalette:", + "saveAllDocuments:", + "saveDocument:", + "saveDocumentAs:", + "saveDocumentTo:", + "scrollLineDown:", + "scrollLineUp:", + "scrollPageDown:", + "scrollPageUp:", + "scrollViaScroller:", + "selectAll:", + "selectLine:", + "selectNextKeyView:", + "selectParagraph:", + "selectPreviousKeyView:", + "selectText:", + "selectText:", + "selectToMark:", + "selectWord:", + "showContextHelp:", + "showGuessPanel:", + "showHelp:", + "showWindow:", + "stop:", + "subscript:", + "superscript:", + "swapWithMark:", + "takeDoubleValueFrom:", + "takeFloatValueFrom:", + "takeIntValueFrom:", + "takeObjectValueFrom:", + "takeStringValueFrom:", + "terminate:", + "tightenKerning:", + "toggle:", + "toggleContinuousSpellChecking:", + "toggleRuler:", + "toggleToolbarShown:", + "toggleTraditionalCharacterShape:", + "transpose:", + "transposeWords:", + "turnOffKerning:", + "turnOffLigatures:", + "underline:", + "unhide:", + "unhideAllApplications:", + "unscript:", + "uppercaseWord:", + "useAllLigatures:", + "useStandardKerning:", + "useStandardLigatures:", + "yank:", + "zoom:" + ); + Super = NSObject; + }; + STScriptsPanel = { + Actions = ( + "run:", + "command:", + "selectScript:" + ); + Outlets = ( + scriptList, + descriptionText, + runButton, + commandMenu, + _panel + ); + Super = NSPanel; + }; +} \ No newline at end of file diff --git a/ApplicationScripting/Source/English.lproj/ScriptsPanel.gorm/objects.gorm b/ApplicationScripting/Source/English.lproj/ScriptsPanel.gorm/objects.gorm new file mode 100644 index 0000000000000000000000000000000000000000..91568fb6df1d9d0a01b96d07cac0b7c6a54906e7 GIT binary patch literal 5551 zcmcIoNq5`U6@COMih~A9lxQdMAWv!BH1UOOx3-!#BB@GI9nr37J57h!FbPYvNq`|i z$?g<&o*Nu3dioQ(1p5oR=%R}*yXr6LuDt^Qf)rKz^f=@>cn@#7_kQ<#_r8aX%H6JG zwwH`fZKtto0{)h-!_^h4VD*Y$xqjKN0Jg;Rn3~zBRvHh>w&fTN%j_up>6%Jasy81# zHfs*OE70_~%2%peJ;!+1G}jt6r(s)0=NWbC2{l!z4!5b-v11zI`UI_1bvg}e8(U)B zK6wGF=|y}@YA9w8r9z@VK~rYJt{JU*r&{YY+D`YDVVO;skP*}2h-q!Z?zAe^Qpeuw z;u1+csnX#qNz*5(flTYzO>Ri3WTkqqVeau;T4gKM+h(_ITXnWPrf7BL77AG^`BBK0 zuVS@~??*Ii3jZ-JMg}O?g-Jc5W%^<9j+2R8%{9m-LDc3h&R2=hU@aZ9L2w$1~ zgNNq2uJG*um!z5|MABk`3kaS86=7bVCk~bErcE0)t{^XV%!PK$;g+fxEwj#ps%@iY z!h#G+hJ%t?^%(|>7A#6nA?zt=HQ6pDqxNLGWA`js$eTxoD=5hL=q3zz9N`Yf^t_rL zY9bgE9G8j8^>Qy0KJtWMNEXE46`v%omt2milu~sY$zFT1vaG2YdRw!57{H|MK#RHX zYJc9#!)r$(bmB!3q6px^NqvEKnC#@yn6ipG`a7)Xj@@BlvrjQ5P!4z4sUh~C?&rMY zFC9wesiwTta$IFp`hMLOGgfx>4;AzNHR3x*%WUhkx@y1!AE`uWd5 zRo;ZIcMQ&mdr~2RQ^TDf6q3k>QNDqTeVGy_*m9B~ zrUYC1=OKuLW`-CQB!W`9`Ml`pC$%^G9FEv;hjQ3Ic+ujY23B+0!RDynXwfeW8UB`D zpnZJDeCh=GSU*N7gj&elNZuT?_y|{qWcr3+^oO^7u1H8E8qy!Zl@cy-a00<}O!(HN zCr=JwwDX#S`i;cyNCqinZyf*QK0nBQSSA4;z-3t|nht3p&LMs-qKTxO$9u?yE2G%q_olkDr?Yr%9s1%n5sQhg_DnWA;mGg*7c?gv?{e+qu5)?qA zpXA$tY4tYo2-s5*V_PU6A;F{BhL0D#H$^%z)$Xe`xhG1rOq0&DMH)UQnoR`(^w(EvtE;Son$Gb5s9bJwS zF}w~IxrK{-Llzl=ns1TMpO0x$^f~ZKaN9T8g=$cXkS@ifbG>zMlcq?93~Ta==-koI z&^@%;ZZ?8k6TOu!Aqz_jv`yt6+8*7eVY5$2rU8Y5yW&qtlU~xh=)%4J5@P>>C_4uG zwMMJmG~ad_j~>A{Ir)5e7%Knn@Ga?i{@nq-%~|F{_|7=Fd^xY~7#K)7-CUrUgs^;< z#ea09`1{hc7!qMo+v9LNlKtSp;U)aIZAee_djuX<=#ztI_@TK-m*DLBiB-i9c71@e zBx!nshm31Y)*HTz72D|8nn52-Ht}xdLS05h_fT-m@ZJJbdiemAp&*_~sH$qKrfMih z-NUD;_LT13fk!ej7XpyeHmc=b*RfmWrqS(g8Ex3^$C-q%b67R`dJ>6*Na%(P<8uH@ zPbbtCO0-l@ZK8ZrwNQ2i9!JJ;a8GL?f8k004C6$nJaXm`eKF{aWU{L`qKwS}tfVl} zx9P`I*SiNTX3$4qiQE_9obAtO%Zy>JAH}(kBW4|C{<3!qIx;Tm!XQq1o6wbBrWLO; znNTGJ(80frQ0kbj95F6W9?nBgKTA15zQbAg)s3(BN_p2{H?kNb9ey)&VXuGId&4tb zc#4%eRi0s`i`ab+%g0!LAIlvqe}H8N%O7Id!16~}evIWO`Z=}0f^YVmrilkWD=L21 ztHZu1zy}sqU{jG zLI^_mIS;!AzmQ?k5PiSR9|C`=pI3_kSoCFYMCl!G7k(wP*+J}rR6^Ad{1*NVbU|IM zz_0t~y)KUZjf_nYXL)QQp*rX;3&;Exahf1te}`&K;Nag!7G^Y3h(^=g#sma^VAUt! UQyCMz0|{R5V}=43mo#1Xzx(HcZ~y=R literal 0 HcmV?d00001 diff --git a/ApplicationScripting/Source/English.lproj/TranscriptWindow.gorm/data.classes b/ApplicationScripting/Source/English.lproj/TranscriptWindow.gorm/data.classes new file mode 100644 index 0000000..07d906d --- /dev/null +++ b/ApplicationScripting/Source/English.lproj/TranscriptWindow.gorm/data.classes @@ -0,0 +1,155 @@ +{ + FirstResponder = { + Actions = ( + "activateContextHelpMode:", + "alignCenter:", + "alignJustified:", + "alignLeft:", + "alignRight:", + "arrangeInFront:", + "cancel:", + "capitalizeWord:", + "changeColor:", + "changeFont:", + "checkSpelling:", + "close:", + "complete:", + "copy:", + "copyFont:", + "copyRuler:", + "cut:", + "delete:", + "deleteBackward:", + "deleteForward:", + "deleteToBeginningOfLine:", + "deleteToBeginningOfParagraph:", + "deleteToEndOfLine:", + "deleteToEndOfParagraph:", + "deleteToMark:", + "deleteWordBackward:", + "deleteWordForward:", + "deminiaturize:", + "deselectAll:", + "fax:", + "hide:", + "hideOtherApplications:", + "indent:", + "loosenKerning:", + "lowerBaseline:", + "lowercaseWord:", + "makeKeyAndOrderFront:", + "miniaturize:", + "miniaturizeAll:", + "moveBackward:", + "moveBackwardAndModifySelection:", + "moveDown:", + "moveDownAndModifySelection:", + "moveForward:", + "moveForwardAndModifySelection:", + "moveLeft:", + "moveRight:", + "moveToBeginningOfDocument:", + "moveToBeginningOfLine:", + "moveToBeginningOfParagraph:", + "moveToEndOfDocument:", + "moveToEndOfLine:", + "moveToEndOfParagraph:", + "moveUp:", + "moveUpAndModifySelection:", + "moveWordBackward:", + "moveWordBackwardAndModifySelection:", + "moveWordForward:", + "moveWordForwardAndModifySelection:", + "newDocument:", + "ok:", + "openDocument:", + "orderBack:", + "orderFront:", + "orderFrontColorPanel:", + "orderFrontDataLinkPanel:", + "orderFrontFontPanel:", + "orderFrontHelpPanel:", + "orderFrontSharedMemoryPanel:", + "orderFrontStandardAboutPanel:", + "orderFrontStandardInfoPanel:", + "orderOut:", + "pageDown:", + "pageUp:", + "paste:", + "pasteAsPlainText:", + "pasteAsRichText:", + "pasteFont:", + "pasteRuler:", + "performClose:", + "performMiniaturize:", + "performZoom:", + "print:", + "raiseBaseline:", + "revertDocumentToSaved:", + "runPageLayout:", + "runToolbarCustomizationPalette:", + "saveAllDocuments:", + "saveDocument:", + "saveDocumentAs:", + "saveDocumentTo:", + "scrollLineDown:", + "scrollLineUp:", + "scrollPageDown:", + "scrollPageUp:", + "scrollViaScroller:", + "selectAll:", + "selectLine:", + "selectNextKeyView:", + "selectParagraph:", + "selectPreviousKeyView:", + "selectText:", + "selectText:", + "selectToMark:", + "selectWord:", + "showContextHelp:", + "showGuessPanel:", + "showHelp:", + "showWindow:", + "stop:", + "subscript:", + "superscript:", + "swapWithMark:", + "takeDoubleValueFrom:", + "takeFloatValueFrom:", + "takeIntValueFrom:", + "takeObjectValueFrom:", + "takeStringValueFrom:", + "terminate:", + "tightenKerning:", + "toggle:", + "toggleContinuousSpellChecking:", + "toggleRuler:", + "toggleToolbarShown:", + "toggleTraditionalCharacterShape:", + "transpose:", + "transposeWords:", + "turnOffKerning:", + "turnOffLigatures:", + "underline:", + "unhide:", + "unhideAllApplications:", + "unscript:", + "uppercaseWord:", + "useAllLigatures:", + "useStandardKerning:", + "useStandardLigatures:", + "yank:", + "zoom:" + ); + Super = NSObject; + }; + STTranscript = { + Actions = ( + ); + Outlets = ( + textView, + window + ); + Super = NSObject; + }; +} \ No newline at end of file diff --git a/ApplicationScripting/Source/English.lproj/TranscriptWindow.gorm/objects.gorm b/ApplicationScripting/Source/English.lproj/TranscriptWindow.gorm/objects.gorm new file mode 100644 index 0000000000000000000000000000000000000000..d6b772cd7d7b87ba92388d105dbda3f09d43704e GIT binary patch literal 2010 zcmah~-E-SS5IQEmJ4?0`caUaIw;$S%-|p=lx-Tb6j(7Yt_$54(fKTr`_VX=)v&kc_UNv!-ZmMOzWa8`A_7stQKKoQM=i#67Ez2~ROKaS+% zFi>F<`{^4JifgRlddoa^4+ZP6Cf3Q4r_wM!L5`*Q_Fdf8I=I*z-JGLWxHesH7kvo;~AB;Ifbe+N97tDF| z7jCAk|?3F ztub&+;;l0A76R=0BRSMc-q;T$G>lTERH|_A4Ytk*t{X|al(e}*+#dPC>ytD&jg6J1 z1fSjd{lcMz5`>LuBX{x!+%Se}rJejgzq)8O%a<#;D>aID5 z@S9fvsj>q9;&w#^3N{5u08#}uu>zaZx-JIwA&0iuptcx9;doYhHuv(DI%DrT%OdD5QyN2|dc(TBd$op7WOOD~82FS;#p(ZypV_mx=elDF?zg@K zkDdh@D7{;?;7P&e*UFsbt)9i|toG9|F}UrWiQYc!eYO8>u3MJM%bflWBDB0<99G^b zqJeFb+2X7@Owy6-{TRl>hF>6C^7J zLeY+w=0w5PK`wOZ`%C@Pf)D6~!H&sb#S#9{NIKhN=&)ulrWA6+#uOaG3MEFQ@D zAkOb}o$oIQ;eROKgWLN|FFOBO@cNh;wBcj1MKkK@$Ul*Yf`u};YaA?3ss4BzVQ103 z@-#@|4DOlCZGBI`C!$01(%e)r-b;GqF_v$`t}(abR>|PgX(y*+@ELw>{N5K`wx!Ly zI8~8Uc-$6^?V`B{SAj7I!spX&zMI?dh0$2NUT93}dG!!=w)0(pt2#p&$rE2m5L(BE Vp3zyXRTzgV^rM3?ov8BC`46}_SkM3f literal 0 HcmV?d00001 diff --git a/ApplicationScripting/Source/NSTextView+ScriptExecution.h b/ApplicationScripting/Source/NSTextView+ScriptExecution.h new file mode 100644 index 0000000..4f91378 --- /dev/null +++ b/ApplicationScripting/Source/NSTextView+ScriptExecution.h @@ -0,0 +1,34 @@ +/** + NSTextView+ScriptExecution + + Application Scripting support - execution of selected text + + Copyright (c)2003 Stefan Urbanek + + Written by: Stefan Urbanek + Date: 2003 Mar 23 + + This file is part of the StepTalk project. + + This library is free software; you can redistribute it and/or + modify it under the terms of the GNU Lesser General Public + License as published by the Free Software Foundation; either + version 2 of the License, or (at your option) any later version. + + This library is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + Lesser General Public License for more details. + + You should have received a copy of the GNU Lesser General Public + License along with this library; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA + + */ + +#import + +@interface NSTextView(STScriptExecution) +- (void)executeSelectionScript:(id)sender; +- (void)executeAndShowSelectionScript:(id)sender; +@end diff --git a/ApplicationScripting/Source/NSTextView+ScriptExecution.m b/ApplicationScripting/Source/NSTextView+ScriptExecution.m new file mode 100644 index 0000000..2f16bcb --- /dev/null +++ b/ApplicationScripting/Source/NSTextView+ScriptExecution.m @@ -0,0 +1,74 @@ +/** + NSTextView+ScriptExecution + + Application Scripting support - execution of selected text + + Copyright (c)2003 Stefan Urbanek + + Written by: Stefan Urbanek + Date: 2003 Mar 23 + + This file is part of the StepTalk project. + + This library is free software; you can redistribute it and/or + modify it under the terms of the GNU Lesser General Public + License as published by the Free Software Foundation; either + version 2 of the License, or (at your option) any later version. + + This library is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + Lesser General Public License for more details. + + You should have received a copy of the GNU Lesser General Public + License along with this library; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA + + */ + +#import "NSTextView+ScriptExecution.h" + +#import "NSApplication+additions.h" + +@implementation NSTextView(STScriptExecution) +- (void)executeSelectionScript:(id)sender +{ + STEnvironment *env; + NSString *selectedString; + NSRange range = [self selectedRange]; + + NSLog(@"Do!"); + + env = [NSApp scriptingEnvironment]; + selectedString = [[self attributedSubstringFromRange:range] string]; + + [[NSApp scriptingController] executeScriptString:selectedString + inEnvironment:env]; +} +- (void)executeAndShowSelectionScript:(id)sender +{ + STEnvironment *env; + NSString *selectedString; + NSRange range = [self selectedRange]; + id retval = nil; + id string; + + NSLog(@"Do and Show!"); + + env = [NSApp scriptingEnvironment]; + selectedString = [[self attributedSubstringFromRange:range] string]; + + retval = [[NSApp scriptingController] executeScriptString:selectedString + inEnvironment:env]; + + NSLog(@"Returned %@",retval); + if([self isEditable]) + { + [self insertText:[retval description]]; + } + else + { + NSLog(@"Text is not editable!"); + } +} +@end