introducing application and using it,

pharo-spec · Nov 26, 2024 · a4e5ca9 · a4e5ca9
1 parent ac75bbf
commit a4e5ca9
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 1 deletion.
diff --git a/src/Spec2-Commands/StBrowseMethodVersionsCommand.class.st b/src/Spec2-Commands/StBrowseMethodVersionsCommand.class.st
@@ -25,7 +25,7 @@ StBrowseMethodVersionsCommand >> execute [
 	| target |
 
 	target := self target.
-	Smalltalk tools versionBrowser
+	self application tools versionBrowser
 		browseVersionsForClass: target methodClass
 		selector: target selector
 ]
diff --git a/src/Spec2-Commands/StToolCommand.class.st b/src/Spec2-Commands/StToolCommand.class.st
@@ -5,3 +5,9 @@ Class {
 	#package : 'Spec2-Commands',
 	#tag : 'Presenters'
 }
+
+{ #category : 'accessing' }
+StToolCommand >> application [
+
+	^ self context application
+]