Add a Set button to ZTimezone>>#gtViewCurrentTimezoneIn:

svenvc · Nov 7, 2023 · d5d5562 · d5d5562
1 parent 69b5407
commit d5d5562
Showing 1 changed file with 17 additions and 2 deletions.
diff --git a/repository/ZTimestamp-GT/ZTimezone.extension.st b/repository/ZTimestamp-GT/ZTimezone.extension.st
@@ -80,10 +80,25 @@ ZTimezone class >> gtViewCurrentTimezoneIn: composite [
 	^ composite columnedList
 		title: 'Current';
 		priority: 11;
-		items: [ {('image default' -> self current id)} ];
+		items: [ { ('image default' -> self current id) } ];
 		column: 'Key' text: #key;
 		column: 'Value' text: #value;
-		send: [ self current ]
+		send: [ self current ];
+		actionDropdownButtonLabel: 'Set' 
+			tooltip: 'Set the defult image timezone'
+			content: [ :aButton :aTab |
+				BrSimpleList new 
+					items: ZTimezone timezoneIdentifiers sorted;
+					stencil: [ :aString |
+						BrLabel new 
+							aptitude: BrGlamorousLabelAptitude new + 			
+								BrGlamorousListItemAptitude;
+							text: aString;
+							when: BlClickEvent do: [ :anEvent | 
+								ZTimezone current: (ZTimezone id: aString).
+								self inform: ('image timezone set to {1}' format: { aString }).
+								aTab viewContentElement phlow update.
+								anEvent target fireEvent: BrDropdownHideWish new] ] ]
 ]
 
 { #category : #'*ZTimestamp-GT' }