diff --git a/src/GToolkit-Coder/GtCoderToolbarElement.class.st b/src/GToolkit-Coder/GtCoderToolbarElement.class.st index bb42c2407..09417b4e0 100644 --- a/src/GToolkit-Coder/GtCoderToolbarElement.class.st +++ b/src/GToolkit-Coder/GtCoderToolbarElement.class.st @@ -99,6 +99,7 @@ GtCoderToolbarElement >> initializeToolbarElement [ addItem: self newSpotterButton; addItem: self newHierarchyButton; addItem: self newAddButton; + addItem: self newPopOutButton; yourself ] @@ -106,14 +107,14 @@ GtCoderToolbarElement >> initializeToolbarElement [ GtCoderToolbarElement >> newAddButton [ | look | ^ BrButton new - label: 'Add class or package'; + label: 'Add (e.g. class or package)'; look: BrGlamorousButtonWithIconLook + (look := BrGlamorousWithDropdownLook handle: [ BrButton new look: - BrGlamorousButtonWithIconLook - BrGlamorousButtonWithLabelTooltipLook + BrGlamorousButtonWithIconLook - BrGlamorousButtonExteriorLook; icon: BrGlamorousVectorIcons add; yourself ] @@ -153,7 +154,7 @@ GtCoderToolbarElement >> newHierarchyButton [ look: BrGlamorousButtonWithIconLook + (BrGlamorousWithDropdownLook handle: [ BrButton new - look: BrGlamorousButtonWithIconLook - BrGlamorousButtonWithLabelTooltipLook - BrGlamorousButtonExteriorLook; + look: BrGlamorousButtonWithIconLook - BrGlamorousButtonExteriorLook; icon: BrGlamorousIcons tree; yourself ] content: [ @@ -167,6 +168,23 @@ GtCoderToolbarElement >> newHierarchyButton [ yourself ] +{ #category : #'private - instance creation' } +GtCoderToolbarElement >> newPopOutButton [ + ^ BrButton new + label: 'Browse in a new window'; + look: BrGlamorousButtonWithIconLook; + icon: BrGlamorousIcons maximize asElement; + action: [ + | aSpace | + aSpace := BlSpace new. + aSpace title: 'Coder'. + "aSpace extent: 1200@600." + aSpace addChild: "GtCoderStencil new" (GtCoder new"forClass: self navigationModel selectedClass") createInPager maximized . + aSpace withHalos. + self showSpace: aSpace ]; + yourself +] + { #category : #'private - instance creation' } GtCoderToolbarElement >> newSpotterButton [