equal
deleted
inserted
replaced
1398 ]. |
1398 ]. |
1399 ^ #Smalltalk |
1399 ^ #Smalltalk |
1400 ! |
1400 ! |
1401 |
1401 |
1402 workspaceSelectionChanged |
1402 workspaceSelectionChanged |
1403 |compilerClass| |
1403 |compilerClass selectedWorkspace| |
1404 |
1404 |
1405 super workspaceSelectionChanged. |
1405 super workspaceSelectionChanged. |
1406 |
1406 selectedWorkspace := self selectedWorkspace. |
1407 compilerClass := self selectedWorkspace compilerClass. |
1407 compilerClass := selectedWorkspace isNil ifTrue:[Compiler] ifFalse:[selectedWorkspace compilerClass]. |
1408 self syntaxHolder setValue:(self syntaxNameForCompilerClass:compilerClass). |
1408 self syntaxHolder setValue:(self syntaxNameForCompilerClass:compilerClass). |
1409 ! ! |
1409 ! ! |
1410 |
1410 |
1411 !WorkspaceApplication class methodsFor:'documentation'! |
1411 !WorkspaceApplication class methodsFor:'documentation'! |
1412 |
1412 |
1413 version |
1413 version |
1414 ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.86 2004-05-17 08:59:05 cg Exp $' |
1414 ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.87 2004-05-17 19:20:54 cg Exp $' |
1415 ! ! |
1415 ! ! |