equal
deleted
inserted
replaced
423 " |
423 " |
424 |extent x y selectors values| |
424 |extent x y selectors values| |
425 |
425 |
426 "minimum extent |
426 "minimum extent |
427 " |
427 " |
428 extent := self extent. |
428 (anObject specClass supportsSubComponents) ifTrue:[ |
429 x := extent x // 3. |
429 extent := 5@5 |
430 y := extent y // 3. |
430 ] ifFalse:[ |
431 extent := anObject preferredExtent. |
431 extent := self extent. |
432 |
432 x := extent x // 3. |
433 (extent x > x) ifTrue:[extent x:x]. |
433 y := extent y // 3. |
434 (extent y > y) ifTrue:[extent y:y]. |
434 extent := anObject preferredExtent. |
|
435 |
|
436 (extent x > x) ifTrue:[extent x:x]. |
|
437 (extent y > y) ifTrue:[extent y:y]. |
|
438 ]. |
435 |
439 |
436 "setup structure |
440 "setup structure |
437 " |
441 " |
438 selectors := #( object frame delta vertical horizontal minExtent ). |
442 selectors := #( object frame delta vertical horizontal minExtent ). |
439 values := Array new:(selectors size). |
443 values := Array new:(selectors size). |
555 delta := widget originRelativeTo:self. |
559 delta := widget originRelativeTo:self. |
556 frame := Rectangle origin:(start - delta) corner:start. |
560 frame := Rectangle origin:(start - delta) corner:start. |
557 |
561 |
558 object origin:(frame origin). |
562 object origin:(frame origin). |
559 self initializeCreatedObject:object. |
563 self initializeCreatedObject:object. |
|
564 self actionCreate:object frame:frame delta:delta. |
|
565 object extent:(actionData minExtent). |
560 object realize. |
566 object realize. |
561 |
567 |
562 self actionCreate:object frame:frame delta:delta. |
568 self actionCreate:object frame:frame delta:delta. |
563 self invertOutlineOf:object. |
569 self invertOutlineOf:object. |
564 |
570 |
1352 "returns true if instance is vertical resizeable |
1358 "returns true if instance is vertical resizeable |
1353 " |
1359 " |
1354 ^ self subclassResponsibility |
1360 ^ self subclassResponsibility |
1355 |
1361 |
1356 |
1362 |
|
1363 ! |
|
1364 |
|
1365 supportsLabel:aComponent |
|
1366 "returns true if component supports label |
|
1367 " |
|
1368 ^ self subclassResponsibility |
|
1369 |
|
1370 |
1357 ! ! |
1371 ! ! |
1358 |
1372 |
1359 !UIObjectView methodsFor:'transaction'! |
1373 !UIObjectView methodsFor:'transaction'! |
1360 |
1374 |
1361 transaction:aType objects:something do:aOneArgBlock |
1375 transaction:aType objects:something do:aOneArgBlock |