Chris Muller uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-cmm.245.mcz==================== Summary ====================
Name: Tools-cmm.245
Author: cmm
Time: 15 June 2010, 3:50:40.945 pm
UUID: 5023b81d-4fb8-4776-966b-ca5c956cc74a
Ancestors: Tools-cmm.244
Fixed World Menu | open... | file....
=============== Diff against Tools-cmm.244 ===============
Item was changed:
----- Method: PopUpMenu>>startUpSegmented:withCaption:at:allowKeyboard: (in category 'basic control sequence') -----
startUpSegmented: segmentHeight withCaption: captionOrNil at: location allowKeyboard: aBoolean
"This menu is too big to fit comfortably on the screen.
Break it up into smaller chunks, and manage the relative indices.
Inspired by a special-case solution by Reinier van Loon. The boolean parameter indicates whether the menu should be given keyboard focus (if in morphic)"
"
(PopUpMenu labels: (String streamContents: [:s | 1 to: 100 do: [:i | s print: i; cr]. s skip: -1])
lines: (5 to: 100 by: 5)) startUpWithCaption: 'Give it a whirl...'.
"
| nLines nLinesPer allLabels from to subset subLines index |
frame ifNil: [self computeForm].
allLabels := labelString lines.
nLines := allLabels size.
lineArray ifNil: [lineArray := Array new].
nLinesPer := segmentHeight // marker height - 3.
from := 1.
[ true ] whileTrue:
[to := (from + nLinesPer) min: nLines.
+ subset := (allLabels copyFrom: from to: to) asOrderedCollection.
- subset := allLabels copyFrom: from to: to.
subset add: (to = nLines ifTrue: ['start over...' translated] ifFalse: ['more...' translated])
before: subset first.
subLines := lineArray select: [:n | n >= from] thenCollect: [:n | n - (from-1) + 1].
subLines := (Array with: 1) , subLines.
index := (PopUpMenu labels: subset asStringWithCr lines: subLines)
startUpWithCaption: captionOrNil at: location allowKeyboard: aBoolean.
index = 1
ifTrue: [from := to + 1.
from > nLines ifTrue: [ from := 1 ]]
ifFalse: [index = 0 ifTrue: [^ 0].
^ from + index - 2]]!
Locked
