From 0cd454f77ea378c9744c65eeaa64d817ba213998 Mon Sep 17 00:00:00 2001 From: mysticbbs Date: Sat, 18 Feb 2012 02:35:07 -0500 Subject: [PATCH] ToggleAccessFlags, StripSecurity, ReplaceSecurity are now part of the Menu class, where they should have been all along. --- mystic/bbs_menus.pas | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/mystic/bbs_menus.pas b/mystic/bbs_menus.pas index 34d6b46..1a6025f 100644 --- a/mystic/bbs_menus.pas +++ b/mystic/bbs_menus.pas @@ -23,9 +23,12 @@ Type Constructor Create (Var Owner: Pointer); Destructor Destroy; Override; - Function LoadMenu (CheckSec: Boolean; RunCmd: Boolean; Global: Boolean) : Byte; - Procedure ExecuteMenu (FallBack, Global, View: Boolean); - Function ExecuteCommand (Cmd: String; Data: String) : Boolean; {True if menu is to be reloaded} + Function StripSecurity (Str : String) : String; + Function ReplaceSecurity (Str : String) : String; + Procedure ToggleAccessFlags (Data: String; Var Flags: AccessFlagType); + Function LoadMenu (CheckSec: Boolean; RunCmd: Boolean; Global: Boolean) : Byte; + Procedure ExecuteMenu (FallBack, Global, View: Boolean); + Function ExecuteCommand (Cmd: String; Data: String) : Boolean; {True if menu is to be reloaded} End; Implementation @@ -62,14 +65,14 @@ Begin Inherited Destroy; End; -Function StripSecurity (Str : String) : String; +Function TMenuSystem.StripSecurity (Str : String) : String; Begin Delete (Str, Pos('@S', Str), 2); Result := Str; End; -Function ReplaceSecurity (Str : String) : String; +Function TMenuSystem.ReplaceSecurity (Str : String) : String; Var A : Byte; Begin @@ -83,7 +86,7 @@ Begin Result := Str; End; -Procedure ToggleAccessFlags (Data: String; Var Flags: AccessFlagType); +Procedure TMenuSystem.ToggleAccessFlags (Data: String; Var Flags: AccessFlagType); Var A : Byte; Begin