Hi! I've been working the last days in making OB work in pharo 1.4. I updated several deprecations like method reference and stuff and discovered some bugs that I've already published in:
http://code.google.com/p/pharo/issues/detail?id=5189&q=milestone%3D1.4&colspec=ID%20Type%20Status%20Summary%20Milestone%20Difficulty http://code.google.com/p/pharo/issues/detail?id=5183&q=milestone%3D1.4&colspec=ID%20Type%20Status%20Summary%20Milestone%20Difficulty I've already proposed some fixes for them, but if anyone can have a look too I'll feel better :). Those fixes are needed in order to load OB. Meanwhile, you can also have some patches from the cs and fileout I attach. What's working now? OB + OCompletion + Shout + Sunit integration. So, It's everything but Refactoring browser, which is a little more difficult since there is another RB version loaded in the image :P. To load it (after integrating the patches): Gofer it squeaksource: 'MetacelloRepository'; package: 'ConfigurationOfOmniBrowser'; load. (ConfigurationOfOmniBrowser project version: #stable) load: #( 'Core Tests' 'OCompletion Tests' ) , #( 'Core' 'OB-SUnitIntegration' 'OB-Shout' 'OCForOB'). Cheers, Guille
'From Pharo1.4a of ''16 June 2011'' [Latest update: #14283] on 16 January 2012 at 4:10:27 pm'!
!PluggableListMorph methodsFor: 'background coloring' stamp: 'GuillermoPolito 1/16/2012 16:09'!
backgroundColorFor: aRow
| anItem return |
aRow ifNil: [ ^ false ].
anItem := self getList at: aRow ifAbsent: [ ^ nil ].
self backgroundColoringBlockOrSelector
ifNotNil: [:blockOrSelector |
return := blockOrSelector isBlock
ifTrue: [ blockOrSelector cull: anItem cull: aRow ]
ifFalse: [
blockOrSelector isSymbol
ifTrue: [ blockOrSelector numArgs == 0
ifTrue: [ anItem perform: blockOrSelector ]
ifFalse: [ self model perform: blockOrSelector withEnoughArguments: { anItem. (list indexOf: anItem)} ]]
ifFalse: [ nil ]]].
^ return isColor
ifTrue: [ return ]
ifFalse: [ nil ]! !
!PluggableListMorph methodsFor: 'separator' stamp: 'GuillermoPolito 1/16/2012 16:09'!
separatorAfterARow: aRow
| anItem |
aRow ifNil: [ ^ false ].
anItem := self getList at: aRow ifAbsent: [ ^ false ].
self separatorBlockOrSelector
ifNotNil: [:blockOrSelector |
^ blockOrSelector isBlock
ifTrue: [ blockOrSelector cull: anItem cull: aRow ]
ifFalse: [
blockOrSelector isSymbol
ifTrue: [ blockOrSelector numArgs == 0
ifTrue: [ anItem perform: blockOrSelector ]
ifFalse: [ self model perform: blockOrSelector withEnoughArguments: { anItem. (list indexOf: anItem)} ]]
ifFalse: [ false ]]].
^ false! !
Slider-setValue.st
Description: Binary data
