paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 14:58:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Two corrections when omitting package/module name in element name

Browse Source 
git-svn-id: trunk@31807 -
This commit is contained in:
michael 2011-07-26 18:56:12 +00:00
parent fe55286e6f
commit 090ff678ae
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
doceditor/lazde.lpi
View File

@ -33,7 +33,7 @@
<RunParams>
<local>
<FormatVersion Value="1"/>
<CommandLineParams Value="--element=rtl.system.writeln /home/michael/docs/system.xml"/>
<CommandLineParams Value="--element=system.writeln /home/michael/docs/system.xml"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>

2
doceditor/lazdemsg.pp
View File

@ -222,7 +222,7 @@ ResourceString
SErrNoModuleForElement = 'No module found to insert element "%s"';
//SErrNoNodeForElement = 'No node found for element "%s"';
SErrUnknownDomElement = 'Unknwon DOM element as parent for selected element: "%s"';
SStartNodeNotFound = 'Start element "%d" could not be found';
SStartNodeNotFound = 'Start element "%s" could not be found';
//SSaveFileTitle = 'Enter filename to save to';
//SOpenFileTitle = 'Select file to open';

4
doceditor/pgeditor.pp
View File

@ -280,7 +280,7 @@ begin
// if not found, assume first part is modulename in first package.
if (PE=Nil) then
begin
PE:=FindElementNode(FDocument.DocumentElement,'package',PN);
PE:=FindElementNode(FDocument.DocumentElement,'package','');
N:=ElementName;
end;
if (PE=Nil) then // No package node !
@ -291,7 +291,7 @@ begin
// if not found, assume elementname is element in first module.
if (ME=Nil) then
begin
ME:=FindElementNode(PE,'module',PN);
ME:=FindElementNode(PE,'module','');
N:=ElementName;
end;
if (ME=Nil) then // No module node !