--- 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