Add GspoByteArray

feenkcom · Oct 31, 2024 · cfae58b · cfae58b
1 parent a70d97a
commit cfae58b
Show file tree

Hide file tree

Showing 13 changed files with 114 additions and 101 deletions.
diff --git a/src/GToolkit-GemStone-Pharo/GspoByteArray.class.st b/src/GToolkit-GemStone-Pharo/GspoByteArray.class.st
@@ -0,0 +1,13 @@
+Class {
+	#name : #GspoByteArray,
+	#superclass : #GtRsrProxyServiceClient,
+	#category : #'GToolkit-GemStone-Pharo-Client'
+}
+
+{ #category : #accessing }
+GspoByteArray class >> remoteClassName [
+	"Answer the name of the remote class the receiver represents"
+	<return: #Symbol or: nil>
+
+	^ #ByteArray
+]
diff --git a/src/GToolkit-GemStone-Pharo/GtGemStoneAsyncEvaluationElement.class.st b/src/GToolkit-GemStone-Pharo/GtGemStoneAsyncEvaluationElement.class.st
@@ -124,14 +124,6 @@ GtGemStoneAsyncEvaluationElement >> buildStartTimeRow [
 			yourself)
 ]
 
-{ #category : #'building widgets' }
-GtGemStoneAsyncEvaluationElement >> buildToolbar [
-	^ BrToolbar new
-		aptitude: BrGlamorousToolbarAptitude new;
-		alignCenterLeft;
-		fitContent.
-]
-
 { #category : #'building widgets' }
 GtGemStoneAsyncEvaluationElement >> buildToolLabel [
 	^(BrLabel new)
@@ -155,6 +147,14 @@ GtGemStoneAsyncEvaluationElement >> buildToolLabel [
 		background: Color white
 ]
 
+{ #category : #'building widgets' }
+GtGemStoneAsyncEvaluationElement >> buildToolbar [
+	^ BrToolbar new
+		aptitude: BrGlamorousToolbarAptitude new;
+		alignCenterLeft;
+		fitContent.
+]
+
 { #category : #'building widgets' }
 GtGemStoneAsyncEvaluationElement >> buildUnknownValueLabel [
 	^ (BrLabel new)

diff --git a/src/GToolkit-GemStone-Pharo/GtGemStoneDebugger.class.st b/src/GToolkit-GemStone-Pharo/GtGemStoneDebugger.class.st
@@ -10,19 +10,19 @@ Class {
 	#category : #'GToolkit-GemStone-Pharo-Debugger'
 }
 
-{ #category : #announcer }
-GtGemStoneDebugger >> announcer [
-	<return: #Announcer>
-	^ announcer
-]
-
 { #category : #private }
 GtGemStoneDebugger >> announceStateChange [
 	"Announce that the receiver's state has changed"
 
 	self announcer announce: (GtGemStoneDebuggerStateChanged new debugger: self)
 ]
 
+{ #category : #announcer }
+GtGemStoneDebugger >> announcer [
+	<return: #Announcer>
+	^ announcer
+]
+
 { #category : #accessing }
 GtGemStoneDebugger >> debuggerProxy [
 

diff --git a/src/GToolkit-GemStone-Pharo/GtGemStoneExpandableDebuggerElement.class.st b/src/GToolkit-GemStone-Pharo/GtGemStoneExpandableDebuggerElement.class.st
@@ -55,14 +55,6 @@ GtGemStoneExpandableDebuggerElement class >> sessionClass [
 	^ GtGemStoneDebuggerSession 
 ]
 
-{ #category : #callbacks }
-GtGemStoneExpandableDebuggerElement >> actOnDebuggerStateChanged [
-
-	self debugSession synchronizeCallStack.
-	self currentCallFrame resetState.
-	self scheduleUpdateUI.
-]
-
 { #category : #callbacks }
 GtGemStoneExpandableDebuggerElement >> actOnDebugSessionChanged [
 
@@ -75,6 +67,14 @@ GtGemStoneExpandableDebuggerElement >> actOnDebugSessionChanged [
 	self scheduleUpdateUI.
 ]
 
+{ #category : #callbacks }
+GtGemStoneExpandableDebuggerElement >> actOnDebuggerStateChanged [
+
+	self debugSession synchronizeCallStack.
+	self currentCallFrame resetState.
+	self scheduleUpdateUI.
+]
+
 { #category : #callbacks }
 GtGemStoneExpandableDebuggerElement >> actOnSelectedContextChangedFor: aContext [
 	self updateVariables.

diff --git a/src/GToolkit-GemStone-Pharo/GtGemStoneKeepAliveNotificationElement.class.st b/src/GToolkit-GemStone-Pharo/GtGemStoneKeepAliveNotificationElement.class.st
@@ -11,6 +11,12 @@ Class {
 	#category : #'GToolkit-GemStone-Pharo-Notifications'
 }
 
+{ #category : #accessing }
+GtGemStoneKeepAliveNotificationElement >> actOnElementDetached [
+	self clearNotification.
+	self clearContent.
+]
+
 { #category : #'private - accessing' }
 GtGemStoneKeepAliveNotificationElement >> activeMark [
 
@@ -22,12 +28,6 @@ GtGemStoneKeepAliveNotificationElement >> activeMark [
 		addChild: (BrGlamorousVectorIcons accept asElement)
 ]
 
-{ #category : #accessing }
-GtGemStoneKeepAliveNotificationElement >> actOnElementDetached [
-	self clearNotification.
-	self clearContent.
-]
-
 { #category : #'private - accessing' }
 GtGemStoneKeepAliveNotificationElement >> borderElement [
 	<return: #GtNotificationBorderElement>

diff --git a/src/GToolkit-GemStone-Pharo/GtGemStoneSessionRegistry.class.st b/src/GToolkit-GemStone-Pharo/GtGemStoneSessionRegistry.class.st
@@ -915,21 +915,6 @@ GtGemStoneSessionRegistry >> sessionNamed: aString ifAbsent: absentBlock [
 	^ sessions at: aString ifAbsent: absentBlock
 ]
 
-{ #category : #private }
-GtGemStoneSessionRegistry >> sessions [ 
-
-	^ sessions
-]
-
-{ #category : #accessing }
-GtGemStoneSessionRegistry >> sessionsToDisplay [
-	"Answer the set of session names that should normally be displayed to users"
-	<return: #Array>
-
-	^ self activeSessions select: [ :aSession |
-		aSession isRunning or: [ aSession isDefaultSession ] ]
-]
-
 { #category : #accessing }
 GtGemStoneSessionRegistry >> sessionWithConnection: aRsrConnection [
 	<return: #GtGemStoneSession>
@@ -969,6 +954,21 @@ GtGemStoneSessionRegistry >> sessionWithConnectorNamed: aString ifAbsent: absent
 			(sessionCollection sorted: #sessionId ascending) first ].
 ]
 
+{ #category : #private }
+GtGemStoneSessionRegistry >> sessions [ 
+
+	^ sessions
+]
+
+{ #category : #accessing }
+GtGemStoneSessionRegistry >> sessionsToDisplay [
+	"Answer the set of session names that should normally be displayed to users"
+	<return: #Array>
+
+	^ self activeSessions select: [ :aSession |
+		aSession isRunning or: [ aSession isDefaultSession ] ]
+]
+
 { #category : #initialization }
 GtGemStoneSessionRegistry >> shutdown [
 

diff --git a/src/GToolkit-GemStone-Pharo/GtGemStoneSessionsCardWidget.class.st b/src/GToolkit-GemStone-Pharo/GtGemStoneSessionsCardWidget.class.st
@@ -30,6 +30,13 @@ GtGemStoneSessionsCardWidget class >> addToHomeSectionCardsContainer: cardsConta
 					c frame vertical alignCenter ]))
 ]
 
+{ #category : #callbacks }
+GtGemStoneSessionsCardWidget >> actOnGemStoneSessionAnnouncement [
+	self enqueueTask: (BlTaskAction new 
+		action: [ 
+			self updateContent ])
+]
+
 { #category : #private }
 GtGemStoneSessionsCardWidget >> activeMark [
 
@@ -41,13 +48,6 @@ GtGemStoneSessionsCardWidget >> activeMark [
 		addChild: (BrGlamorousVectorIcons accept asElement)
 ]
 
-{ #category : #callbacks }
-GtGemStoneSessionsCardWidget >> actOnGemStoneSessionAnnouncement [
-	self enqueueTask: (BlTaskAction new 
-		action: [ 
-			self updateContent ])
-]
-
 { #category : #'private - ui' }
 GtGemStoneSessionsCardWidget >> buildContent [
 

diff --git a/src/GToolkit-GemStone-Pharo/GtRsrEvaluationException.class.st b/src/GToolkit-GemStone-Pharo/GtRsrEvaluationException.class.st
@@ -18,6 +18,16 @@ GtRsrEvaluationException >> currentDebuggerState [
 	^ debuggerState
 ]
 
+{ #category : #accessing }
+GtRsrEvaluationException >> debugResult [
+	^ debugResult
+]
+
+{ #category : #accessing }
+GtRsrEvaluationException >> debugResult: anObject [
+	debugResult := anObject
+]
+
 { #category : #accessing }
 GtRsrEvaluationException >> debuggerClient [
 
@@ -43,16 +53,6 @@ GtRsrEvaluationException >> debuggerState [
 		debuggerState := self getDebuggerState ]
 ]
 
-{ #category : #accessing }
-GtRsrEvaluationException >> debugResult [
-	^ debugResult
-]
-
-{ #category : #accessing }
-GtRsrEvaluationException >> debugResult: anObject [
-	debugResult := anObject
-]
-
 { #category : #accessing }
 GtRsrEvaluationException >> evaluator [
 

diff --git a/src/GToolkit-GemStone-Pharo/GtRsrEvaluatorAsyncPromise.class.st b/src/GToolkit-GemStone-Pharo/GtRsrEvaluatorAsyncPromise.class.st
@@ -155,20 +155,20 @@ GtRsrEvaluatorAsyncPromise >> printOn: aStream [
 		aStream << state ]
 ]
 
-{ #category : #accessing }
-GtRsrEvaluatorAsyncPromise >> resolvedValue [
-	self assert: [ value ~~ self ].
-
-	^ value
-]
-
 { #category : #resolving }
 GtRsrEvaluatorAsyncPromise >> resolveWithEvaluationResult: evaluationResult [ 
 	evaluationResult isEvaluationCancelledResult 
 		ifTrue: [ self breakWithEvaluationResult: evaluationResult ]
 		ifFalse: [ self fulfillWithEvaluationResult: evaluationResult ]
 ]
 
+{ #category : #accessing }
+GtRsrEvaluatorAsyncPromise >> resolvedValue [
+	self assert: [ value ~~ self ].
+
+	^ value
+]
+
 { #category : #actions }
 GtRsrEvaluatorAsyncPromise >> resumeEvaluation [
 	| resumedEvaluationResultData |

diff --git a/src/GToolkit-GemStone-Pharo/GtRsrProxyServiceClient.class.st b/src/GToolkit-GemStone-Pharo/GtRsrProxyServiceClient.class.st
@@ -68,6 +68,15 @@ GtRsrProxyServiceClient class >> subclassForRemoteClass: aSymbol [
 
 ]
 
+{ #category : #private }
+GtRsrProxyServiceClient >> _id: id connection: connection remoteSelf: anObject remoteClass: aString [
+
+	_id := id.
+	_connection := connection.
+	remoteSelf := anObject.
+	remoteClass := aString.
+]
+
 { #category : #converting }
 GtRsrProxyServiceClient >> asGtpoLocalObject [
 	"Answer a local copy of the receiver"
@@ -699,12 +708,3 @@ GtRsrProxyServiceClient >> scriptEvaluation [
 		receiver: self;
 		gtSession: self gtSession
 ]
-
-{ #category : #private }
-GtRsrProxyServiceClient >> _id: id connection: connection remoteSelf: anObject remoteClass: aString [
-
-	_id := id.
-	_connection := connection.
-	remoteSelf := anObject.
-	remoteClass := aString.
-]
diff --git a/src/GToolkit-GemStone-Pharo/GtpoMetaclass3.class.st b/src/GToolkit-GemStone-Pharo/GtpoMetaclass3.class.st
@@ -38,13 +38,6 @@ GtpoMetaclass3 class >> remoteClassName [
 	^ #Metaclass3
 ]
 
-{ #category : #accessing }
-GtpoMetaclass3 >> compiledMethodAt: selector [
-
-	^ self proxyPerform: #compiledMethodAt:
-		withArguments: { selector }.
-]
-
 { #category : #private }
 GtpoMetaclass3 >> compileFromTab: aTab [
 	"Update the receiver's definition based on the current editor contents"
@@ -67,6 +60,13 @@ GtpoMetaclass3 >> compileFromTab: aTab [
 GtpoMetaclass3 >> compileMethod: source category: categoryName [
 ]
 
+{ #category : #accessing }
+GtpoMetaclass3 >> compiledMethodAt: selector [
+
+	^ self proxyPerform: #compiledMethodAt:
+		withArguments: { selector }.
+]
+
 { #category : #accessing }
 GtpoMetaclass3 >> definitionString [
 	^ definitionString ifNil: [ definitionString := self proxyPerform: #definition ]

diff --git a/src/GToolkit-GemStone-Pharo/TGtWithActivatedSessionViewModel.trait.st b/src/GToolkit-GemStone-Pharo/TGtWithActivatedSessionViewModel.trait.st
@@ -6,15 +6,6 @@ Trait {
 	#category : 'GToolkit-GemStone-Pharo-Support'
 }
 
-{ #category : #'api - activated session view model' }
-TGtWithActivatedSessionViewModel >> activatedSessionViewModel [
-	<return: #GtGemStoneSessionViewModel>
-	<propertyGetter: #activatedSessionViewModel>
-	<generatedFrom: #'TGtRobocoderWithPropertyTraitTemplate>>#propertyGetterTemplate'>
-
-	^ activatedSessionViewModel
-]
-
 { #category : #'api - activated session view model' }
 TGtWithActivatedSessionViewModel >> activateSessionViewModel: aNewActivatedSessionViewModel [
 	<propertySetter: #activatedSessionViewModel>
@@ -35,6 +26,15 @@ TGtWithActivatedSessionViewModel >> activateSessionViewModel: aNewActivatedSessi
 	self notifyActivatedSessionViewModelChanged
 ]
 
+{ #category : #'api - activated session view model' }
+TGtWithActivatedSessionViewModel >> activatedSessionViewModel [
+	<return: #GtGemStoneSessionViewModel>
+	<propertyGetter: #activatedSessionViewModel>
+	<generatedFrom: #'TGtRobocoderWithPropertyTraitTemplate>>#propertyGetterTemplate'>
+
+	^ activatedSessionViewModel
+]
+
 { #category : #'api - activated session view model' }
 TGtWithActivatedSessionViewModel >> deactivateSessionViewModel [
 	<propertyUnsetter: #activatedSessionViewModel>

diff --git a/src/GToolkit-GemStone-Pharo/TGtWithSelectedSessionViewModel.trait.st b/src/GToolkit-GemStone-Pharo/TGtWithSelectedSessionViewModel.trait.st
@@ -51,15 +51,6 @@ TGtWithSelectedSessionViewModel >> onPreviousSelectedSessionViewModelUnset: aPre
 	<generatedFrom: #'TGtRobocoderWithPropertyTraitTemplate>>#onPreviousPropertyUnsetHookTemplate'>
 ]
 
-{ #category : #'api - selected session view model' }
-TGtWithSelectedSessionViewModel >> selectedSessionViewModel [
-	<return: #GtGemStoneSessionViewModel>
-	<propertyGetter: #selectedSessionViewModel>
-	<generatedFrom: #'TGtRobocoderWithPropertyTraitTemplate>>#propertyGetterTemplate'>
-
-	^ selectedSessionViewModel
-]
-
 { #category : #'api - selected session view model' }
 TGtWithSelectedSessionViewModel >> selectSessionViewModel: aNewSelectedSessionViewModel [
 	<propertySetter: #selectedSessionViewModel>
@@ -79,3 +70,12 @@ TGtWithSelectedSessionViewModel >> selectSessionViewModel: aNewSelectedSessionVi
 	self onNewSelectedSessionViewModelSet: aNewSelectedSessionViewModel.
 	self notifySelectedSessionViewModelChanged
 ]
+
+{ #category : #'api - selected session view model' }
+TGtWithSelectedSessionViewModel >> selectedSessionViewModel [
+	<return: #GtGemStoneSessionViewModel>
+	<propertyGetter: #selectedSessionViewModel>
+	<generatedFrom: #'TGtRobocoderWithPropertyTraitTemplate>>#propertyGetterTemplate'>
+
+	^ selectedSessionViewModel
+]