Skip to content
Permalink
Browse files

Merge pull request #776 from jecisc/Replace-smalltalk-references

Replace-smalltalk-references
  • Loading branch information...
jecisc committed Sep 12, 2019
2 parents dd74217 + 36ff65b commit c1cc56152dd753e08757c2961e99aa9e7bb10c43
@@ -4,7 +4,7 @@ Extension { #name : #SpListPresenter }
SpListPresenter class >> example [
<sampleInstance>
^ self new
items: Smalltalk globals allClasses;
items: self environment allClasses;
openWithSpec;
yourself
]
@@ -13,7 +13,7 @@ SpListPresenter class >> example [
SpListPresenter class >> exampleMultipleSelection [
<sampleInstance>
^ self new
items: Smalltalk globals allClasses;
items: self environment allClasses;
beMultipleSelection;
openWithSpec;
yourself
@@ -23,7 +23,7 @@ SpListPresenter class >> exampleMultipleSelection [
SpListPresenter class >> exampleWithHeaderTitle [
<sampleInstance>
^ self new
items: Smalltalk globals allClasses;
items: self environment allClasses;
headerTitle: 'Title';
openWithSpec;
yourself
@@ -44,7 +44,7 @@ SpListSelectionPresenter >> initializePresenters [
textModel1 := self newText.
textModel2 := self newCode.
listModel beMultipleSelection.
listModel items: Smalltalk globals allClasses
listModel items: self class environment allClasses
]

{ #category : #accessing }
@@ -33,10 +33,12 @@ SpTextFieldExample class >> title [

{ #category : #initialization }
SpTextFieldExample >> connectPresenters [

textField acceptBlock: [:text | Smalltalk globals at: text asSymbol
ifPresent: [:class | methodBrowser messages: class methods ]
ifAbsent: [ methodBrowser messages: #() ]]
textField
acceptBlock:
[ :text | self class environment
at: text asSymbol
ifPresent: [ :class | methodBrowser messages: class methods ]
ifAbsent: [ methodBrowser messages: #() ] ]
]

{ #category : #api }

0 comments on commit c1cc561

Please sign in to comment.
You can’t perform that action at this time.