Group editor wouldn't create if there were no groups

This commit is contained in:
mysticbbs 2012-06-30 23:56:07 -04:00
parent f63c272764
commit 9490f24bab
2 changed files with 4 additions and 1 deletions

View File

@ -4232,6 +4232,9 @@
EVERY - Execute each time a menu is display, before it is displayed EVERY - Execute each time a menu is display, before it is displayed
AFTER - Execute after the menu is displayed but before the prompt AFTER - Execute after the menu is displayed but before the prompt
And hopefully soon I can get in the TIMER auto-exec from Mystic 2 which
is by far the most badass of all of them! :)
+ Added new prompt #490 to the themes. This prompt defines the message + Added new prompt #490 to the themes. This prompt defines the message
base header flags which were previously hard coded. Each flag is one base header flags which were previously hard coded. Each flag is one
word separated by a space: word separated by a space:

View File

@ -108,7 +108,7 @@ Begin
Case List.ExitCode of Case List.ExitCode of
'/' : Case GetCommandOption(10, 'I-Insert|D-Delete|C-Copy|P-Paste|') of '/' : Case GetCommandOption(10, 'I-Insert|D-Delete|C-Copy|P-Paste|') of
'I' : If List.Picked > 1 Then Begin 'I' : If List.Picked > 0 Then Begin
GroupFile.RecordInsert (List.Picked); GroupFile.RecordInsert (List.Picked);
Group.Name := 'New Group'; Group.Name := 'New Group';