UIPainterView.st
changeset 2951 c2b24bf7b967
parent 2853 1eadca551eed
child 2963 7df17046fc89
equal deleted inserted replaced
2950:9277c8ef8f03 2951:c2b24bf7b967
    13 
    13 
    14 UIObjectView subclass:#UIPainterView
    14 UIObjectView subclass:#UIPainterView
    15 	instanceVariableNames:'treeView listHolder superclassName className methodName
    15 	instanceVariableNames:'treeView listHolder superclassName className methodName
    16 		categoryName handleColorBlack handleColorWhite handleMasterColor
    16 		categoryName handleColorBlack handleColorWhite handleMasterColor
    17 		sketchPainter listOfAspectsHolder'
    17 		sketchPainter listOfAspectsHolder'
    18 	classVariableNames:'HandCursor RedefineAspectMethods AspectsAsInstances'
    18 	classVariableNames:'HandCursor RedefineAspectMethods AspectsAsInstances
       
    19 		ClipboardContents'
    19 	poolDictionaries:''
    20 	poolDictionaries:''
    20 	category:'Interface-UIPainter'
    21 	category:'Interface-UIPainter'
    21 !
    22 !
    22 
    23 
    23 Object subclass:#ViewProperty
    24 Object subclass:#ViewProperty
   361         Dialog warn:'Operation currently disabled (In geometry test mode)'.
   362         Dialog warn:'Operation currently disabled (In geometry test mode)'.
   362         ^ self
   363         ^ self
   363     ]. 
   364     ]. 
   364 
   365 
   365     clipboard := self getClipboardObject.
   366     clipboard := self getClipboardObject.
   366     sel := self pasteSpecifications:clipboard keepLayout:true "(clipboard size > 1)".
   367     clipboard isString ifTrue:[
   367     self changeSelectionAfterPasteOf:sel.
   368         Dialog warn:'can only paste widgets here'.
       
   369     ] ifFalse:[
       
   370         sel := self pasteSpecifications:clipboard keepLayout:true "(clipboard size > 1)".
       
   371         self changeSelectionAfterPasteOf:sel.
       
   372     ].
   368 !
   373 !
   369 
   374 
   370 pasteKeepingPosition
   375 pasteKeepingPosition
   371     "add the objects in the paste-buffer to the object view;
   376     "add the objects in the paste-buffer to the object view;
   372      translate the layout as appropriate, to position the component
   377      translate the layout as appropriate, to position the component
   442     (self canPaste:aSpecificationOrList into:containerToPasteInto)
   447     (self canPaste:aSpecificationOrList into:containerToPasteInto)
   443     ifFalse:[
   448     ifFalse:[
   444         self enabled ifTrue:[
   449         self enabled ifTrue:[
   445             Dialog warn:'Cannot paste into selected component (not a container ?)'.
   450             Dialog warn:'Cannot paste into selected component (not a container ?)'.
   446         ] ifFalse:[
   451         ] ifFalse:[
   447             Dialog warn:'Operation currently disabled (In Geometry test mode)'.
   452             Dialog warn:'Operation currently disabled (In geometry test mode)'.
   448         ]. 
   453         ]. 
   449         ^ nil
   454         ^ nil
   450     ].
   455     ].
   451 
   456 
   452     self hideSelection.
   457     self hideSelection.
  3093 
  3098 
  3094 version_CVS
  3099 version_CVS
  3095     ^ '$Header$'
  3100     ^ '$Header$'
  3096 ! !
  3101 ! !
  3097 
  3102 
       
  3103 
  3098 UIPainterView initialize!
  3104 UIPainterView initialize!