equal
deleted
inserted
replaced
469 |
469 |
470 #(#FullSpec |
470 #(#FullSpec |
471 #'window:' |
471 #'window:' |
472 #(#WindowSpec |
472 #(#WindowSpec |
473 #'name:' 'Tree-View' |
473 #'name:' 'Tree-View' |
474 #'layout:' #(#LayoutFrame 536 0 334 0 1088 0 794 0) |
474 #'layout:' #(#LayoutFrame 38 0 287 0 590 0 747 0) |
475 #'label:' 'Tree-View' |
475 #'label:' 'Tree-View' |
476 #'min:' #(#Point 10 10) |
476 #'min:' #(#Point 10 10) |
477 #'max:' #(#Point 1160 870) |
477 #'max:' #(#Point 1160 870) |
478 #'bounds:' #(#Rectangle 536 334 1089 795) |
478 #'bounds:' #(#Rectangle 38 287 591 748) |
479 #'menu:' #menu |
479 #'menu:' #menu |
480 #'usePreferredExtent:' false |
480 #'usePreferredExtent:' false |
481 ) |
481 ) |
482 #'component:' |
482 #'component:' |
483 #(#SpecCollection |
483 #(#SpecCollection |
491 #'menu:' #menuToolbar |
491 #'menu:' #menuToolbar |
492 #'showSeparatingLines:' true |
492 #'showSeparatingLines:' true |
493 ) |
493 ) |
494 #(#VariableVerticalPanelSpec |
494 #(#VariableVerticalPanelSpec |
495 #'name:' 'vpanel' |
495 #'name:' 'vpanel' |
496 #'layout:' #(#LayoutFrame 0 0.0 34 0.0 0 1.0 0 1.0) |
496 #'layout:' #(#LayoutFrame 0 0.0 34 0.0 0 1.0 -22 1.0) |
497 #'component:' |
497 #'component:' |
498 #(#SpecCollection |
498 #(#SpecCollection |
499 #'collection:' |
499 #'collection:' |
500 #( |
500 #( |
501 #(#VariableHorizontalPanelSpec |
501 #(#VariableHorizontalPanelSpec |
633 ) |
633 ) |
634 ) |
634 ) |
635 ) |
635 ) |
636 #'handles:' #(#Any 0.880597 1.0) |
636 #'handles:' #(#Any 0.880597 1.0) |
637 ) |
637 ) |
|
638 #(#LabelSpec |
|
639 #'name:' 'infoLabel' |
|
640 #'layout:' #(#LayoutFrame 0 0.0 -22 1 -80 1.0 0 1.0) |
|
641 #'labelChannel:' #valueOfInfoLabel |
|
642 #'level:' 1 |
|
643 #'adjust:' #left |
|
644 ) |
|
645 #(#LabelSpec |
|
646 #'name:' 'timeLabel' |
|
647 #'layout:' #(#LayoutFrame -80 1 -22 1 0 1.0 0 1.0) |
|
648 #'labelChannel:' #valueOfTimeLabel |
|
649 #'level:' 1 |
|
650 #'adjust:' #right |
|
651 ) |
638 ) |
652 ) |
639 ) |
653 ) |
640 ) |
654 ) |
641 ! ! |
655 ! ! |
642 |
656 |
1792 |className message| |
1806 |className message| |
1793 specClass isClass ifTrue: [className := specClass name]. |
1807 specClass isClass ifTrue: [className := specClass name]. |
1794 specClass isString ifTrue: [className := specClass]. |
1808 specClass isString ifTrue: [className := specClass]. |
1795 message := className, ' ', specSelector. |
1809 message := className, ' ', specSelector. |
1796 self addToHistory: message -> #loadFromMessage:. |
1810 self addToHistory: message -> #loadFromMessage:. |
1797 self valueOfInfoLabel value: className, ' << ', specSelector |
1811 self valueOfInfoLabel value: className, ' >> ', specSelector |
1798 ]. |
1812 ]. |
1799 "Modified: 24.6.1997 / 19:07:01 / cg" |
1813 "Modified: 24.6.1997 / 19:07:01 / cg" |
1800 ! |
1814 ! |
1801 |
1815 |
1802 setViewInLayoutTool:aView |
1816 setViewInLayoutTool:aView |