equal
deleted
inserted
replaced
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 "{ Package: 'stx:libwidg' }" |
12 "{ Package: 'stx:libwidg' }" |
|
13 |
|
14 "{ NameSpace: Smalltalk }" |
13 |
15 |
14 TextCollector subclass:#Workspace |
16 TextCollector subclass:#Workspace |
15 instanceVariableNames:'doItAction codeStartPosition errorFgColor errorBgColor |
17 instanceVariableNames:'doItAction codeStartPosition errorFgColor errorBgColor |
16 commentStrings autoDefineWorkspaceVariables simulatedSelf |
18 commentStrings autoDefineWorkspaceVariables simulatedSelf |
17 autoDefineVariables compilerClass allowValueDrop |
19 autoDefineVariables compilerClass allowValueDrop |
325 DefaultErrorForegroundColor := StyleSheet colorAt:'codeErrorSelection.foregroundColor'. |
327 DefaultErrorForegroundColor := StyleSheet colorAt:'codeErrorSelection.foregroundColor'. |
326 DefaultErrorBackgroundColor := StyleSheet colorAt:'codeErrorSelection.backgroundColor'. |
328 DefaultErrorBackgroundColor := StyleSheet colorAt:'codeErrorSelection.backgroundColor'. |
327 DefaultViewBackground := StyleSheet colorAt:'codeView.backgroundColor'. |
329 DefaultViewBackground := StyleSheet colorAt:'codeView.backgroundColor'. |
328 ! ! |
330 ! ! |
329 |
331 |
330 |
|
331 !Workspace class methodsFor:'getting a new Workspace'! |
332 !Workspace class methodsFor:'getting a new Workspace'! |
332 |
333 |
333 open |
334 open |
334 "launch a new workspace" |
335 "launch a new workspace" |
335 |
336 |
1841 ]]]) ifTrue:[ |
1842 ]]]) ifTrue:[ |
1842 "/ a namespace class? |
1843 "/ a namespace class? |
1843 browserClass browseReferendsOf:nsClass name |
1844 browserClass browseReferendsOf:nsClass name |
1844 ] ifFalse:[ |
1845 ] ifFalse:[ |
1845 "/ an instvar? |
1846 "/ an instvar? |
1846 (cls allInstVarNames includes:nameOfVariable) ifTrue:[ |
1847 (cls notNil and:[cls allInstVarNames includes:nameOfVariable]) ifTrue:[ |
1847 browserClass |
1848 browserClass |
1848 browseInstRefsTo:nameOfVariable |
1849 browseInstRefsTo:nameOfVariable |
1849 under:(cls whichClassDefinesInstVar:nameOfVariable) |
1850 under:(cls whichClassDefinesInstVar:nameOfVariable) |
1850 modificationsOnly:false |
1851 modificationsOnly:false |
1851 ] ifFalse:[ |
1852 ] ifFalse:[ |
2345 ! ! |
2346 ! ! |
2346 |
2347 |
2347 !Workspace class methodsFor:'documentation'! |
2348 !Workspace class methodsFor:'documentation'! |
2348 |
2349 |
2349 version |
2350 version |
2350 ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.339 2014-11-15 15:10:59 cg Exp $' |
2351 ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.340 2015-02-06 13:50:52 cg Exp $' |
2351 ! |
2352 ! |
2352 |
2353 |
2353 version_CVS |
2354 version_CVS |
2354 ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.339 2014-11-15 15:10:59 cg Exp $' |
2355 ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.340 2015-02-06 13:50:52 cg Exp $' |
2355 ! ! |
2356 ! ! |
2356 |
2357 |