equal
deleted
inserted
replaced
12 "{ Package: 'stx:libwidg' }" |
12 "{ Package: 'stx:libwidg' }" |
13 |
13 |
14 TextCollector subclass:#Workspace |
14 TextCollector subclass:#Workspace |
15 instanceVariableNames:'doItAction codeStartPosition errorFgColor errorBgColor |
15 instanceVariableNames:'doItAction codeStartPosition errorFgColor errorBgColor |
16 commentStrings autoDefineWorkspaceVariables simulatedSelf |
16 commentStrings autoDefineWorkspaceVariables simulatedSelf |
17 autoDefineVariables compilerClass allowValueDrop' |
17 autoDefineVariables compilerClass allowValueDrop |
|
18 poolsConsideredInDoIts' |
18 classVariableNames:'DefaultViewBackground DefaultErrorForegroundColor |
19 classVariableNames:'DefaultViewBackground DefaultErrorForegroundColor |
19 DefaultErrorBackgroundColor DefaultWarningBackgroundColor |
20 DefaultErrorBackgroundColor DefaultWarningBackgroundColor |
20 DefaultWarningForegroundColor WorkspaceVariables DoItHistory' |
21 DefaultWarningForegroundColor WorkspaceVariables DoItHistory' |
21 poolDictionaries:'' |
22 poolDictionaries:'' |
22 category:'Interface-Smalltalk' |
23 category:'Interface-Smalltalk' |
370 ^ selectionFgColor |
371 ^ selectionFgColor |
371 ! |
372 ! |
372 |
373 |
373 hasSelectionOrTextInCursorLine |
374 hasSelectionOrTextInCursorLine |
374 ^ (self selectionOrTextOfCursorLine:false) notNil |
375 ^ (self selectionOrTextOfCursorLine:false) notNil |
|
376 ! |
|
377 |
|
378 poolsConsideredInDoIts:something |
|
379 poolsConsideredInDoIts := something. |
375 ! |
380 ! |
376 |
381 |
377 selectAll |
382 selectAll |
378 super selectAll |
383 super selectAll |
379 ! |
384 ! |
1034 |
1039 |
1035 "Modified: 27.2.1996 / 15:31:37 / cg" |
1040 "Modified: 27.2.1996 / 15:31:37 / cg" |
1036 ! |
1041 ! |
1037 |
1042 |
1038 executeDoIt:theCode |
1043 executeDoIt:theCode |
1039 ^ self compilerClass |
1044 ^ (self compilerClass new) moreSharedPools:poolsConsideredInDoIts; |
1040 evaluate:theCode |
1045 evaluate:theCode |
1041 in:nil |
1046 in:nil |
1042 receiver:simulatedSelf |
1047 receiver:simulatedSelf |
1043 notifying:self |
1048 notifying:self |
1044 logged:true |
1049 logged:true |
1445 ! ! |
1450 ! ! |
1446 |
1451 |
1447 !Workspace class methodsFor:'documentation'! |
1452 !Workspace class methodsFor:'documentation'! |
1448 |
1453 |
1449 version |
1454 version |
1450 ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.173 2007-11-08 10:37:48 cg Exp $' |
1455 ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.174 2008-01-24 13:50:17 cg Exp $' |
1451 ! ! |
1456 ! ! |