Changeset 5 for trunk/Apps/UClock.pas


Ignore:
Timestamp:
Nov 23, 2014, 9:04:03 AM (9 years ago)
Author:
chronos
Message:

#1

  • Fixed: Scheduler should stop all tasks if it is stopped.
Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore

      •  

        old new  
        22ChronOS.lps
        33lib
         4heaptrclog.trc

  • trunk/Apps/UClock.pas

    r4 r5  
    66
    77uses
    8   Classes, SysUtils, UApp, dateutils;
     8  Classes, SysUtils, UApp, dateutils, UKernel;
    99
    1010type
    … …  
    1313
    1414  TAppClock = class(TApp)
    15     procedure Run; override;
     15    procedure Run(Task: TTask); override;
    1616    constructor Create; override;
    1717  end;
    … …  
    2121{ TAppClock }
    2222
    23 procedure TAppClock.Run;
     23procedure TAppClock.Run(Task: TTask);
    2424begin
    25   while not Terminated do begin
     25  while not Task.Terminated do begin
    2626    API.WriteText('test');
    2727    API.Sleep(OneSecond);
Note: See TracChangeset for help on using the changeset viewer.