equal
deleted
inserted
replaced
1230 |
1230 |
1231 model notNil ifTrue:[ |
1231 model notNil ifTrue:[ |
1232 self setFetchingChildrenInfo. |
1232 self setFetchingChildrenInfo. |
1233 model startIndicatorValidationFor:self. |
1233 model startIndicatorValidationFor:self. |
1234 ] ifFalse:[ |
1234 ] ifFalse:[ |
1235 self error:'should not happen' mayProceed:true. |
1235 "/ model canbe nil if an expose event is proccessed after my underlaying model is gone |
|
1236 "/ self error:'should not happen' mayProceed:true. |
|
1237 'HierarchicalFileList::Directory -> hasChildren : model is unspecified' printCR. |
1236 self forgetAboutChildren |
1238 self forgetAboutChildren |
1237 ]. |
1239 ]. |
1238 children size ~~ 0 ifTrue:[ ^ true]. |
1240 children size ~~ 0 ifTrue:[ ^ true]. |
1239 |
1241 |
1240 self isFetchingChildrenInfo ifTrue:[ |
1242 self isFetchingChildrenInfo ifTrue:[ |
1422 ! ! |
1424 ! ! |
1423 |
1425 |
1424 !HierarchicalFileList class methodsFor:'documentation'! |
1426 !HierarchicalFileList class methodsFor:'documentation'! |
1425 |
1427 |
1426 version |
1428 version |
1427 ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.83 2015-05-01 14:38:56 cg Exp $' |
1429 ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.84 2015-05-22 09:08:58 ca Exp $' |
1428 ! |
1430 ! |
1429 |
1431 |
1430 version_CVS |
1432 version_CVS |
1431 ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.83 2015-05-01 14:38:56 cg Exp $' |
1433 ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.84 2015-05-22 09:08:58 ca Exp $' |
1432 ! ! |
1434 ! ! |
1433 |
1435 |
1434 |
1436 |
1435 HierarchicalFileList::Directory initialize! |
1437 HierarchicalFileList::Directory initialize! |