Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

Pop out a page into a new tab (like inspector in new window). DO NOT INTEGRATE #6

Open
wants to merge 2 commits into
base: master
Choose a base branch
from
Open

Pop out a page into a new tab (like inspector in new window). DO NOT INTEGRATE #6

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
52eb5f7
Pop out a page into a new window like you can do in inspector. DO NOT…
seandenigris Oct 14, 2020
bbafc99
Pop Out into Tab, Not Window. DO NOT INTEGRATE
seandenigris Oct 15, 2020
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
24 changes: 21 additions & 3 deletions src/GToolkit-Coder/GtCoderToolbarElement.class.st
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -99,21 +99,22 @@ GtCoderToolbarElement >> initializeToolbarElement [
addItem: self newSpotterButton;
addItem: self newHierarchyButton;
addItem: self newAddButton;
addItem: self newPopOutButton;
yourself
]

{ #category : #'private - instance creation' }
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 ]
Expand Down Expand Up @@ -153,7 +154,7 @@ GtCoderToolbarElement >> newHierarchyButton [
look: BrGlamorousButtonWithIconLook + (BrGlamorousWithDropdownLook
handle: [
BrButton new
look: BrGlamorousButtonWithIconLook - BrGlamorousButtonWithLabelTooltipLook - BrGlamorousButtonExteriorLook;
look: BrGlamorousButtonWithIconLook - BrGlamorousButtonExteriorLook;
icon: BrGlamorousIcons tree;
yourself ]
content: [
Expand All @@ -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 [
<return: #BrButton>
Expand Down