9911 |
9911 |
9912 newFormat := Dialog |
9912 newFormat := Dialog |
9913 request:'Define the Format of Window Labels:\\ %1 - Label\ %2 - Hostname\ %3 - Username\ %4 - ProcessId\' |
9913 request:'Define the Format of Window Labels:\\ %1 - Label\ %2 - Hostname\ %3 - Username\ %4 - ProcessId\' |
9914 withCRs |
9914 withCRs |
9915 initialAnswer:newWindowLabelFormat. |
9915 initialAnswer:newWindowLabelFormat. |
9916 newFormat size > 0 ifTrue:[ |
9916 newFormat notEmptyOrNil ifTrue:[ |
9917 newWindowLabelFormat := newFormat. |
9917 newWindowLabelFormat := newFormat. |
9918 self updateModifiedChannel |
9918 self updateModifiedChannel |
9919 ] |
9919 ] |
|
9920 |
|
9921 "Modified: / 17-02-2017 / 08:26:39 / cg" |
9920 ! ! |
9922 ! ! |
9921 |
9923 |
9922 !AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'aspects'! |
9924 !AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'aspects'! |
9923 |
9925 |
9924 activateOnClick |
9926 activateOnClick |
11144 |host| |
11146 |host| |
11145 |
11147 |
11146 acceptChannel value:true. |
11148 acceptChannel value:true. |
11147 |
11149 |
11148 host := self smallTeamHostEntry value. |
11150 host := self smallTeamHostEntry value. |
11149 |
11151 |
11150 host size > 0 ifTrue:[ |
11152 host notEmptyOrNil ifTrue:[ |
11151 self listOfSmallTeamHosts add:host |
11153 self listOfSmallTeamHosts add:host |
11152 ]. |
11154 ]. |
11153 |
11155 |
11154 "Modified: / 12-11-2006 / 19:06:22 / cg" |
11156 "Modified (format): / 17-02-2017 / 08:33:52 / cg" |
11155 ! |
11157 ! |
11156 |
11158 |
11157 removeSmallTeamHost |
11159 removeSmallTeamHost |
11158 |host| |
11160 |host| |
11159 |
11161 |
11160 acceptChannel value:true. |
11162 acceptChannel value:true. |
11161 |
11163 |
11162 host := self selectedSmallTeamHost value. |
11164 host := self selectedSmallTeamHost value. |
11163 |
11165 |
11164 host size > 0 ifTrue:[ |
11166 host notEmptyOrNil ifTrue:[ |
11165 self selectedSmallTeamHost value:nil. |
11167 self selectedSmallTeamHost value:nil. |
11166 self listOfSmallTeamHosts remove:host ifAbsent:[ self window beep ]. |
11168 self listOfSmallTeamHosts remove:host ifAbsent:[ self window beep ]. |
11167 self smallTeamHostEntry value:''. |
11169 self smallTeamHostEntry value:''. |
11168 ]. |
11170 ]. |
11169 |
11171 |
11170 "Modified: / 12-11-2006 / 19:15:05 / cg" |
11172 "Modified: / 17-02-2017 / 08:33:29 / cg" |
11171 ! ! |
11173 ! ! |
11172 |
11174 |
11173 !AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'image specs'! |
11175 !AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'image specs'! |
11174 |
11176 |
11175 defaultIcon |
11177 defaultIcon |