--- a/UIObjectView.st	Wed Jun 24 10:31:49 2015 +0200
+++ b/UIObjectView.st	Wed Jun 24 10:32:44 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1995 by eXept Software AG
 	      All Rights Reserved
@@ -11,10 +13,13 @@
 "
 "{ Package: 'stx:libtool2' }"
 
+"{ NameSpace: Smalltalk }"
+
 ObjectView subclass:#UIObjectView
 	instanceVariableNames:'saveSelection undoHistory copiedExtent copiedLayout resizeData
 		clipChildren selectionHiddenLevel gridParameters
-		setOfSuperViewsSizeChanged hasUndoHistoryHolder'
+		setOfSuperViewsSizeChanged hasUndoHistoryHolder
+		nPixelsForMoveSelection'
 	classVariableNames:'CopiedLayout CopiedExtent'
 	poolDictionaries:''
 	category:'Interface-UIPainter'
@@ -404,6 +409,14 @@
 
 !
 
+nPixelsForMoveSelection
+    ^ nPixelsForMoveSelection
+!
+
+nPixelsForMoveSelection:something
+    nPixelsForMoveSelection := something.
+!
+
 showGrid
     "show grid
     "
@@ -669,6 +682,7 @@
     self enableChannel:(true asValue).
     clipChildren         := true.
     selectionHiddenLevel := 0.
+    nPixelsForMoveSelection := 1.
 
     (self class gridShown) ifTrue:[
         super showGrid
@@ -2123,8 +2137,7 @@
 moveSelectionDown
     "move selection down
     "
-    self moveSelectionDown:1
-
+    self moveSelectionDown:nPixelsForMoveSelection
 !
 
 moveSelectionDown:howMany
@@ -2158,8 +2171,7 @@
 moveSelectionLeft
     "move selection left
     "
-    self moveSelectionLeft:1
-
+    self moveSelectionLeft:nPixelsForMoveSelection
 !
 
 moveSelectionLeft:howMany
@@ -2188,7 +2200,7 @@
 moveSelectionRight
     "move the selection to the right"
 
-    self moveSelectionRight:1
+    self moveSelectionRight:nPixelsForMoveSelection
 !
 
 moveSelectionRight:howMany
@@ -2217,7 +2229,7 @@
 moveSelectionUp
     "move selection up
     "
-    self moveSelectionUp:1
+    self moveSelectionUp:nPixelsForMoveSelection
 !
 
 moveSelectionUp:howMany