Add example for toggles with icons and labels

feenkcom · May 15, 2024 · 95a7b8a · 95a7b8a
1 parent 49254fd
commit 95a7b8a
Show file tree

Hide file tree

Showing 3 changed files with 28 additions and 3 deletions.
diff --git 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 [
 	<gtClassView>
 	^ aView forward
 		title: 'Demo';

diff --git 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 [
+	<gtExample>
+
+	^ 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 [
 	<gtExample>

diff --git 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.