equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1995 by eXept Software AG |
4 COPYRIGHT (c) 1995 by eXept Software AG |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
9 other person. No title to or ownership of the software is |
11 other person. No title to or ownership of the software is |
10 hereby transferred. |
12 hereby transferred. |
11 " |
13 " |
12 "{ Package: 'stx:libtool2' }" |
14 "{ Package: 'stx:libtool2' }" |
13 |
15 |
|
16 "{ NameSpace: Smalltalk }" |
|
17 |
14 ObjectView subclass:#UIObjectView |
18 ObjectView subclass:#UIObjectView |
15 instanceVariableNames:'saveSelection undoHistory copiedExtent copiedLayout resizeData |
19 instanceVariableNames:'saveSelection undoHistory copiedExtent copiedLayout resizeData |
16 clipChildren selectionHiddenLevel gridParameters |
20 clipChildren selectionHiddenLevel gridParameters |
17 setOfSuperViewsSizeChanged hasUndoHistoryHolder' |
21 setOfSuperViewsSizeChanged hasUndoHistoryHolder |
|
22 nPixelsForMoveSelection' |
18 classVariableNames:'CopiedLayout CopiedExtent' |
23 classVariableNames:'CopiedLayout CopiedExtent' |
19 poolDictionaries:'' |
24 poolDictionaries:'' |
20 category:'Interface-UIPainter' |
25 category:'Interface-UIPainter' |
21 ! |
26 ! |
22 |
27 |
402 ] |
407 ] |
403 |
408 |
404 |
409 |
405 ! |
410 ! |
406 |
411 |
|
412 nPixelsForMoveSelection |
|
413 ^ nPixelsForMoveSelection |
|
414 ! |
|
415 |
|
416 nPixelsForMoveSelection:something |
|
417 nPixelsForMoveSelection := something. |
|
418 ! |
|
419 |
407 showGrid |
420 showGrid |
408 "show grid |
421 "show grid |
409 " |
422 " |
410 self withSelectionHiddenDo:[super showGrid] |
423 self withSelectionHiddenDo:[super showGrid] |
411 ! ! |
424 ! ! |
667 undoHistory := UndoHistory on:self. |
680 undoHistory := UndoHistory on:self. |
668 |
681 |
669 self enableChannel:(true asValue). |
682 self enableChannel:(true asValue). |
670 clipChildren := true. |
683 clipChildren := true. |
671 selectionHiddenLevel := 0. |
684 selectionHiddenLevel := 0. |
|
685 nPixelsForMoveSelection := 1. |
672 |
686 |
673 (self class gridShown) ifTrue:[ |
687 (self class gridShown) ifTrue:[ |
674 super showGrid |
688 super showGrid |
675 ]. |
689 ]. |
676 |
690 |
2121 ! |
2135 ! |
2122 |
2136 |
2123 moveSelectionDown |
2137 moveSelectionDown |
2124 "move selection down |
2138 "move selection down |
2125 " |
2139 " |
2126 self moveSelectionDown:1 |
2140 self moveSelectionDown:nPixelsForMoveSelection |
2127 |
|
2128 ! |
2141 ! |
2129 |
2142 |
2130 moveSelectionDown:howMany |
2143 moveSelectionDown:howMany |
2131 "move selection down (pixelwise or aligned-grid wise)" |
2144 "move selection down (pixelwise or aligned-grid wise)" |
2132 |
2145 |
2156 ! |
2169 ! |
2157 |
2170 |
2158 moveSelectionLeft |
2171 moveSelectionLeft |
2159 "move selection left |
2172 "move selection left |
2160 " |
2173 " |
2161 self moveSelectionLeft:1 |
2174 self moveSelectionLeft:nPixelsForMoveSelection |
2162 |
|
2163 ! |
2175 ! |
2164 |
2176 |
2165 moveSelectionLeft:howMany |
2177 moveSelectionLeft:howMany |
2166 "move selection to the left (pixelwise or aligned-grid wise)" |
2178 "move selection to the left (pixelwise or aligned-grid wise)" |
2167 |
2179 |
2186 ! |
2198 ! |
2187 |
2199 |
2188 moveSelectionRight |
2200 moveSelectionRight |
2189 "move the selection to the right" |
2201 "move the selection to the right" |
2190 |
2202 |
2191 self moveSelectionRight:1 |
2203 self moveSelectionRight:nPixelsForMoveSelection |
2192 ! |
2204 ! |
2193 |
2205 |
2194 moveSelectionRight:howMany |
2206 moveSelectionRight:howMany |
2195 "move selection to the right (pixelwise or aligned-grid wise)" |
2207 "move selection to the right (pixelwise or aligned-grid wise)" |
2196 |
2208 |
2215 ! |
2227 ! |
2216 |
2228 |
2217 moveSelectionUp |
2229 moveSelectionUp |
2218 "move selection up |
2230 "move selection up |
2219 " |
2231 " |
2220 self moveSelectionUp:1 |
2232 self moveSelectionUp:nPixelsForMoveSelection |
2221 ! |
2233 ! |
2222 |
2234 |
2223 moveSelectionUp:howMany |
2235 moveSelectionUp:howMany |
2224 "move selection up (pixelwise or aligned-grid wise)" |
2236 "move selection up (pixelwise or aligned-grid wise)" |
2225 |
2237 |