git-svn-id: trunk@5505 -
@@ -21,8 +21,11 @@ uses
Objects,Drivers,Views,App,Gadgets,MsgBox,Tabs,
WEditor,WCEdit,
Comphook,Browcol,
- WHTMLScn,fpevalw,
- FPViews,FPSymbol,fpstring;
+ WHTMLScn,
+ FPViews,FPSymbol,fpstring
+ {$ifndef NODEBUG}
+ ,fpevalw
+ {$endif};
type
TExecType = (exNormal,exNoSwap,exDosShell);
@@ -254,7 +254,15 @@ begin
else
dispose(P,Done);
end;
+{$endif NODEBUG}
+
+{$ifdef NODEBUG}
+procedure TIDEapp.do_evaluate;
+begin
+ nodebugger;
+end;
+{$else}
procedure TIDEapp.do_evaluate;
var d:Pevaluate_dialog;
@@ -268,5 +276,5 @@ begin
desktop^.execview(d);
dispose(d,done);
-{$endif NODEBUG}
+{$endif}