equal
deleted
inserted
replaced
1401 ! |
1401 ! |
1402 |
1402 |
1403 tabList |
1403 tabList |
1404 "automatically generated by UIPainter ..." |
1404 "automatically generated by UIPainter ..." |
1405 |
1405 |
1406 |holder| |
1406 ^ builder nilValueAspectFor:#tabList |
1407 |
1407 |
1408 (holder := builder bindingAt:#tabList) isNil ifTrue:[ |
1408 "Modified: 28.7.1997 / 13:11:17 / cg" |
1409 builder aspectAt:#tabList put:(holder := ValueHolder new) |
|
1410 ]. |
|
1411 ^ holder |
|
1412 ! |
1409 ! |
1413 |
1410 |
1414 tabModel |
1411 tabModel |
1415 "automatically generated by UIPainter ..." |
1412 "automatically generated by UIPainter ..." |
1416 |
1413 |
2253 !MenuEditor::Painter methodsFor:'drawing basics'! |
2250 !MenuEditor::Painter methodsFor:'drawing basics'! |
2254 |
2251 |
2255 drawLabelIndex:anIndex atX:x y:yCenter |
2252 drawLabelIndex:anIndex atX:x y:yCenter |
2256 "draw text label assigned to a node at x y( center) |
2253 "draw text label assigned to a node at x y( center) |
2257 " |
2254 " |
2258 |y type item| |
2255 |y x2 type item| |
2259 |
2256 |
2260 item := (listOfNodes at:anIndex) contents. |
2257 item := (listOfNodes at:anIndex) contents. |
2261 type := item separatorType. |
2258 type := item separatorType. |
2262 |
2259 |
2263 type isNil ifTrue:[ |
2260 type isNil ifTrue:[ |
2264 super drawLabelIndex:anIndex atX:x y:yCenter |
2261 super drawLabelIndex:anIndex atX:x y:yCenter |
2265 ] ifFalse:[ |
2262 ] ifFalse:[ |
2266 type == #blank ifFalse:[ |
2263 type == #blank ifFalse:[ |
2267 self displayLineFromX:x y:yCenter toX:(x + 80) y:yCenter. |
2264 x2 := x + 80. |
|
2265 |
|
2266 self displayLineFromX:x y:yCenter toX:x2 y:yCenter. |
2268 |
2267 |
2269 type == #double ifTrue:[ |
2268 type == #double ifTrue:[ |
2270 y := yCenter + 2. |
2269 y := yCenter + 2. |
2271 self displayLineFromX:x y:y toX:(x + 80) y:y. |
2270 self displayLineFromX:x y:y toX:x2 y:y. |
2272 ] |
2271 ] |
2273 ] |
2272 ] |
2274 ] |
2273 ] |
|
2274 |
|
2275 "Modified: 28.7.1997 / 13:13:41 / cg" |
2275 ! |
2276 ! |
2276 |
2277 |
2277 figureFor:aNode |
2278 figureFor:aNode |
2278 "access figure for a node |
2279 "access figure for a node |
2279 " |
2280 " |