@@ -62,9 +62,6 @@ TNotifier = class(TInterfacedObject, INotifier, ISetActions)
62
62
// / <summary>Action that causes news items from CodeSnip news feed to be
63
63
// / displayed.</summary>
64
64
fNewsAction: TBasicAction;
65
- // / <summary>Action that causes a check for program updates to be
66
- // / performed.</summary>
67
- fCheckForUpdatesAction: TBasicAction;
68
65
// / <summary>Action that causes About box to be displayed.</summary>
69
66
fAboutBoxAction: TBasicAction;
70
67
// / <summary>Action that displays a specified page in the preferences
@@ -135,10 +132,6 @@ TNotifier = class(TInterfacedObject, INotifier, ISetActions)
135
132
// / <remarks>Methods of INotifier.</remarks>
136
133
procedure ShowNews ;
137
134
138
- // / <summary>Checks for program updates.</summary>
139
- // / <remarks>Methods of INotifier.</remarks>
140
- procedure CheckForUpdates ;
141
-
142
135
// / <summary>Displays the program's About Box.</summary>
143
136
// / <remarks>Methods of INotifier.</remarks>
144
137
procedure ShowAboutBox ;
@@ -212,11 +205,6 @@ TNotifier = class(TInterfacedObject, INotifier, ISetActions)
212
205
// / <remarks>Methods of ISetActions.</remarks>
213
206
procedure SetNewsAction (const Action: TBasicAction);
214
207
215
- // / <summary>Sets action used to check for program updates.</summary>
216
- // / <param name="Action">TBasicAction [in] Required action.</param>
217
- // / <remarks>Methods of ISetActions.</remarks>
218
- procedure SetCheckForUpdatesAction (const Action: TBasicAction);
219
-
220
208
// / <summary>Sets action used to display the program's About Box.</summary>
221
209
// / <param name="Action">TBasicAction [in] Required action.</param>
222
210
// / <remarks>Methods of ISetActions.</remarks>
@@ -260,12 +248,6 @@ procedure TNotifier.ChangeOverviewStyle(const Style: Integer);
260
248
fOverviewStyleChangeActions[Style].Execute;
261
249
end ;
262
250
263
- procedure TNotifier.CheckForUpdates ;
264
- begin
265
- if Assigned(fCheckForUpdatesAction) then
266
- fCheckForUpdatesAction.Execute;
267
- end ;
268
-
269
251
procedure TNotifier.ConfigCompilers ;
270
252
begin
271
253
if Assigned(fConfigCompilersAction) then
@@ -314,11 +296,6 @@ procedure TNotifier.SetAboutBoxAction(const Action: TBasicAction);
314
296
fAboutBoxAction := Action;
315
297
end ;
316
298
317
- procedure TNotifier.SetCheckForUpdatesAction (const Action: TBasicAction);
318
- begin
319
- fCheckForUpdatesAction := Action;
320
- end ;
321
-
322
299
procedure TNotifier.SetConfigCompilersAction (const Action: TBasicAction);
323
300
begin
324
301
fConfigCompilersAction := Action;
0 commit comments