Changeset 67 for trunk/Forms/UFormOutput.pas

Timestamp:

Jan 17, 2015, 4:08:03 PM (10 years ago)

Author:

chronos

Message:

• Renamed: MainForm class to FormMain.
• Moved: CurrentTarget moved from FormMain to Core class.

File:

• trunk/Forms/UFormOutput.pas (modified) (2 diffs)

trunk/Forms/UFormOutput.pas

@@ -29 +29 @@
 
 uses
-  UFormMain, UTargetInterpretter;
+  UCore, UTargetInterpretter;
 
 { TFormOutput }
@@ -35 +35 @@
 procedure TFormOutput.Reload;
 begin
-  if MainForm.CurrentTarget is TTargetInterpretter then
-  with TTargetInterpretter(MainForm.CurrentTarget) do
+  if Core.CurrentTarget is TTargetInterpretter then
+  with TTargetInterpretter(Core.CurrentTarget) do
     MemoOutput.Lines.Text := Output;
 end;