diff --git a/src/Brick-Examples/BrDateAndTimeSinceNowPrinter.extension.st b/src/Brick-Examples/BrDateAndTimeSinceNowPrinter.extension.st index 53f3f152..38a4a6f9 100644 --- a/src/Brick-Examples/BrDateAndTimeSinceNowPrinter.extension.st +++ b/src/Brick-Examples/BrDateAndTimeSinceNowPrinter.extension.st @@ -1,7 +1,7 @@ Extension { #name : #BrDateAndTimeSinceNowPrinter } { #category : #'*Brick-Examples' } -BrDateAndTimeSinceNowPrinter classSide >> gtDemoFor: aView [ +BrDateAndTimeSinceNowPrinter class >> gtDemoFor: aView [ ^ aView forward title: 'Demo'; diff --git a/src/Brick-Examples/BrGlamorousComponentsToggles.class.st b/src/Brick-Examples/BrGlamorousComponentsToggles.class.st index 79348a33..e4c0f217 100644 --- a/src/Brick-Examples/BrGlamorousComponentsToggles.class.st +++ b/src/Brick-Examples/BrGlamorousComponentsToggles.class.st @@ -1,7 +1,7 @@ Class { #name : #BrGlamorousComponentsToggles, #superclass : #BrGlamorousComponents, - #category : 'Brick-Examples-! Glamorous components' + #category : #'Brick-Examples-! Glamorous components' } { #category : #accessing } @@ -24,6 +24,26 @@ BrGlamorousComponentsToggles >> toggleGroupWithIcons [ label: 'Play') ] +{ #category : #accessing } +BrGlamorousComponentsToggles >> toggleGroupWithIconsAndLabels [ + + + ^ BrToggleGroup new + aptitude: BrGlamorousToggleGroupAptitude new; + addToggle: (BrToggle new + aptitude: BrGlamorousToggleWithIconAndLabelAptitude new; + icon: BrGlamorousVectorIcons inspect; + label: 'Inspect'); + addToggle: (BrToggle new + aptitude: BrGlamorousToggleWithIconAndLabelAptitude new; + icon: BrGlamorousVectorIcons browse; + label: 'Browse'); + addToggle: (BrToggle new + aptitude: BrGlamorousToggleWithIconAndLabelAptitude new; + icon: BrGlamorousVectorIcons play; + label: 'Play') +] + { #category : #accessing } BrGlamorousComponentsToggles >> toggleGroupWithLabels [ diff --git a/src/Brick/BrToggleGroup.class.st b/src/Brick/BrToggleGroup.class.st index afb8f57c..6c21ff5d 100644 --- a/src/Brick/BrToggleGroup.class.st +++ b/src/Brick/BrToggleGroup.class.st @@ -3,9 +3,14 @@ Class { #superclass : #BlElement, #traits : 'TBrLayoutResizable', #classTraits : 'TBrLayoutResizable classTrait', - #category : 'Brick-Toggle - UI' + #category : #'Brick-Toggle - UI' } +{ #category : #accessing } +BrToggleGroup >> activatedToggle [ + ^ self viewModel activatedToggle widget +] + { #category : #'adding / removing' } BrToggleGroup >> addToggle: aToggle [ self viewModel addToggle: aToggle viewModel.