equal
deleted
inserted
replaced
69 sub := self subViews first. |
69 sub := self subViews first. |
70 self removeSubView:sub. |
70 self removeSubView:sub. |
71 sub origin:0.0@0.0 corner:1.0@0.3. |
71 sub origin:0.0@0.0 corner:1.0@0.3. |
72 newPanel addSubView:sub. |
72 newPanel addSubView:sub. |
73 |
73 |
74 v := HVScrollableView for:ImageEditView in:newPanel. |
74 v := HVScrollableView for:ImageView in:newPanel. |
75 v origin:(0.0 @ 0.3) corner:(1.0 @ 1.0). |
75 v origin:(0.0 @ 0.3) corner:(1.0 @ 1.0). |
76 imageView := v scrolledView. |
76 imageView := v scrolledView. |
77 |
77 |
78 " |
78 " |
79 ImageInspectorView new realize |
79 ImageInspectorView new realize |
84 ! ! |
84 ! ! |
85 |
85 |
86 !ImageInspectorView class methodsFor:'documentation'! |
86 !ImageInspectorView class methodsFor:'documentation'! |
87 |
87 |
88 version |
88 version |
89 ^ '$Header: /cvs/stx/stx/libtool/ImageInspectorView.st,v 1.11 1997-01-28 17:06:11 cg Exp $' |
89 ^ '$Header: /cvs/stx/stx/libtool/ImageInspectorView.st,v 1.12 1997-12-04 09:47:38 tz Exp $' |
90 ! ! |
90 ! ! |