From 7e5581b378b48ff731f2d3ea078ff8978f25e8aa Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graemeg@users.sourceforge.net>
Date: Wed, 7 Mar 2007 13:19:47 +0000
Subject: * Popupu menus now close on item selection.

---
 examples/gui/widgettest/widgettest.lpi | 2 +-
 examples/gui/widgettest/widgettest.pas | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'examples/gui')

diff --git a/examples/gui/widgettest/widgettest.lpi b/examples/gui/widgettest/widgettest.lpi
index 19413c4a..efbb9314 100644
--- a/examples/gui/widgettest/widgettest.lpi
+++ b/examples/gui/widgettest/widgettest.lpi
@@ -52,7 +52,7 @@
       <Generate Value="Faster"/>
     </CodeGeneration>
     <Other>
-      <CustomOptions Value="-FUunits -dTraceEventsX -dDebug
+      <CustomOptions Value="-FUunits -dTraceEventsX -dDebugX
 "/>
       <CompilerPath Value="$(CompPath)"/>
     </Other>
diff --git a/examples/gui/widgettest/widgettest.pas b/examples/gui/widgettest/widgettest.pas
index 4c4f4a32..b70b20a4 100644
--- a/examples/gui/widgettest/widgettest.pas
+++ b/examples/gui/widgettest/widgettest.pas
@@ -267,9 +267,9 @@ end;
 
 procedure TMenuForm.AboutMenuClicked(Sender: TObject);
 begin
-  writeln('...About menu clicked from <' + Sender.ClassName + '>');
+  writeln('   About menu clicked from <' + Sender.ClassName + '>');
   if Sender is TMenuItem then
-    writeln('From: ' + TMenuItem(Sender).Text);
+    writeln('   from: ' + TMenuItem(Sender).Text);
 end;
 
 constructor TMenuForm.Create(AOwner: TComponent);
-- 
cgit v1.2.3-70-g09d2