712 setDefaultActions

   712 setDefaultActions

   713     "set default actions

   713     "set default actions

   714     "

   714     "

   715     pressAction      := [:pressPoint | self startSelectOrMove:pressPoint].

   715     pressAction      := [:pressPoint | self startSelectOrMove:pressPoint].

   716     shiftPressAction := [:pressPoint | self startSelectMoreOrMove:pressPoint].

   716     shiftPressAction := [:pressPoint | self startSelectMoreOrMove:pressPoint].

   717     motionAction     := [:movePoint  | nil].

   718     motionAction     := [:movePoint  | nil].

   718     releaseAction    := [nil].

   719     releaseAction    := [nil].

   719     keyPressAction   := nil.

   720     keyPressAction   := nil.

   720     doublePressAction   := [:pressPoint | self doublePressed: pressPoint].

   721     doublePressAction   := [:pressPoint | self doublePressed: pressPoint].

   721 

   722 

   722     self cursor:Cursor normal.

   723     self cursor:Cursor normal.

   724 ! !

   724 ! !

   725 

   725 

   726 !UIObjectView methodsFor:'object moving'!

   726 !UIObjectView methodsFor:'object moving'!

   727 

   727 

   728 doObjectMove:aPoint

   728 doObjectMove:aPoint