equal
deleted
inserted
replaced
77 |
77 |
78 top open |
78 top open |
79 [exEnd] |
79 [exEnd] |
80 |
80 |
81 |
81 |
82 open a FileSelectionTree useing a model |
82 open a FileSelectionTree using a model |
83 [exBegin] |
83 [exBegin] |
84 |top scr model| |
84 |top scr model| |
85 |
85 |
86 top := StandardSystemView new label:'select'; extent:300@500. |
86 top := StandardSystemView new label:'select'; extent:300@500. |
87 scr := HVScrollableView for:FileSelectionTree origin:(0.0 @ 0.0) corner:(1.0 @ 1.0) in:top. |
87 scr := HVScrollableView for:FileSelectionTree origin:(0.0 @ 0.0) corner:(1.0 @ 1.0) in:top. |
282 path notNil ifTrue:[field editValue:path] |
282 path notNil ifTrue:[field editValue:path] |
283 ]. |
283 ]. |
284 top open |
284 top open |
285 [exEnd] |
285 [exEnd] |
286 " |
286 " |
287 |
|
288 |
|
289 ! ! |
287 ! ! |
290 |
288 |
291 !FileSelectionTree class methodsFor:'constants'! |
289 !FileSelectionTree class methodsFor:'constants'! |
292 |
290 |
293 monitoringDelayTime |
291 monitoringDelayTime |
752 |
750 |
753 !FileSelectionTree class methodsFor:'documentation'! |
751 !FileSelectionTree class methodsFor:'documentation'! |
754 |
752 |
755 version |
753 version |
756 ^ '$Header$' |
754 ^ '$Header$' |
757 ! ! |
755 ! |
758 |
756 |
|
757 version_CVS |
|
758 ^ '$Header$' |
|
759 ! ! |
|
760 |