3024 |
3024 |
3025 ! ! |
3025 ! ! |
3026 |
3026 |
3027 !UIPainter::TreeView methodsFor:'initialization'! |
3027 !UIPainter::TreeView methodsFor:'initialization'! |
3028 |
3028 |
|
3029 fetchImageResources |
|
3030 "get special images for UIPainter, |
|
3031 returns the maximum extent of all images" |
|
3032 |
|
3033 |extent| |
|
3034 |
|
3035 extent := super fetchImageResources. |
|
3036 |
|
3037 imageMasterChild := self class imageMasterChild. |
|
3038 imageMasterChild notNil ifTrue:[ |
|
3039 imageMasterChild := imageMasterChild onDevice:device. |
|
3040 extent := extent max:(imageMasterChild extent). |
|
3041 ]. |
|
3042 imageMasterParent := self class imageMasterParent. |
|
3043 imageMasterParent notNil ifTrue:[ |
|
3044 imageMasterParent := imageMasterParent onDevice:device. |
|
3045 extent := extent max:(imageMasterParent extent). |
|
3046 ]. |
|
3047 imageEmptyParent := self class imageEmptyParent. |
|
3048 imageEmptyParent notNil ifTrue:[ |
|
3049 imageEmptyParent := imageEmptyParent onDevice:device. |
|
3050 extent := extent max:(imageEmptyParent extent). |
|
3051 ]. |
|
3052 |
|
3053 ^ extent. |
|
3054 |
|
3055 "Modified: 19.9.1997 / 17:18:46 / stefan" |
|
3056 ! |
|
3057 |
3029 initialize |
3058 initialize |
3030 "initialization; set multiple select and model |
3059 "initialization; set multiple select and model |
3031 " |
3060 " |
3032 super initialize. |
3061 super initialize. |
3033 self multipleSelectOk:true. |
3062 self multipleSelectOk:true. |
3034 |
3063 |
3035 cvsEventsDisabled := false. |
3064 "Modified: 19.9.1997 / 16:57:12 / stefan" |
3036 imageMasterChild := self class imageMasterChild. |
|
3037 imageMasterChild notNil ifTrue:[imageMasterChild := imageMasterChild onDevice:device]. |
|
3038 imageMasterParent := self class imageMasterParent. |
|
3039 imageMasterParent notNil ifTrue:[imageMasterParent := imageMasterParent onDevice:device]. |
|
3040 imageEmptyParent := self class imageEmptyParent. |
|
3041 imageEmptyParent notNil ifTrue:[imageEmptyParent := imageEmptyParent onDevice:device]. |
|
3042 ! ! |
3065 ! ! |
3043 |
3066 |
3044 !UIPainter::TreeView methodsFor:'private'! |
3067 !UIPainter::TreeView methodsFor:'private'! |
3045 |
3068 |
3046 figureFor:aNode |
3069 figureFor:aNode |