equal
deleted
inserted
replaced
309 DefaultErrorForegroundColor := StyleSheet colorAt:'codeErrorSelection.foregroundColor'. |
309 DefaultErrorForegroundColor := StyleSheet colorAt:'codeErrorSelection.foregroundColor'. |
310 DefaultErrorBackgroundColor := StyleSheet colorAt:'codeErrorSelection.backgroundColor'. |
310 DefaultErrorBackgroundColor := StyleSheet colorAt:'codeErrorSelection.backgroundColor'. |
311 DefaultViewBackground := StyleSheet colorAt:'codeView.backgroundColor'. |
311 DefaultViewBackground := StyleSheet colorAt:'codeView.backgroundColor'. |
312 ! ! |
312 ! ! |
313 |
313 |
|
314 |
314 !Workspace class methodsFor:'getting a new Workspace'! |
315 !Workspace class methodsFor:'getting a new Workspace'! |
315 |
316 |
316 open |
317 open |
317 "launch a new workspace" |
318 "launch a new workspace" |
318 |
319 |
1796 ((cls := self editedClass) notNil |
1797 ((cls := self editedClass) notNil |
1797 and:[ (cls theNonMetaclass allClassVarNames includes:nameOfVariable) ]) ifTrue:[ |
1798 and:[ (cls theNonMetaclass allClassVarNames includes:nameOfVariable) ]) ifTrue:[ |
1798 browserClass |
1799 browserClass |
1799 browseRefsTo:nameOfVariable |
1800 browseRefsTo:nameOfVariable |
1800 classVars:true |
1801 classVars:true |
1801 in:(cls whichClassDefinesClassVar:nameOfVariable) withAllSubclasses |
1802 in:(cls theNonMetaclass whichClassDefinesClassVar:nameOfVariable) withAllSubclasses |
1802 modificationsOnly:false. |
1803 modificationsOnly:false. |
1803 ] ifFalse:[ |
1804 ] ifFalse:[ |
1804 "/ is it a private class? |
1805 "/ is it a private class? |
1805 (cls notNil |
1806 (cls notNil |
1806 and:[ (privateClass := cls theNonMetaclass privateClassNamed:nameOfVariable) notNil ]) ifTrue:[ |
1807 and:[ (privateClass := cls theNonMetaclass privateClassNamed:nameOfVariable) notNil ]) ifTrue:[ |
2330 ! ! |
2331 ! ! |
2331 |
2332 |
2332 !Workspace class methodsFor:'documentation'! |
2333 !Workspace class methodsFor:'documentation'! |
2333 |
2334 |
2334 version |
2335 version |
2335 ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.335 2014-07-09 02:01:04 cg Exp $' |
2336 ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.336 2014-07-27 11:11:59 cg Exp $' |
2336 ! |
2337 ! |
2337 |
2338 |
2338 version_CVS |
2339 version_CVS |
2339 ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.335 2014-07-09 02:01:04 cg Exp $' |
2340 ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.336 2014-07-27 11:11:59 cg Exp $' |
2340 ! ! |
2341 ! ! |
2341 |
2342 |