With 1.4, I use to open programmatically a *mini* browser on a given
selector with the following code:
Browser newOnClass: Number selector: #/
Now it bring a DNU Retangle>>topOffset:
I can use Nautilus but it opens a full complete browser and I don't want
this.
I can fix the code adding a asLayoutFrame (see cs) but then the browser
does not open on the proper method.
Hilaire
'From Pharo2.0 of 7 March 2013 [Latest update: #20600] on 18 September 2013 at
10:36:20 pm'!
!Browser methodsFor: 'initialization' stamp: 'HilaireFernandes 9/17/2013 22:32'!
openAsMorphClassEditing: editString
"Create a pluggable version a Browser on just a single class."
| window dragNDropFlag hSepFrac switchHeight mySingletonClassList |
window := (SystemWindow labelled: 'later') model: self.
dragNDropFlag := true.
hSepFrac := 0.3.
switchHeight := 25.
mySingletonClassList := PluggableListMorph on: self list:
#classListSingleton
selected: #indexIsOne changeSelected: #indexIsOne:
menu: #classListMenu:shifted: keystroke:
#classListKey:from:.
mySingletonClassList enableDragNDrop: dragNDropFlag.
self
addLowerPanesTo: window
at: (0@hSepFrac corner: 1@1)
with: editString.
window
addMorph: mySingletonClassList
fullFrame: ((0@0 corner: 0.5@0) asLayoutFrame bottomOffset:
switchHeight).
self
addMorphicSwitchesTo: window
at: ((0.5@0 corner: 1.0@0) asLayoutFrame bottomOffset:
switchHeight).
window
addMorph: self buildMorphicMessageCatList
fullFrame: ((0@0 corner: 0.5@hSepFrac) asLayoutFrame topOffset:
switchHeight).
window
addMorph: self buildMorphicMessageList
fullFrame: ((0.5@0 corner: 1.0@hSepFrac) asLayoutFrame
topOffset: switchHeight).
window setUpdatablePanesFrom: #(messageCategoryList messageList).
^ window! !
