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
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
base header flags which were previously hard coded. Each flag is one
word separated by a space:

View File

@ -108,7 +108,7 @@ Begin
Case List.ExitCode 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);
Group.Name := 'New Group';