ZTimezone class side GT extensions by Andrei Chis

svenvc · Sep 23, 2023 · 9f9607f · 9f9607f
1 parent 54de99d
commit 9f9607f
Showing 1 changed file with 58 additions and 0 deletions.
diff --git a/repository/ZTimestamp-GT/ZTimezone.extension.st b/repository/ZTimestamp-GT/ZTimezone.extension.st
@@ -1,5 +1,29 @@
 Extension { #name : #ZTimezone }
 
+{ #category : #'*ZTimestamp-GT' }
+ZTimezone class >> gtActionReloadAllTimezonesFor: anAction [ 
+	<gtClassAction>
+
+	^ anAction button
+		icon: BrGlamorousVectorIcons refresh;
+		tooltip: 'Reload all timezones';
+		priority: 10;
+		action: [ self reloadAll ]
+]
+
+{ #category : #'*ZTimestamp-GT' }
+ZTimezone class >> gtSpotterTimezonesFor: aSearch [
+	<gtSearch>
+
+	^ aSearch list
+		priority: 10;
+		title: 'Timezones';
+		items: [ self timezones values 
+			sorted: [ :aTimezone | aTimezone id ] ascending ];
+		itemName: [ :aTimezone | aTimezone id  ];
+		filterBySubstring
+]
+
 { #category : #'*ZTimestamp-GT' }
 ZTimezone >> gtViewDetailsIn: composite [
 	<gtView>
@@ -13,6 +37,40 @@ ZTimezone >> gtViewDetailsIn: composite [
 		send: #value
 ]
 
+{ #category : #'*ZTimestamp-GT' }
+ZTimezone class >> gtViewTimezonesFor: aView [
+	<gtView>
+	<gtClassView>
+	^ aView columnedList
+		title: 'Timezones';
+		priority: 10;
+		items: [ self timezones values 
+			sorted: [ :aTimezone | aTimezone id ] ascending ];
+		column: 'Id' text: [ :aTimezone | aTimezone id ];
+		column: 'Number of subzones' 
+			text: [ :aTimezone | aTimezone subzones size ]
+			width: 250;
+		actionStencil: [ :aButton | 
+				GtSpotterDropdownButtonStencil new
+					object: self;
+					tooltip: 'Search timezone id';
+					id: GtPharoSearchCodeButtonId;
+					objectActOn: [ :anActOnEvent :anItem :theButton | 
+						(anItem isKindOf: ZTimezone) ifTrue: [ 
+							| columnedList |
+
+							columnedList := theButton phlow viewContent 
+								allChildrenBreadthFirstDetect: [ :child | 
+									child isKindOf:  BrColumnedList ] 
+								ifFound: [ :child | child ].
+							columnedList scrollToItem: anItem.
+							columnedList selectOne: (columnedList items indexOf: anItem).
+
+							anActOnEvent beActed ] ];
+					asElement ]
+			tooltip: 'Search timezone id'
+]
+
 { #category : #'*ZTimestamp-GT' }
 ZTimezone >> gtViewTransitionsIn: composite [
 	<gtView>