Merge pull request #205 from OpenSmock/better_inspector

OpenSmock · Feb 4, 2025 · 2a70362 · 2a70362
2 parents 5227765 + bfa5ff3
commit 2a70362
Show file tree

Hide file tree

Showing 7 changed files with 255 additions and 257 deletions.
diff --git a/src/Molecule-Examples/MolMyClockSystem.class.st b/src/Molecule-Examples/MolMyClockSystem.class.st
@@ -29,16 +29,16 @@ MolMyClockSystem class >> start [
 	| cm |
 	cm := MolComponentManager default.
 	self deploy.
-	
-	cm homeServices instanciateComponent: MolMyServerTimeComponentImpl.
-	cm homeServices instanciateComponent: MolMyClockComponentImpl.
-	cm homeServices instanciateComponent: MolMyUserFacadeComponentImpl.
-	cm homeServices instanciateComponent: MolMyAlarmComponentImpl.
-	
+
+	cm homeServices instantiateComponent: MolMyServerTimeComponentImpl.
+	cm homeServices instantiateComponent: MolMyClockComponentImpl.
+	cm homeServices instantiateComponent: MolMyUserFacadeComponentImpl.
+	cm homeServices instantiateComponent: MolMyAlarmComponentImpl.
+
 	cm homeServices activateComponent: MolMyServerTimeComponentImpl.
 	cm homeServices activateComponent: MolMyClockComponentImpl.
 	cm homeServices activateComponent: MolMyUserFacadeComponentImpl.
-	cm homeServices activateComponent: MolMyAlarmComponentImpl.
+	cm homeServices activateComponent: MolMyAlarmComponentImpl
 ]
 
 { #category : #launcher }

diff --git a/src/Molecule-IDE/MolComponentImpl.extension.st b/src/Molecule-IDE/MolComponentImpl.extension.st
@@ -16,7 +16,7 @@ MolComponentImpl >> asRSMoleculeShape [
 		                      fontSize: 18;
 		                      yourself.
 
-	contracts := MolComponentToRoassal contractFromMolComponentImpl: self.
+	contracts := MolComponentToRoassal makeContractShapesFor: self.
 
 	RSVerticalLineLayout new
 		alignCenter;
@@ -39,11 +39,17 @@ MolComponentImpl >> asRSMoleculeShape [
 	composite adjustToChildren.
 	composite extent: composite extent + (0 @ 20).
 	composite @ (RSMenuActivable new menuDo: [ :aMenuMorph :anRSBox |
-		 aMenuMorph
-			 add: 'Inspect'
-			 target: self
-			 selector: #inspect
-			 argument: #(  ) ]).
+		 (aMenuMorph
+			  add: 'Inspect component'
+			  target: self
+			  selector: #inspect
+			  argument: #(  )) icon:
+			 (Smalltalk ui icons iconNamed: #smallInspectIt).
+		 (aMenuMorph
+			  add: 'Browse component'
+			  target: self
+			  selector: #browse
+			  argument: #(  )) icon: (Smalltalk ui icons iconNamed: #nautilus) ]).
 
 	^ composite
 ]