Add inspector extensions to see gs_options

ba-st · Apr 3, 2024 · 82e3604 · 82e3604
1 parent 148d1d3
commit 82e3604
Showing 1 changed file with 20 additions and 0 deletions.
diff --git a/source/Buoy-Development-Tools/Behavior.extension.st b/source/Buoy-Development-Tools/Behavior.extension.st
@@ -0,0 +1,20 @@
+Extension { #name : 'Behavior' }
+
+{ #category : '*Buoy-Development-Tools' }
+Behavior >> inspectionGs64Options: builder [
+
+	<inspectorPresentationOrder: 916 title: 'GS64 Options'>
+	^ builder newTable
+		  addColumn:
+			  (SpStringTableColumn
+				   title: 'Option'
+				   evaluated: [ :option | option ]);
+		  items: (self propertyAt: #gs_options);
+		  yourself
+]
+
+{ #category : '*Buoy-Development-Tools' }
+Behavior >> inspectionGs64OptionsContext: aContext [
+
+	aContext active: (self hasProperty: #gs_options)
+]