equal
deleted
inserted
replaced
243 self realizeAllSubViews. |
243 self realizeAllSubViews. |
244 inputView raise. |
244 inputView raise. |
245 self elementChangedSize:frame. |
245 self elementChangedSize:frame. |
246 self changed:#tree |
246 self changed:#tree |
247 |
247 |
|
248 "Modified: 8.4.1997 / 01:08:15 / cg" |
248 ! |
249 ! |
249 |
250 |
250 pasteWithLayout |
251 pasteWithLayout |
251 "add the objects in the paste-buffer to the object view; don't change the |
252 "add the objects in the paste-buffer to the object view; don't change the |
252 layout |
253 layout |
261 |spec| |
262 |spec| |
262 |
263 |
263 testMode ifFalse:[ |
264 testMode ifFalse:[ |
264 anObjectOrCollection size == 1 ifTrue:[ |
265 anObjectOrCollection size == 1 ifTrue:[ |
265 spec := (anObjectOrCollection at:1) theObject. |
266 spec := (anObjectOrCollection at:1) theObject. |
266 ^ (spec isKindOf:UISpecification) |
267 ^ (spec isKindOf:UISpecification) |
267 ] |
268 ] |
268 ]. |
269 ]. |
269 ^ false |
270 ^ false |
|
271 |
|
272 "Modified: 8.4.1997 / 01:01:50 / cg" |
270 ! |
273 ! |
271 |
274 |
272 drop:anObjectOrCollection at:aPoint |
275 drop:anObjectOrCollection at:aPoint |
273 |spec| |
276 |spec| |
274 |
277 |