Group editor wouldn't create if there were no groups
This commit is contained in:
parent
f63c272764
commit
9490f24bab
|
@ -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:
|
||||||
|
|
|
@ -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';
|
||||||
|
|
Loading…
Reference in New Issue