equal
deleted
inserted
replaced
1305 ]. |
1305 ]. |
1306 oldAppl modifiedChannel removeDependent:self. |
1306 oldAppl modifiedChannel removeDependent:self. |
1307 ]. |
1307 ]. |
1308 |
1308 |
1309 item := self selectedItem value. |
1309 item := self selectedItem value. |
|
1310 |
|
1311 item isNil ifTrue:[ item := applicationList root ]. |
|
1312 |
1310 lastSelection := item. |
1313 lastSelection := item. |
1311 noApp := (item isNil) ifTrue:true ifFalse:[item isCategory]. |
1314 noApp := (item isNil) ifTrue:true ifFalse:[item isCategory]. |
1312 self enableOK value:(noApp not). |
1315 self enableOK value:(noApp not). |
1313 self enableReload value:(noApp not). |
1316 self enableReload value:(noApp not). |
1314 self enableHelp value:(noApp not). |
1317 self enableHelp value:(noApp not). |
1365 app modifiedChannel addDependent:self. |
1368 app modifiedChannel addDependent:self. |
1366 self subCanvasApplicationHolder value:app. |
1369 self subCanvasApplicationHolder value:app. |
1367 self modifiedChanged. |
1370 self modifiedChanged. |
1368 |
1371 |
1369 "Modified: / 29-10-2010 / 11:51:13 / cg" |
1372 "Modified: / 29-10-2010 / 11:51:13 / cg" |
|
1373 "Modified: / 17-02-2012 / 10:24:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1370 ! |
1374 ! |
1371 |
1375 |
1372 update:something with:aParameter from:changedObject |
1376 update:something with:aParameter from:changedObject |
1373 |subCanvasApplication| |
1377 |subCanvasApplication| |
1374 |
1378 |
1635 name: 'Button1' |
1639 name: 'Button1' |
1636 layout: (LayoutFrame -120 1 60 0.5 -20 1 85 0.5) |
1640 layout: (LayoutFrame -120 1 60 0.5 -20 1 85 0.5) |
1637 translateLabel: true |
1641 translateLabel: true |
1638 model: openSettingsFile |
1642 model: openSettingsFile |
1639 ) |
1643 ) |
|
1644 (ActionButtonSpec |
|
1645 label: 'Reload' |
|
1646 name: 'Button2' |
|
1647 layout: (LayoutFrame -230 1 60 0.5 -130 1 85 0.5) |
|
1648 translateLabel: true |
|
1649 model: reloadSettingsFile |
|
1650 ) |
1640 ) |
1651 ) |
1641 |
1652 |
1642 ) |
1653 ) |
1643 ) |
1654 ) |
1644 ! ! |
1655 ! ! |
1676 |
1687 |
1677 UserPreferences current fileBrowserClass |
1688 UserPreferences current fileBrowserClass |
1678 openOnFileNamed:filename editing:true |
1689 openOnFileNamed:filename editing:true |
1679 |
1690 |
1680 "Created: / 07-02-2012 / 01:08:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1691 "Created: / 07-02-2012 / 01:08:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1692 ! |
|
1693 |
|
1694 reloadSettingsFile |
|
1695 | filename | |
|
1696 |
|
1697 filename := UserPreferences current |
|
1698 at:#settingsFilename |
|
1699 ifAbsent:[UserPreferences defaultUserSettingsFile pathName]. |
|
1700 self reloadSettingsFile: filename |
|
1701 |
|
1702 "Created: / 17-02-2012 / 10:26:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1703 ! |
|
1704 |
|
1705 reloadSettingsFile: filename |
|
1706 |
|
1707 filename asFilename fileIn. |
|
1708 |
|
1709 "Created: / 17-02-2012 / 10:27:02 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1681 ! ! |
1710 ! ! |
1682 |
1711 |
1683 !SettingsDialog::SettingsFilenameAppl methodsFor:'protocol'! |
1712 !SettingsDialog::SettingsFilenameAppl methodsFor:'protocol'! |
1684 |
1713 |
1685 basicReadSettings |
1714 basicReadSettings |
1703 ! ! |
1732 ! ! |
1704 |
1733 |
1705 !SettingsDialog class methodsFor:'documentation'! |
1734 !SettingsDialog class methodsFor:'documentation'! |
1706 |
1735 |
1707 version |
1736 version |
1708 ^ '$Id: SettingsDialog.st 7892 2012-02-14 20:24:28Z vranyj1 $' |
1737 ^ '$Id: SettingsDialog.st 7911 2012-02-22 09:55:48Z vranyj1 $' |
1709 ! |
1738 ! |
1710 |
1739 |
1711 version_CVS |
1740 version_CVS |
1712 ^ '§Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.97 2011/11/25 14:44:20 cg Exp §' |
1741 ^ '§Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.97 2011/11/25 14:44:20 cg Exp §' |
1713 ! |
1742 ! |
1714 |
1743 |
1715 version_SVN |
1744 version_SVN |
1716 ^ '$Id: SettingsDialog.st 7892 2012-02-14 20:24:28Z vranyj1 $' |
1745 ^ '$Id: SettingsDialog.st 7911 2012-02-22 09:55:48Z vranyj1 $' |
1717 ! ! |
1746 ! ! |
1718 |
1747 |
1719 SettingsDialog initialize! |
1748 SettingsDialog initialize! |
|
1749 |