14 	instanceVariableNames:'listHolder superclassName className methodName categoryName'

    14 	instanceVariableNames:'claus listHolder superclassName className methodName categoryName'

   363 listHolder

    99 findInputViewIn:aSuperView

   364     ^ listHolder

   100     "returns index of input view into superview or nil

   101     "

   102     |subviews|

   103 

   104     aSuperView == self ifTrue:[

   105         ^ self subViews findFirst:[:v| v == inputView ]

   106     ].

   107   ^ 0

   108 !

   109 

   110 inputView

   111     ^ inputView

   408 changed:aParameter

   155 layoutChanged

   409     aParameter == #layout ifTrue:[

   156     claus layoutChanged

   410         listHolder removeDependent:self.

   411         listHolder changed:aParameter.

   412         listHolder addDependent:self.

   413     ] ifFalse:[

   414         super changed:aParameter

   415     ]

   416 !

   417 

   418 selectionChanged

   419     "selection has changed

   420     "

   421     |newSel|

   422 

   423     self selectionDo:[:aView||p|

   424         (p := self propertyOfView:aView) notNil ifTrue:[

   425             newSel isNil ifTrue:[

   426                 newSel := OrderedCollection new

   427             ].

   428             newSel add:(listHolder indexOfName:(p name))

   429         ]

   430     ].

   431     listHolder removeDependent:self.

   432     listHolder selectionIndex:newSel.

   433     listHolder addDependent:self.

   434 !

   435 

   436 update:what with:aParm from:aSender

   437     |loIdx newSel|

   438 

   439     (what == #selectionIndex and:[aSender == listHolder]) ifFalse:[

   440         ^ self

   441     ].

   442     loIdx := listHolder selectionIndex.

   443 

   444     loIdx size ~~ 0 ifTrue:[

   445         newSel := loIdx collect:[:i|(listHolder propertyAt:i) view]

   446     ].

   447     self updateSelectionFrom:newSel.

   448 !

   449 

   450 updateSelectionFrom:aSel

   451     "update selection from a new selection

   452     "

   453     |csel|

   454 

   455     selectionHiddenLevel == 0 ifTrue:[

   456         aSel isCollection ifTrue:[

   457             self selectionDo:[:el|

   458                 (aSel includes:el) ifFalse:[self showUnselected:el]

   459             ]

   460         ] ifFalse:[

   461             self selectionDo:[:el|

   462                 aSel == el ifFalse:[self showUnselected:el]

   463             ]

   464         ]

   465     ].

   466     self setSelection:aSel withRedraw:false.

   467     self showSelection

   497         listHolder disableNotificationsWhileEvaluating:[

   186         claus cvsEventsDisabledDo:[

   515     self pasteSpecifications:(self getSelection) keepLayout:false

   204     |sel|

   205 

   206     sel := self pasteSpecifications:(self getSelection) keepLayout:false.

   207 

   208     sel notNil ifTrue:[

   209         self select:sel.

   210     ].

   520     "add the specs to the object view

   215     "add the specs to the object view; returns list of pasted components

   525         ^ self

   220         ^ nil

   526     ].

   221     ].

   527     listHolder disableNotificationsWhileEvaluating:[

   222 

   223     claus cvsSetupListDo:[

   533         frame := self singleSelection.

   229         (frame := self singleSelection) isNil ifTrue:[

   534 

   535         (self canPasteInto:frame) ifFalse:[

   552         listHolder disableNotificationsWhileEvaluating:[

   246         paste do:[:aSpec|

   553             paste do:[:aSpec|

   247             |view|

   554                 |view|

   248 

   555 

   249             view := self addSpec:aSpec builder:builder in:frame.

   556                 view := self addSpec:aSpec builder:builder in:frame.

   250 

   557 

   251             keepLayout ifFalse:[

   558                 keepLayout ifFalse:[

   252                 (frame bounds containsPoint:pasteOrigin) ifFalse:[

   559                     (frame bounds containsPoint:pasteOrigin) ifFalse:[

   253                     self moveObject:view to:pasteOffset.

   560                         self moveObject:view to:pasteOffset.

   254                 ] ifTrue:[

   561                     ] ifTrue:[

   255                     self moveObject:view to:pasteOrigin + pasteOffset.

   562                         self moveObject:view to:pasteOrigin + pasteOffset.

   563                     ].

   564                     pasteOffset := pasteOffset + 4

   566                 view realize.

   257                 pasteOffset := pasteOffset + 4

   567                 newSel add:view.

   583     ]

   274     ].

   584 

   275     ^ newSel

   585     "Modified: 4.7.1997 / 23:49:14 / cg"

   592     self pasteSpecifications:(self getSelection) keepLayout:true

   282     |sel|

   593 

   283 

   284     sel := self pasteSpecifications:(self getSelection) keepLayout:true.

   285 

   286     sel notNil ifTrue:[

   287         self select:sel.

   288     ].

   601     self enabled ifTrue:[

   327     aView notNil ifTrue:[

   602         anObjectOrCollection size == 1 ifTrue:[

   328         spec := self specFor:aView.

   603             spec := (anObjectOrCollection at:1) theObject.

   329 

   604             ^ (spec isKindOf:UISpecification)

   330         spec isNil ifTrue:[^ aView specClass supportsSubComponents]

   605         ]

   331                   ifFalse:[^ spec  class     supportsSubComponents]

   613     |spec|

   338     |spec newSel oldSel|

   614 

   339 

   340     oldSel := selection copy.

   616     self pasteSpecifications:spec keepLayout:false.

   342     newSel := self pasteSpecifications:spec keepLayout:false.

   617 

   343 

   618 

   344     oldSel isNil ifTrue:[self select:newSel]

   345                 ifFalse:[self select:oldSel]

   672     listHolder propertiesDo:[:aProp |

   399     claus propertiesDo:[:aProp |

   828     listHolder disableNotificationsWhileEvaluating:[

   545     claus cvsSetupListDo:[

   844     |menu canPaste|

   565     |menu|

   845 

   566 

   846     self enabled ifFalse:[

   567     self enabled ifTrue:[

   847         ^ nil

   568         menu := MenuPanel fromSpec:(UIPainter menuCanvas) receiver:self.

   848     ].

   569 

   849     menu := MenuPanel fromSpec:(self class menu) receiver:self.

   570         self hasSelection ifFalse:[

   850 

   571             menu disableAll

   851     canPaste := self canPaste:(self getSelection).

   572         ].

   852 

   573         menu enabledAt:#paste put:(self canPaste:(self getSelection)).

   853     self hasSelection ifTrue:[

   574         menu enabledAt:#undo  put:(undoHistory isEmpty not).

   854         canPaste := (canPaste and:[self canPasteInto:(self selection)])

   575         menu startUp.

   855     ] ifFalse:[

   576     ].

   856         menu disableAll

   857     ].

   858     menu enabledAt:#paste put:canPaste.

   859     menu enabledAt:#undo  put:(undoHistory isEmpty not).

   860     menu startUp.

   873         listHolder remove:anObject

   589         claus removeView:anObject.

   880     listHolder disableNotificationsWhileEvaluating:[

   596     claus cvsEventsDisabledDo:[

   881         self select:nil.

   597         self  select:nil.

   882         listHolder removeAll.

   598         claus removeAll.

   883         self removeUndoHistory.

   599         self  removeUndoHistory.

   939         ^ listHolder detectProperty:[:p| p identifier == anId ]

   655         ^ claus propertyDetect:[:p| p identifier == anId ]

   951 

   667       ^ claus propertyDetect:[:p| p name = name ].

   952         name = 'self' ifFalse:[

   953             ^ listHolder detectProperty:[:p| p name = name ].

   954         ]

   963         ^ listHolder detectProperty:[:p| p view == aView ]

   676         ^ claus propertyDetect:[:p| p view == aView ]

   985     listHolder propertiesDo:[:p|

   698     claus propertiesDo:[:p|

  1040         listHolder add:p

   823         claus addProperty:p.

  1138                 listHolder propertyChanged:props.

   921                 claus propertyChanged:props.

  1251         self changed:#layout.

  1034         self layoutChanged.

  1300         listHolder propertyChanged:props.

  1083         claus propertyChanged:props.

  1301     ]

  1084     ]

  1302 

  1303     "Modified: 4.7.1997 / 23:49:39 / cg"

  1304 ! !

  1305 

  1306 !UIPainterView methodsFor:'user actions - arrange'!

  1307 

  1308 lowerSelection

  1309     "lower all objects in the selection

  1310     "

  1311     self hasSelection ifTrue:[

  1312         self selectionDo:[:aView|

  1313             aView lower.

  1314             aView superView changeSequenceOrderFor:aView to:1.

  1315         ].

  1316         listHolder recompute.

  1317     ]

  1318 

  1319 

  1320 !

  1321 

  1322 raiseSelection

  1323     "raise all objects in the selection

  1324     "

  1325     self hasSelection ifTrue:[

  1326         self selectionDo:[:aView||sv|

  1327             aView raise.

  1328             sv := aView superView.

  1329             sv changeSequenceOrderFor:aView to:(sv subViews size)

  1330         ].

  1331         inputView raise.

  1332         listHolder recompute.

  1333     ].

  1334 

  1335 

  1336 ! !

  1337 

  1338 !UIPainterView::ListHolder class methodsFor:'instance creation'!

  1339 

  1340 for:aPainter

  1341     ^ self new for:aPainter

  1342 ! !

  1343 

  1344 !UIPainterView::ListHolder methodsFor:'accessing'!

  1345 

  1346 painter

  1347     "returns painter

  1348     "

  1349     ^ painter

  1350 !

  1351 

  1352 propertyAt:anIndex

  1353     "returns property at an index

  1354     "

  1355     ^ propertyList at:anIndex

  1356 ! !

  1357 

  1358 !UIPainterView::ListHolder methodsFor:'adding & removing'!

  1359 

  1360 add:aProperty

  1361     "add property and update list

  1362     "

  1363     |idx list name last|

  1364 

  1365     list := self list.

  1366     idx  := self findParentProperty:aProperty.

  1367     name := aProperty name.

  1368 

  1369     idx == 0 ifTrue:[

  1370         last := list size

  1371     ] ifFalse:[

  1372         last := self lastInGroupStartingAt:idx.

  1373         name := (String new:(4+((list at:idx) leftIndent))), name.

  1374     ].

  1375     propertyList add:aProperty afterIndex:last.

  1376     list         add:name      afterIndex:last.

  1377     self changed:#size

  1378 

  1379 

  1380 !

  1381 

  1382 remove:aView

  1383     "remove all view relevant resources

  1384     "

  1385     |start|

  1386 

  1387     aView notNil ifTrue:[

  1388         start := self findProperty:[:p| p view == aView ].

  1389 

  1390         start ~~ 0 ifTrue:[

  1391             self basicRemove:start.

  1392             self changed:#size.

  1393         ]

  1394     ]

  1395 !

  1396 

  1397 removeAll

  1398     masterElement := nil.

  1399     self selection:#().

  1400 

  1401     [propertyList notEmpty] whileTrue:[

  1402         self basicRemove:1

  1403     ].

  1404     self changed:#size.

  1405 

  1406 ! !

  1407 

  1408 !UIPainterView::ListHolder methodsFor:'change & update'!

  1409 

  1410 changed:aParameter

  1411     "notify all dependents that the receiver has changed somehow.

  1412      Each dependent gets a '#update:'-message with aParameter

  1413      as argument. In case of disabled no notifications are raised

  1414     "

  1415     disabledChanged ifFalse:[

  1416         super changed:aParameter

  1417     ]

  1418 !

  1419 

  1420 disableNotificationsWhileEvaluating:aBlock

  1421     "perform block without notification; after evaluation of block,

  1422      a #size changed notification is raised

  1423     "

  1424     |oldState|

  1425 

  1426     oldState := disabledChanged.

  1427     disabledChanged := true.

  1428     aBlock value.

  1429     disabledChanged := oldState.

  1430     self changed:#size.

  1431 !

  1432 

  1433 propertyChanged:aProperty

  1434     "property list changed; update list names

  1435     "

  1436     |list idx oldName newName wspName view indent mid|

  1437 

  1438     view := aProperty view.

  1439     idx  := self findProperty:[:p| p view == view ].

  1440 

  1441     idx == 0 ifTrue:[

  1442         ^ self error

  1443     ].

  1444 

  1445     list    := self list.

  1446     oldName := list at:idx.

  1447     wspName := oldName string withoutSeparators.

  1448     newName := aProperty name.

  1449 

  1450     wspName = newName ifFalse:[

  1451         mid := self masterElement.

  1452         list at:idx put:((String new:(oldName leftIndent)), newName).

  1453 

  1454         idx == mid ifTrue:[

  1455             masterElement := nil.

  1456             self masterElement:idx

  1457         ].

  1458     ].

  1459     self changed:#property

  1460 

  1461 ! !

  1462 

  1463 !UIPainterView::ListHolder methodsFor:'enumerating'!

  1464 

  1465 propertiesDo:aBlock

  1466     "evaluate a block for each property

  1467     "

  1468     propertyList do:aBlock

  1469 ! !

  1470 

  1471 !UIPainterView::ListHolder methodsFor:'initialization'!

  1472 

  1473 for:aPainter

  1474     "initialize for a painter

  1475     "

  1476     painter := aPainter.

  1477     disabledChanged := false.

  1478     self list:(OrderedCollection new).

  1479     propertyList := OrderedCollection new.

  1480     self selection:#().

  1481     self addDependent:painter.

  1482 

  1483 ! !

  1484 

  1485 !UIPainterView::ListHolder methodsFor:'private'!

  1486 

  1487 basicRemove:start

  1488     "remove all resources assigned to a group starting at start;

  1489      no notifications are raised

  1490     "

  1491     |end view superView|

  1492 

  1493     end  := self lastInGroupStartingAt:start.

  1494     view := (propertyList at:start) view.

  1495 

  1496     view notNil ifTrue:[

  1497         superView := view superView.

  1498         view destroy.

  1499         superView sizeChanged:nil.

  1500     ].

  1501 

  1502     propertyList removeFromIndex:start toIndex:end.

  1503     self list    removeFromIndex:start toIndex:end.

  1504 !

  1505 

  1506 masterElement

  1507     "returns index of master

  1508     "

  1509     ^ self indexOfName:masterElement.

  1510 !

  1511 

  1512 masterElement:newIndex

  1513     "change master of selection

  1514     "

  1515     |name list oldIdx|

  1516 

  1517     (oldIdx := self masterElement) ~~ newIndex ifTrue:[

  1518         list := self list.

  1519         

  1520         oldIdx ~~ 0 ifTrue:[

  1521             list at:oldIdx put:masterElement

  1522         ].

  1523         newIndex ~~ 0 ifTrue:[

  1524             masterElement := list at:newIndex.

  1525             name := Text string:masterElement.

  1526             name emphasizeFrom:(1+(name leftIndent)) with:#(#bold #underline).

  1527             list at:newIndex put:name.

  1528         ] ifFalse:[

  1529             masterElement := nil

  1530         ].

  1531         self changed:#list.

  1532     ]

  1533 ! !

  1534 

  1535 !UIPainterView::ListHolder methodsFor:'recomputing'!

  1536 

  1537 recompute

  1538     |list prop size osel|

  1539 

  1540     osel := self selection copy.

  1541     size := self list size.

  1542     list := OrderedCollection new:size.

  1543     prop := OrderedCollection new:size.

  1544 

  1545     painter allSubViewsDo:[:v|

  1546         size := self indexOfView:v.

  1547 

  1548         size ~~ 0 ifTrue:[

  1549             list add:(self list at:size).

  1550             prop add:(propertyList at:size)

  1551         ]

  1552     ].

  1553     propertyList := prop.

  1554     self list:list.

  1555     self selection:osel.

  1556 ! !

  1557 

  1558 !UIPainterView::ListHolder methodsFor:'searching'!

  1559 

  1560 detectProperty:aBlock

  1561     "find the property, for which evaluation of the argument, aBlock

  1562      returns true; return the property or nil if none detected

  1563     "

  1564     |idx|

  1565 

  1566     idx := self findProperty:aBlock.

  1567     idx ~~ 0 ifTrue:[ ^ propertyList at:idx ].

  1568   ^ nil

  1569 !

  1570 

  1571 findParentProperty:aChildProp

  1572     "returns index of parent or 0

  1573     "

  1574     |view index|

  1575 

  1576     view := aChildProp view.

  1577 

  1578     view notNil ifTrue:[

  1579         [ (view := view superView) notNil ] whileTrue:[

  1580             index := self findProperty:[:aProp| aProp view == view ].

  1581             index ~~ 0 ifTrue:[

  1582                 ^ index

  1583             ]

  1584         ]

  1585     ].

  1586     ^ 0

  1587 

  1588 

  1589 !

  1590 

  1591 findProperty:aBlock

  1592     "find the first property, for which evaluation of the argument, aBlock

  1593      returns true; return its index or 0 if none detected

  1594     "

  1595     ^ propertyList findFirst:aBlock

  1596 !

  1597 

  1598 indexOfName:aString

  1599     "returns index assigned to a string or 0

  1600     "

  1601     |name list size|

  1602 

  1603     aString notNil ifTrue:[

  1604         name := aString string withoutSeparators.

  1605         size := name size.

  1606         list := self list.

  1607 

  1608         list keysAndValuesDo:[:anIndex :aName|

  1609             |el|

  1610 

  1611             el := aName string.

  1612             (el endsWith:name) ifTrue:[

  1613                 (el size - el leftIndent) == name size ifTrue:[

  1614                     ^ anIndex

  1615                 ]

  1616             ]

  1617         ]

  1618     ].