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 [ + + + ^ 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) +]