From 82e360495aa84504faa9c4a5d7de20cf384684d0 Mon Sep 17 00:00:00 2001
From: Gabriel Omar Cotelli <g.cotelli@gmail.com>
Date: Wed, 3 Apr 2024 17:27:14 -0300
Subject: [PATCH] Add inspector extensions to see gs_options

---
 .../Behavior.extension.st                     | 20 +++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 source/Buoy-Development-Tools/Behavior.extension.st

diff --git a/source/Buoy-Development-Tools/Behavior.extension.st b/source/Buoy-Development-Tools/Behavior.extension.st
new file mode 100644
index 0000000..8c37410
--- /dev/null
+++ 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)
+]