equal
deleted
inserted
replaced
1595 |
1595 |
1596 okLabelEnabled isNil ifTrue:[ |
1596 okLabelEnabled isNil ifTrue:[ |
1597 isLoadDialog ifTrue:[ |
1597 isLoadDialog ifTrue:[ |
1598 okLabelEnabled := BlockValue |
1598 okLabelEnabled := BlockValue |
1599 with:[:filename| filename notNil |
1599 with:[:filename| filename notNil |
1600 and:[viewFiles |
1600 and:[ |
1601 ifTrue:[filename asFilename physicalFilename isRegularFile] |
1601 |physicalFilename| |
1602 ifFalse:[filename asFilename physicalFilename isDirectory] |
1602 physicalFilename := filename asFilename physicalFilename. |
|
1603 physicalFilename notNil and:[ |
|
1604 viewFiles |
|
1605 ifTrue:[physicalFilename isRegularFile] |
|
1606 ifFalse:[physicalFilename isDirectory] |
|
1607 ]. |
1603 ] |
1608 ] |
1604 ] |
1609 ] |
1605 argument:self filenameHolder. |
1610 argument:self filenameHolder. |
1606 ] ifFalse:[ |
1611 ] ifFalse:[ |
1607 okLabelEnabled := true. |
1612 okLabelEnabled := true. |
1888 |
1893 |
1889 "Modified: / 27-12-2010 / 09:56:30 / cg" |
1894 "Modified: / 27-12-2010 / 09:56:30 / cg" |
1890 ! |
1895 ! |
1891 |
1896 |
1892 initialize |
1897 initialize |
|
1898 super initialize. |
1893 isLoadDialog := false. |
1899 isLoadDialog := false. |
1894 ! |
1900 ! |
1895 |
1901 |
1896 postBuildFileNameField:aWidget |
1902 postBuildFileNameField:aWidget |
1897 |
1903 |