13 "{ Package: 'stx:libtool' }" |
13 "{ Package: 'stx:libtool' }" |
14 |
14 |
15 "{ NameSpace: Tools }" |
15 "{ NameSpace: Tools }" |
16 |
16 |
17 Object subclass:#NavigationState |
17 Object subclass:#NavigationState |
18 instanceVariableNames:'browserLabel codeModifiedHolder categoryList classList |
18 instanceVariableNames:'browserLabel codeModifiedHolder categoryList classList |
19 packageFilter nameSpaceFilter hidePrivateClasses canvasType |
19 packageFilter nameSpaceFilter hidePrivateClasses canvasType |
20 notMetaToggle metaToggle metaToggleLabel organizerMode codeAspect |
20 notMetaToggle metaToggle metaToggleLabel organizerMode codeAspect |
21 codeHolder classDocumentationHolder canvas selectorListGenerator |
21 codeHolder classDocumentationHolder canvas selectorListGenerator |
22 protocolListGenerator classListPerNameSpaceGenerator |
22 protocolListGenerator classListPerNameSpaceGenerator |
23 classListGenerator categoryListGenerator nameSpaceListGenerator |
23 classListGenerator categoryListGenerator nameSpaceListGenerator |
24 projectListGenerator classHierarchyTopClass meta selectedMethods |
24 projectListGenerator classHierarchyTopClass meta selectedMethods |
25 selectedProtocols selectedClasses selectedCategories |
25 selectedProtocols selectedClasses selectedCategories |
26 selectedProjects selectedNamespaces variableFilter |
26 selectedProjects selectedNamespaces variableFilter |
27 filterClassVars sortBy noAllItem autoSearchPattern |
27 filterClassVars sortBy noAllItem autoSearchPattern |
28 autoSearchIgnoreCase autoSearchAction realModifiedState |
28 autoSearchIgnoreCase autoSearchAction realModifiedState |
29 methodInfo versionDiffApplication selectorListGeneratorArray |
29 methodInfo versionDiffApplication selectorListGeneratorArray |
30 selectedMethodsArray infoLabelHolder packageLabelHolder |
30 selectedMethodsArray infoLabelHolder packageLabelHolder |
31 cursorLineLabelHolder cursorColLabelHolder modeLabelHolder |
31 cursorLineLabelHolder cursorColLabelHolder modeLabelHolder |
32 sortVariablesBy editModeHolder scrollableCodeView specialEditors |
32 sortVariablesBy editModeHolder scrollableCodeView specialEditors |
33 selectedEditorNoteBookTabIndexHolder editorNoteBookListHolder |
33 selectedEditorNoteBookTabIndexHolder editorNoteBookListHolder |
34 editorNoteBookCanvasHolder' |
34 editorNoteBookCanvasHolder codeView' |
35 classVariableNames:'' |
35 classVariableNames:'' |
36 poolDictionaries:'' |
36 poolDictionaries:'' |
37 category:'Interface-Browsers-New' |
37 category:'Interface-Browsers-New' |
38 ! |
38 ! |
39 |
39 |
40 !NavigationState class methodsFor:'documentation'! |
40 !NavigationState class methodsFor:'documentation'! |
41 |
41 |
42 copyright |
42 copyright |
295 ! ! |
295 ! ! |
296 |
296 |
297 !NavigationState methodsFor:'accessing-subViews'! |
297 !NavigationState methodsFor:'accessing-subViews'! |
298 |
298 |
299 codeView |
299 codeView |
300 ^ self scrollableCodeView scrolledView |
300 codeView isNil ifTrue:[ |
|
301 self setUpScrollableCodeView |
|
302 ]. |
|
303 ^ codeView |
|
304 ! |
|
305 |
|
306 getCodeView |
|
307 ^ codeView |
301 ! |
308 ! |
302 |
309 |
303 scrollableCodeView |
310 scrollableCodeView |
|
311 scrollableCodeView isNil ifTrue:[ |
|
312 self setUpScrollableCodeView. |
|
313 ]. |
|
314 ^ scrollableCodeView |
|
315 ! |
|
316 |
|
317 setUpScrollableCodeView |
304 scrollableCodeView isNil ifTrue:[ |
318 scrollableCodeView isNil ifTrue:[ |
305 scrollableCodeView := ScrollableView for:CodeView. |
319 scrollableCodeView := ScrollableView for:CodeView. |
306 scrollableCodeView name:'CodeView'. |
320 scrollableCodeView name:'CodeView'. |
307 scrollableCodeView horizontalMini:true. |
321 scrollableCodeView horizontalMini:true. |
308 scrollableCodeView scrolledView modifiedChannel:self codeModifiedHolder. |
322 codeView := scrollableCodeView scrolledView. |
309 scrollableCodeView scrolledView model: self codeHolder. |
323 codeView modifiedChannel:self codeModifiedHolder. |
|
324 codeView model: self codeHolder. |
|
325 |
310 ]. |
326 ]. |
311 ^ scrollableCodeView |
327 ^ scrollableCodeView |
312 ! |
328 ! |
313 |
329 |
|
330 specialEditorCanvasClassForResourceType:resourceTypeSymbol |
|
331 resourceTypeSymbol == #image ifTrue:[ |
|
332 ^ ImageEditor. |
|
333 ]. |
|
334 resourceTypeSymbol == #menu ifTrue:[ |
|
335 ^ MenuEditor. |
|
336 ]. |
|
337 ^ nil |
|
338 ! |
|
339 |
314 specialEditorCanvasForResourceType:resourceTypeSymbol |
340 specialEditorCanvasForResourceType:resourceTypeSymbol |
315 |app editor| |
341 |appClass app editor| |
316 |
342 |
317 specialEditors isNil ifTrue:[ |
343 specialEditors isNil ifTrue:[ |
318 specialEditors := Dictionary new. |
344 specialEditors := Dictionary new. |
319 ]. |
345 ]. |
320 editor := specialEditors at:resourceTypeSymbol ifAbsent:nil. |
346 editor := specialEditors at:resourceTypeSymbol ifAbsent:nil. |
321 editor isNil ifTrue:[ |
347 editor isNil ifTrue:[ |
322 resourceTypeSymbol == #image ifTrue:[ |
348 appClass := self specialEditorCanvasClassForResourceType:resourceTypeSymbol. |
323 app := ImageEditor new. |
349 appClass notNil ifTrue:[ |
324 ] ifFalse:[ |
350 app := appClass new. |
325 resourceTypeSymbol == #menu ifTrue:[ |
|
326 app := MenuEditor new. |
|
327 ] |
|
328 ]. |
|
329 app notNil ifTrue:[ |
|
330 app builder window:(editor := ApplicationSubView new client:app). |
351 app builder window:(editor := ApplicationSubView new client:app). |
331 specialEditors at:resourceTypeSymbol put:editor. |
352 specialEditors at:resourceTypeSymbol put:editor. |
332 ]. |
353 ]. |
333 ]. |
354 ]. |
334 ^ editor |
355 ^ editor |