equal
deleted
inserted
replaced
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
|
13 "{ Package: 'stx:libtool2' }" |
12 "{ Package: 'stx:libtool2' }" |
14 |
13 |
15 UIObjectView subclass:#UIPainterView |
14 UIObjectView subclass:#UIPainterView |
16 instanceVariableNames:'treeView listHolder superclassName className methodName |
15 instanceVariableNames:'treeView listHolder superclassName className methodName |
17 categoryName handleColorBlack handleColorWhite handleMasterColor' |
16 categoryName handleColorBlack handleColorWhite handleMasterColor' |
501 !UIPainterView methodsFor:'drag & drop'! |
500 !UIPainterView methodsFor:'drag & drop'! |
502 |
501 |
503 canDrop:aCollectionOfDropObjects |
502 canDrop:aCollectionOfDropObjects |
504 "returns true if something can be dropped" |
503 "returns true if something can be dropped" |
505 |
504 |
506 (aCollectionOfDropObjects size == 1 and:[self enabled and:[self numberOfSelections <= 1]]) ifTrue:[ |
505 ^ (aCollectionOfDropObjects size == 1 |
507 ^ aCollectionOfDropObjects first theObject isKindOf:UISpecification |
506 and:[ self enabled |
508 ]. |
507 and:[ self numberOfSelections <= 1 |
509 ^ false |
508 and:[ aCollectionOfDropObjects first theObject isKindOf:UISpecification ]]]) |
|
509 |
|
510 "Modified: / 13-10-2006 / 11:38:01 / cg" |
510 ! |
511 ! |
511 |
512 |
512 canPaste |
513 canPaste |
513 "returns true if there is something which can be pasted in the clipboard" |
514 "returns true if there is something which can be pasted in the clipboard" |
514 |
515 |