--- a/BrowserView.st Thu May 20 18:33:00 1999 +0200
+++ b/BrowserView.st Thu May 20 18:41:33 1999 +0200
@@ -3325,222 +3325,223 @@
|specialMenu items m newClassMenu spawnMenu idx spawnItems|
currentClass isNil ifTrue:[
- items := #(
- ('fileIn new from repository...' classLoadNewRevision)
- ).
+ items := #(
+ ('fileIn new from repository...' classLoadNewRevision)
+ ).
] ifFalse:[
- items := #(
- ('fileOut binary' classFileOutBinary )
- ('fileOut binary as...' classFileOutBinaryAs )
- ('-' nil )
- ('inspect class' classInspect )
- ('inspect instances' classInstancesInspect )
- ('inspect derived instances' classDerivedInstancesInspect )
- ('-' nil )
- ('make private class...' classMakePrivate )
- ('make public class' classMakePublic )
- ('-' nil )
- ('primitive definitions' classPrimitiveDefinitions )
- ('primitive variables' classPrimitiveVariables )
- ('primitive functions' classPrimitiveFunctions )
- ('-' nil )
- ('package...' classModifyPackage )
- ('source container...' classModifyContainer )
- ('remove source container...' classRemoveContainer )
- ('-' nil )
- ('revision log' classRevisionInfo )
- ('compare with repository...' classCompareWithRepository )
- ('-' nil )
- ('check into source repository...' classCheckin )
- ('fileIn from repository...' classLoadRevision )
- ).
+ items := #(
+ ('fileOut binary' classFileOutBinary )
+ ('fileOut binary as...' classFileOutBinaryAs )
+ ('-' nil )
+ ('inspect class' classInspect )
+ ('inspect instances' classInstancesInspect )
+ ('inspect derived instances' classDerivedInstancesInspect )
+ ('-' nil )
+ ('make private class...' classMakePrivate )
+ ('make public class' classMakePublic )
+ ('-' nil )
+ ('primitive definitions' classPrimitiveDefinitions )
+ ('primitive variables' classPrimitiveVariables )
+ ('primitive functions' classPrimitiveFunctions )
+ ('-' nil )
+ ('package...' classModifyPackage )
+ ('source container...' classModifyContainer )
+ ('remove source container...' classRemoveContainer )
+ ('-' nil )
+ ('revision log' classRevisionInfo )
+ ('compare with repository...' classCompareWithRepository )
+ ('-' nil )
+ ('check into source repository...' classCheckin )
+ ('fileIn from repository...' classLoadRevision )
+ ).
].
specialMenu := PopUpMenu itemList:items resources:resources.
currentClass notNil ifTrue:[
- currentClass sourceCodeManager isNil ifTrue:[
- specialMenu disableAll:#(classModifyContainer classRemoveContainer
- classRevisionInfo
- classLoadRevision classCheckin
- classCompareWithRepository).
- ].
- currentClass isPrivate ifTrue:[
- specialMenu disableAll:#(
- classFileOutBinary
- classMakePrivate
- classModifyContainer
- classRemoveContainer
- classRevisionInfo
- classLoadRevision classCheckin
- classCompareWithRepository
- classPrimitiveDefinitions
- classPrimitiveVariables
- classPrimitiveFunctions).
- ] ifFalse:[
- specialMenu disableAll:#(
- classMakePublic
- )
- ]
+ currentClass sourceCodeManager isNil ifTrue:[
+ specialMenu disableAll:#(classModifyContainer classRemoveContainer
+ classRevisionInfo
+ classLoadRevision classCheckin
+ classCompareWithRepository).
+ ].
+ currentClass isPrivate ifTrue:[
+ specialMenu disableAll:#(
+ classFileOutBinary
+ classMakePrivate
+ classModifyPackage
+ classModifyContainer
+ classRemoveContainer
+ classRevisionInfo
+ classLoadRevision classCheckin
+ classCompareWithRepository
+ classPrimitiveDefinitions
+ classPrimitiveVariables
+ classPrimitiveFunctions).
+ ] ifFalse:[
+ specialMenu disableAll:#(
+ classMakePublic
+ )
+ ]
] ifFalse:[
- SourceCodeManager isNil ifTrue:[
- specialMenu disableAll:#(classLoadNewRevision)
- ]
+ SourceCodeManager isNil ifTrue:[
+ specialMenu disableAll:#(classLoadNewRevision)
+ ]
].
(currentClass notNil
and:[currentClass isLoaded not]) ifTrue:[
- specialMenu disableAll:#(
- classInstancesInspect
- classDerivedInstancesInspect
- classFileOutBinary
- classFileOutBinaryAs
- classMakePrivate
- classMakePublic
- "/ classModifyPackage
- classModifyContainer
- classRemoveContainer
- classRevisionInfo
- classLoadRevision
- classCheckin
- classCompareWithRepository
- classPrimitiveDefinitions
- classPrimitiveVariables
- classPrimitiveFunctions).
+ specialMenu disableAll:#(
+ classInstancesInspect
+ classDerivedInstancesInspect
+ classFileOutBinary
+ classFileOutBinaryAs
+ classMakePrivate
+ classMakePublic
+ "/ classModifyPackage
+ classModifyContainer
+ classRemoveContainer
+ classRevisionInfo
+ classLoadRevision
+ classCheckin
+ classCompareWithRepository
+ classPrimitiveDefinitions
+ classPrimitiveVariables
+ classPrimitiveFunctions).
].
device ctrlDown ifTrue:[
- ^ specialMenu
+ ^ specialMenu
].
currentClass isNil ifTrue:[
- items := #(
- ('new class' classNewClass Cmdn)
- ('new application' classNewApplication)
- ('new dialog' classNewDialog)
- ).
+ items := #(
+ ('new class' classNewClass Cmdn)
+ ('new application' classNewApplication)
+ ('new dialog' classNewDialog)
+ ).
] ifFalse:[
- currentClass isLoaded ifFalse:[
- items := #(
- ('documentation' classDocumentation )
- ('save documentation as...' classDocumentationAs )
- ('-' nil )
- ('class refs' classRefs )
- ('-' nil )
- ('new class' classNewClass Cmdn )
- ('new application' classNewApplication )
- ('new dialog' classNewDialog )
- ('remove...' classRemove )
- ('-' nil )
- ('load' classLoad Cmdl )
- ).
- ] ifTrue:[
- fullProtocol ifTrue:[
- items := #(
- ('hierarchy' classHierarchy )
- ('definition' classDefinition )
- ('documentation' classDocumentation Cmdd )
- ('save documentation as...' classDocumentationAs )
- ('comment' classComment )
- ('class instvars' classClassInstVars )
- ).
- ] ifFalse:[
- items := #(
- ('fileOut' classFileOut )
- ('fileOut as...' classFileOutAs )
- ('printOut' classPrintOut )
- ('printOut protocol' classPrintOutProtocol )
- ('-' nil )
- ).
-
- classCategoryListView isNil ifTrue:[
- "/ a hierarchy or subclass-browser.
- items := items , #(
- ('browse' classCategoryClone )
- ).
- ].
- items := items , #(
- ('spawn...' spawnMenu )
- ('-' nil )
- ).
-
- spawnItems := #(
- ('class' classSpawn )
- ('full protocol' classSpawnFullProtocol )
- ('hierarchy' classSpawnHierarchy )
- ('subclasses' classSpawnSubclasses )
- ).
- spawnMenu := PopUpMenu
- itemList:spawnItems
- resources:resources.
-
- fullClass ifFalse:[
- items := items , #(
- ('hierarchy' classHierarchy )
- ('definition' classDefinition )
- ('documentation' classDocumentation Cmdd )
- ('save documentation as...' classDocumentationAs )
- ('comment' classComment )
- ('class instvars' classClassInstVars )
- ('-' nil )
- ).
- ].
-
- items := items , #(
- ('class refs' classRefs )
- ('-' nil )
- ('new...' newClassMenu)
- ).
-
- newClassMenu := PopUpMenu
- itemList:#(
- ('class' classNewClass Cmdn )
- ('subclass' classNewSubclass )
- ('private class' classNewPrivateClass )
- ('application' classNewApplication )
- ('dialog' classNewDialog )
- )
- resources:resources.
-
- items := items , #(
- ('rename...' classRename )
- ('remove...' classRemove )
- ).
-
- currentClass wasAutoloaded ifTrue:[
- items := items , #(
- ('unload' classUnload)
- ).
- ]
- ]
- ].
+ currentClass isLoaded ifFalse:[
+ items := #(
+ ('documentation' classDocumentation )
+ ('save documentation as...' classDocumentationAs )
+ ('-' nil )
+ ('class refs' classRefs )
+ ('-' nil )
+ ('new class' classNewClass Cmdn )
+ ('new application' classNewApplication )
+ ('new dialog' classNewDialog )
+ ('remove...' classRemove )
+ ('-' nil )
+ ('load' classLoad Cmdl )
+ ).
+ ] ifTrue:[
+ fullProtocol ifTrue:[
+ items := #(
+ ('hierarchy' classHierarchy )
+ ('definition' classDefinition )
+ ('documentation' classDocumentation Cmdd )
+ ('save documentation as...' classDocumentationAs )
+ ('comment' classComment )
+ ('class instvars' classClassInstVars )
+ ).
+ ] ifFalse:[
+ items := #(
+ ('fileOut' classFileOut )
+ ('fileOut as...' classFileOutAs )
+ ('printOut' classPrintOut )
+ ('printOut protocol' classPrintOutProtocol )
+ ('-' nil )
+ ).
+
+ classCategoryListView isNil ifTrue:[
+ "/ a hierarchy or subclass-browser.
+ items := items , #(
+ ('browse' classCategoryClone )
+ ).
+ ].
+ items := items , #(
+ ('spawn...' spawnMenu )
+ ('-' nil )
+ ).
+
+ spawnItems := #(
+ ('class' classSpawn )
+ ('full protocol' classSpawnFullProtocol )
+ ('hierarchy' classSpawnHierarchy )
+ ('subclasses' classSpawnSubclasses )
+ ).
+ spawnMenu := PopUpMenu
+ itemList:spawnItems
+ resources:resources.
+
+ fullClass ifFalse:[
+ items := items , #(
+ ('hierarchy' classHierarchy )
+ ('definition' classDefinition )
+ ('documentation' classDocumentation Cmdd )
+ ('save documentation as...' classDocumentationAs )
+ ('comment' classComment )
+ ('class instvars' classClassInstVars )
+ ('-' nil )
+ ).
+ ].
+
+ items := items , #(
+ ('class refs' classRefs )
+ ('-' nil )
+ ('new...' newClassMenu)
+ ).
+
+ newClassMenu := PopUpMenu
+ itemList:#(
+ ('class' classNewClass Cmdn )
+ ('subclass' classNewSubclass )
+ ('private class' classNewPrivateClass )
+ ('application' classNewApplication )
+ ('dialog' classNewDialog )
+ )
+ resources:resources.
+
+ items := items , #(
+ ('rename...' classRename )
+ ('remove...' classRemove )
+ ).
+
+ currentClass wasAutoloaded ifTrue:[
+ items := items , #(
+ ('unload' classUnload)
+ ).
+ ]
+ ]
+ ].
].
items := items , #(
- ('=' nil )
- ('others' otherMenu Ctrl)
- ).
+ ('=' nil )
+ ('others' otherMenu Ctrl)
+ ).
m := PopUpMenu itemList:items resources:resources.
newClassMenu notNil ifTrue:[
- m subMenuAt:#newClassMenu put:newClassMenu.
+ m subMenuAt:#newClassMenu put:newClassMenu.
].
spawnMenu notNil ifTrue:[
- m subMenuAt:#spawnMenu put:spawnMenu.
+ m subMenuAt:#spawnMenu put:spawnMenu.
].
(currentClass notNil
and:[currentClass isPrivate]) ifTrue:[
- m disableAll:#(
- classFileOut
- )
+ m disableAll:#(
+ classFileOut
+ )
].
m subMenuAt:#otherMenu put:specialMenu.
^ m
- "Modified: / 29.1.1999 / 15:34:06 / cg"
+ "Modified: / 20.5.1999 / 18:36:25 / cg"
!
classNewApplication
@@ -13528,6 +13529,6 @@
!BrowserView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.503 1999-05-08 13:16:41 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.504 1999-05-20 16:41:33 cg Exp $'
! !
BrowserView initialize!
--- a/BrwsrView.st Thu May 20 18:33:00 1999 +0200
+++ b/BrwsrView.st Thu May 20 18:41:33 1999 +0200
@@ -3325,222 +3325,223 @@
|specialMenu items m newClassMenu spawnMenu idx spawnItems|
currentClass isNil ifTrue:[
- items := #(
- ('fileIn new from repository...' classLoadNewRevision)
- ).
+ items := #(
+ ('fileIn new from repository...' classLoadNewRevision)
+ ).
] ifFalse:[
- items := #(
- ('fileOut binary' classFileOutBinary )
- ('fileOut binary as...' classFileOutBinaryAs )
- ('-' nil )
- ('inspect class' classInspect )
- ('inspect instances' classInstancesInspect )
- ('inspect derived instances' classDerivedInstancesInspect )
- ('-' nil )
- ('make private class...' classMakePrivate )
- ('make public class' classMakePublic )
- ('-' nil )
- ('primitive definitions' classPrimitiveDefinitions )
- ('primitive variables' classPrimitiveVariables )
- ('primitive functions' classPrimitiveFunctions )
- ('-' nil )
- ('package...' classModifyPackage )
- ('source container...' classModifyContainer )
- ('remove source container...' classRemoveContainer )
- ('-' nil )
- ('revision log' classRevisionInfo )
- ('compare with repository...' classCompareWithRepository )
- ('-' nil )
- ('check into source repository...' classCheckin )
- ('fileIn from repository...' classLoadRevision )
- ).
+ items := #(
+ ('fileOut binary' classFileOutBinary )
+ ('fileOut binary as...' classFileOutBinaryAs )
+ ('-' nil )
+ ('inspect class' classInspect )
+ ('inspect instances' classInstancesInspect )
+ ('inspect derived instances' classDerivedInstancesInspect )
+ ('-' nil )
+ ('make private class...' classMakePrivate )
+ ('make public class' classMakePublic )
+ ('-' nil )
+ ('primitive definitions' classPrimitiveDefinitions )
+ ('primitive variables' classPrimitiveVariables )
+ ('primitive functions' classPrimitiveFunctions )
+ ('-' nil )
+ ('package...' classModifyPackage )
+ ('source container...' classModifyContainer )
+ ('remove source container...' classRemoveContainer )
+ ('-' nil )
+ ('revision log' classRevisionInfo )
+ ('compare with repository...' classCompareWithRepository )
+ ('-' nil )
+ ('check into source repository...' classCheckin )
+ ('fileIn from repository...' classLoadRevision )
+ ).
].
specialMenu := PopUpMenu itemList:items resources:resources.
currentClass notNil ifTrue:[
- currentClass sourceCodeManager isNil ifTrue:[
- specialMenu disableAll:#(classModifyContainer classRemoveContainer
- classRevisionInfo
- classLoadRevision classCheckin
- classCompareWithRepository).
- ].
- currentClass isPrivate ifTrue:[
- specialMenu disableAll:#(
- classFileOutBinary
- classMakePrivate
- classModifyContainer
- classRemoveContainer
- classRevisionInfo
- classLoadRevision classCheckin
- classCompareWithRepository
- classPrimitiveDefinitions
- classPrimitiveVariables
- classPrimitiveFunctions).
- ] ifFalse:[
- specialMenu disableAll:#(
- classMakePublic
- )
- ]
+ currentClass sourceCodeManager isNil ifTrue:[
+ specialMenu disableAll:#(classModifyContainer classRemoveContainer
+ classRevisionInfo
+ classLoadRevision classCheckin
+ classCompareWithRepository).
+ ].
+ currentClass isPrivate ifTrue:[
+ specialMenu disableAll:#(
+ classFileOutBinary
+ classMakePrivate
+ classModifyPackage
+ classModifyContainer
+ classRemoveContainer
+ classRevisionInfo
+ classLoadRevision classCheckin
+ classCompareWithRepository
+ classPrimitiveDefinitions
+ classPrimitiveVariables
+ classPrimitiveFunctions).
+ ] ifFalse:[
+ specialMenu disableAll:#(
+ classMakePublic
+ )
+ ]
] ifFalse:[
- SourceCodeManager isNil ifTrue:[
- specialMenu disableAll:#(classLoadNewRevision)
- ]
+ SourceCodeManager isNil ifTrue:[
+ specialMenu disableAll:#(classLoadNewRevision)
+ ]
].
(currentClass notNil
and:[currentClass isLoaded not]) ifTrue:[
- specialMenu disableAll:#(
- classInstancesInspect
- classDerivedInstancesInspect
- classFileOutBinary
- classFileOutBinaryAs
- classMakePrivate
- classMakePublic
- "/ classModifyPackage
- classModifyContainer
- classRemoveContainer
- classRevisionInfo
- classLoadRevision
- classCheckin
- classCompareWithRepository
- classPrimitiveDefinitions
- classPrimitiveVariables
- classPrimitiveFunctions).
+ specialMenu disableAll:#(
+ classInstancesInspect
+ classDerivedInstancesInspect
+ classFileOutBinary
+ classFileOutBinaryAs
+ classMakePrivate
+ classMakePublic
+ "/ classModifyPackage
+ classModifyContainer
+ classRemoveContainer
+ classRevisionInfo
+ classLoadRevision
+ classCheckin
+ classCompareWithRepository
+ classPrimitiveDefinitions
+ classPrimitiveVariables
+ classPrimitiveFunctions).
].
device ctrlDown ifTrue:[
- ^ specialMenu
+ ^ specialMenu
].
currentClass isNil ifTrue:[
- items := #(
- ('new class' classNewClass Cmdn)
- ('new application' classNewApplication)
- ('new dialog' classNewDialog)
- ).
+ items := #(
+ ('new class' classNewClass Cmdn)
+ ('new application' classNewApplication)
+ ('new dialog' classNewDialog)
+ ).
] ifFalse:[
- currentClass isLoaded ifFalse:[
- items := #(
- ('documentation' classDocumentation )
- ('save documentation as...' classDocumentationAs )
- ('-' nil )
- ('class refs' classRefs )
- ('-' nil )
- ('new class' classNewClass Cmdn )
- ('new application' classNewApplication )
- ('new dialog' classNewDialog )
- ('remove...' classRemove )
- ('-' nil )
- ('load' classLoad Cmdl )
- ).
- ] ifTrue:[
- fullProtocol ifTrue:[
- items := #(
- ('hierarchy' classHierarchy )
- ('definition' classDefinition )
- ('documentation' classDocumentation Cmdd )
- ('save documentation as...' classDocumentationAs )
- ('comment' classComment )
- ('class instvars' classClassInstVars )
- ).
- ] ifFalse:[
- items := #(
- ('fileOut' classFileOut )
- ('fileOut as...' classFileOutAs )
- ('printOut' classPrintOut )
- ('printOut protocol' classPrintOutProtocol )
- ('-' nil )
- ).
-
- classCategoryListView isNil ifTrue:[
- "/ a hierarchy or subclass-browser.
- items := items , #(
- ('browse' classCategoryClone )
- ).
- ].
- items := items , #(
- ('spawn...' spawnMenu )
- ('-' nil )
- ).
-
- spawnItems := #(
- ('class' classSpawn )
- ('full protocol' classSpawnFullProtocol )
- ('hierarchy' classSpawnHierarchy )
- ('subclasses' classSpawnSubclasses )
- ).
- spawnMenu := PopUpMenu
- itemList:spawnItems
- resources:resources.
-
- fullClass ifFalse:[
- items := items , #(
- ('hierarchy' classHierarchy )
- ('definition' classDefinition )
- ('documentation' classDocumentation Cmdd )
- ('save documentation as...' classDocumentationAs )
- ('comment' classComment )
- ('class instvars' classClassInstVars )
- ('-' nil )
- ).
- ].
-
- items := items , #(
- ('class refs' classRefs )
- ('-' nil )
- ('new...' newClassMenu)
- ).
-
- newClassMenu := PopUpMenu
- itemList:#(
- ('class' classNewClass Cmdn )
- ('subclass' classNewSubclass )
- ('private class' classNewPrivateClass )
- ('application' classNewApplication )
- ('dialog' classNewDialog )
- )
- resources:resources.
-
- items := items , #(
- ('rename...' classRename )
- ('remove...' classRemove )
- ).
-
- currentClass wasAutoloaded ifTrue:[
- items := items , #(
- ('unload' classUnload)
- ).
- ]
- ]
- ].
+ currentClass isLoaded ifFalse:[
+ items := #(
+ ('documentation' classDocumentation )
+ ('save documentation as...' classDocumentationAs )
+ ('-' nil )
+ ('class refs' classRefs )
+ ('-' nil )
+ ('new class' classNewClass Cmdn )
+ ('new application' classNewApplication )
+ ('new dialog' classNewDialog )
+ ('remove...' classRemove )
+ ('-' nil )
+ ('load' classLoad Cmdl )
+ ).
+ ] ifTrue:[
+ fullProtocol ifTrue:[
+ items := #(
+ ('hierarchy' classHierarchy )
+ ('definition' classDefinition )
+ ('documentation' classDocumentation Cmdd )
+ ('save documentation as...' classDocumentationAs )
+ ('comment' classComment )
+ ('class instvars' classClassInstVars )
+ ).
+ ] ifFalse:[
+ items := #(
+ ('fileOut' classFileOut )
+ ('fileOut as...' classFileOutAs )
+ ('printOut' classPrintOut )
+ ('printOut protocol' classPrintOutProtocol )
+ ('-' nil )
+ ).
+
+ classCategoryListView isNil ifTrue:[
+ "/ a hierarchy or subclass-browser.
+ items := items , #(
+ ('browse' classCategoryClone )
+ ).
+ ].
+ items := items , #(
+ ('spawn...' spawnMenu )
+ ('-' nil )
+ ).
+
+ spawnItems := #(
+ ('class' classSpawn )
+ ('full protocol' classSpawnFullProtocol )
+ ('hierarchy' classSpawnHierarchy )
+ ('subclasses' classSpawnSubclasses )
+ ).
+ spawnMenu := PopUpMenu
+ itemList:spawnItems
+ resources:resources.
+
+ fullClass ifFalse:[
+ items := items , #(
+ ('hierarchy' classHierarchy )
+ ('definition' classDefinition )
+ ('documentation' classDocumentation Cmdd )
+ ('save documentation as...' classDocumentationAs )
+ ('comment' classComment )
+ ('class instvars' classClassInstVars )
+ ('-' nil )
+ ).
+ ].
+
+ items := items , #(
+ ('class refs' classRefs )
+ ('-' nil )
+ ('new...' newClassMenu)
+ ).
+
+ newClassMenu := PopUpMenu
+ itemList:#(
+ ('class' classNewClass Cmdn )
+ ('subclass' classNewSubclass )
+ ('private class' classNewPrivateClass )
+ ('application' classNewApplication )
+ ('dialog' classNewDialog )
+ )
+ resources:resources.
+
+ items := items , #(
+ ('rename...' classRename )
+ ('remove...' classRemove )
+ ).
+
+ currentClass wasAutoloaded ifTrue:[
+ items := items , #(
+ ('unload' classUnload)
+ ).
+ ]
+ ]
+ ].
].
items := items , #(
- ('=' nil )
- ('others' otherMenu Ctrl)
- ).
+ ('=' nil )
+ ('others' otherMenu Ctrl)
+ ).
m := PopUpMenu itemList:items resources:resources.
newClassMenu notNil ifTrue:[
- m subMenuAt:#newClassMenu put:newClassMenu.
+ m subMenuAt:#newClassMenu put:newClassMenu.
].
spawnMenu notNil ifTrue:[
- m subMenuAt:#spawnMenu put:spawnMenu.
+ m subMenuAt:#spawnMenu put:spawnMenu.
].
(currentClass notNil
and:[currentClass isPrivate]) ifTrue:[
- m disableAll:#(
- classFileOut
- )
+ m disableAll:#(
+ classFileOut
+ )
].
m subMenuAt:#otherMenu put:specialMenu.
^ m
- "Modified: / 29.1.1999 / 15:34:06 / cg"
+ "Modified: / 20.5.1999 / 18:36:25 / cg"
!
classNewApplication
@@ -13528,6 +13529,6 @@
!BrowserView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.503 1999-05-08 13:16:41 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.504 1999-05-20 16:41:33 cg Exp $'
! !
BrowserView initialize!