1386 |
1386 |
1387 self fillRectangleX:left+1 y:top+1 width:width-2 height:height-2. |
1387 self fillRectangleX:left+1 y:top+1 width:width-2 height:height-2. |
1388 |
1388 |
1389 level ~~ 0 ifTrue:[ |
1389 level ~~ 0 ifTrue:[ |
1390 leftEdge := left + 1. |
1390 leftEdge := left + 1. |
1391 wEdge := width - 2. |
1391 wEdge := wPart := width - 2. |
1392 topEdge := top + 1. |
1392 topEdge := top + 1. |
1393 hEdge := height - 2. |
1393 hEdge := hPart := height - 2. |
1394 |
1394 |
1395 orientation == #vertical ifTrue:[ |
1395 orientation == #vertical ifTrue:[ |
1396 wPart := width // 3. |
1396 wPart := width // 3. |
1397 ] ifFalse:[ |
1397 ] ifFalse:[ |
1398 hPart := height // 3. |
1398 hPart := height // 3. |
1400 |
1400 |
1401 level < 0 ifTrue:[ |
1401 level < 0 ifTrue:[ |
1402 part := (self subViews at:anIndex) objectAttributeAt:#snapPart. |
1402 part := (self subViews at:anIndex) objectAttributeAt:#snapPart. |
1403 part == #left ifTrue:[ |
1403 part == #left ifTrue:[ |
1404 self drawEdgesForX:leftEdge y:topEdge width:wEdge height:hEdge level:offLevel. |
1404 self drawEdgesForX:leftEdge y:topEdge width:wEdge height:hEdge level:offLevel. |
1405 wEdge := wPart. |
|
1406 ] ifFalse:[ |
1405 ] ifFalse:[ |
1407 part == #middle ifTrue:[ |
1406 part == #middle ifTrue:[ |
1408 self drawEdgesForX:leftEdge y:topEdge width:wEdge height:hEdge level:offLevel. |
1407 self drawEdgesForX:leftEdge y:topEdge width:wEdge height:hEdge level:offLevel. |
1409 leftEdge := leftEdge + wPart. |
1408 orientation == #vertical ifTrue:[ |
1410 wEdge := wPart. |
1409 leftEdge := leftEdge + wPart. |
|
1410 ] ifFalse:[ |
|
1411 topEdge := topEdge + hPart. |
|
1412 ] |
1411 ] ifFalse:[ |
1413 ] ifFalse:[ |
1412 part == #right ifTrue:[ |
1414 part == #right ifTrue:[ |
1413 self drawEdgesForX:leftEdge y:topEdge width:wEdge height:hEdge level:offLevel. |
1415 self drawEdgesForX:leftEdge y:topEdge width:wEdge height:hEdge level:offLevel. |
1414 leftEdge := leftEdge + (width - wPart). |
1416 orientation == #vertical ifTrue:[ |
1415 wEdge := wPart. |
1417 leftEdge := leftEdge + (width - wPart). |
|
1418 ] ifFalse:[ |
|
1419 topEdge := topEdge + (height - hPart). |
|
1420 ] |
1416 ] |
1421 ] |
1417 ] |
1422 ] |
1418 ]. |
1423 ]. |
|
1424 wEdge := wPart. |
|
1425 hEdge := hPart. |
1419 ]. |
1426 ]. |
1420 self drawEdgesForX:leftEdge y:topEdge width:wEdge height:hEdge level:level. |
1427 self drawEdgesForX:leftEdge y:topEdge width:wEdge height:hEdge level:level. |
1421 ]. |
1428 ]. |
1422 |
1429 |
1423 canChangeExtent ifFalse:[^ self]. |
1430 canChangeExtent ifFalse:[^ self]. |