From 0bc9d93106647a44582ec6f55df002664974c44f Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Mon, 24 Sep 2007 06:35:43 +0000
Subject: [PATCH] (Qt): Fixed typos in qtwsmenus

git-svn-id: trunk@12154 -
---
 lcl/interfaces/qt/qtwsmenus.pp | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/lcl/interfaces/qt/qtwsmenus.pp b/lcl/interfaces/qt/qtwsmenus.pp
index de77d76ca7..54249df00a 100644
--- a/lcl/interfaces/qt/qtwsmenus.pp
+++ b/lcl/interfaces/qt/qtwsmenus.pp
@@ -222,7 +222,7 @@ begin
     WriteLn('[TQtWSMenuItem.SetCaption] Caption: ' + AMenuItem.Caption + ' NewCaption: ', ACaption);
   {$endif}
 
-  if not WSCheckMenuItem(AMenuItem, 'SetEnable') then
+  if not WSCheckMenuItem(AMenuItem, 'SetCaption') then
     Exit;
 
   Widget := TQtWidget(AMenuItem.Handle);
@@ -243,7 +243,7 @@ begin
     WriteLn('[TQtWSMenuItem.SetCaption] SetShortCut: ' + AMenuItem.Caption);
   {$endif}
 
-  if not WSCheckMenuItem(AMenuItem, 'SetEnable') then
+  if not WSCheckMenuItem(AMenuItem, 'SetShortCut') then
     Exit;
 
   Widget := TQtWidget(AMenuItem.Handle);
@@ -261,7 +261,7 @@ begin
   {$ifdef VerboseQt}
     WriteLn('[TQtWSMenuItem.SetVisible] SetShortCut: ' + AMenuItem.Caption + ' Visible: ', Visible);
   {$endif}
-  if not WSCheckMenuItem(AMenuItem, 'SetEnable') then
+  if not WSCheckMenuItem(AMenuItem, 'SetVisible') then
     Exit;
     
   TQtMenu(AMenuItem.Handle).setVisible(Visible);
@@ -276,7 +276,7 @@ class function TQtWSMenuItem.SetCheck(const AMenuItem: TMenuItem; const Checked:
 begin
   Result := False;
 
-  if not WSCheckMenuItem(AMenuItem, 'SetEnable') then
+  if not WSCheckMenuItem(AMenuItem, 'SetCheck') then
     Exit;
 
   TQtMenu(AMenuItem.Handle).setChecked(Checked);
@@ -318,7 +318,7 @@ end;
  ------------------------------------------------------------------------------}
 class function TQtWSMenuItem.SetRightJustify(const AMenuItem: TMenuItem; const Justified: boolean): boolean;
 begin
-  if not WSCheckMenuItem(AMenuItem, 'SetEnable') then
+  if not WSCheckMenuItem(AMenuItem, 'SetRightJustify') then
     Exit;
 
   Result := True;