Subversion Repositories Kolibri OS

Rev

Rev 619 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 619 Rev 643
Line 149... Line 149...
149 
  FIPCBuffer^.Size := 0;
 149 
  FIPCBuffer^.Size := 0;
150 
  FThreadSlot := -1;
 150 
  FThreadSlot := -1;
151 
  FThreadID := BeginThread(TThreadFunc(@KonsoleThreadMain), @Self);
 151 
  FThreadID := BeginThread(TThreadFunc(@KonsoleThreadMain), @Self);
152 
  if FThreadID <> 0 then
 152 
  if FThreadID <> 0 then
153 
    {XXX: ¬®¦¥â § ¢¨á­ãâì}
 153 
    {XXX: ¬®¦¥â § ¢¨á­ãâì}
- 
 
 154 
    {‚®, â ª ¨ ¥áâì ¢ 2.2.0.}
154 
    while not FOpened do ThreadSwitch;
 155 
    while not FOpened do ThreadSwitch;
155 
end;
 156 
end;
Line 156... Line 157...
156 
 
 157 
 
157 
destructor TKonsole.Done();
 158 
destructor TKonsole.Done();