mirror of
https://github.com/gnustep/libs-steptalk.git
synced 2025-02-19 09:50:43 +00:00
Added forgotten .gorms
git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/steptalk/trunk@16235 72102866-910b-0410-8b05-ffd578937521
This commit is contained in:
Stefan Urbanek
parent
29d6b2bb1b
commit
a081f16e36
6 changed files with 424 additions and 0 deletions
|
|
@ -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;
|
||||||
|
};
|
||||||
|
}
|
||||||
Binary file not shown.
|
|
@ -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;
|
||||||
|
};
|
||||||
|
}
|
||||||
Binary file not shown.
34
ApplicationScripting/Source/NSTextView+ScriptExecution.h
Normal file
34
ApplicationScripting/Source/NSTextView+ScriptExecution.h
Normal file
|
|
@ -0,0 +1,34 @@
|
||||||
|
/**
|
||||||
|
NSTextView+ScriptExecution
|
||||||
|
|
||||||
|
Application Scripting support - execution of selected text
|
||||||
|
|
||||||
|
Copyright (c)2003 Stefan Urbanek
|
||||||
|
|
||||||
|
Written by: Stefan Urbanek <urbanek@host.sk>
|
||||||
|
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 <AppKit/NSTextView.h>
|
||||||
|
|
||||||
|
@interface NSTextView(STScriptExecution)
|
||||||
|
- (void)executeSelectionScript:(id)sender;
|
||||||
|
- (void)executeAndShowSelectionScript:(id)sender;
|
||||||
|
@end
|
||||||
74
ApplicationScripting/Source/NSTextView+ScriptExecution.m
Normal file
74
ApplicationScripting/Source/NSTextView+ScriptExecution.m
Normal file
|
|
@ -0,0 +1,74 @@
|
||||||
|
/**
|
||||||
|
NSTextView+ScriptExecution
|
||||||
|
|
||||||
|
Application Scripting support - execution of selected text
|
||||||
|
|
||||||
|
Copyright (c)2003 Stefan Urbanek
|
||||||
|
|
||||||
|
Written by: Stefan Urbanek <urbanek@host.sk>
|
||||||
|
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
|
||||||
Loading…
Reference in a new issue