forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

rename as Dexed, "D extended editor"

This commit is contained in:
Basile Burg 2018-10-20 13:28:15 +02:00
parent 58853ec3c8
commit 810996bcc8
64 changed files with 516 additions and 580 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
README.md
View File

@ -1,6 +1,6 @@
Coedit is an IDE for the [D programming language](https://dlang.org), its compilers, tools and libraries. _D Extended EDitor_ is an IDE for the [D programming language](https://dlang.org), its compilers, tools and libraries.
[![](https://bbasile.github.io/Coedit/img/coedit_kde4_thumb.png)](https://bbasile.github.io/Coedit/img/coedit_kde4.png) [![](https://bbasile.github.io/dexed/img/coedit_kde4_thumb.png)](https://bbasile.github.io/dexed/img/coedit_kde4.png)
**Overview** **Overview**
--- ---
@ -17,10 +17,10 @@ Coedit is an IDE for the [D programming language](https://dlang.org), its compil
- Debugging with a GDB gui. (**linux only**) - Debugging with a GDB gui. (**linux only**)
- Integrated terminal emulator. (**linux only**) - Integrated terminal emulator. (**linux only**)
- Tree of symbols in the current module. - Tree of symbols in the current module.
- static library manager that supports auto-registration from local DUB projects, from online DUB packages or from Coedit custom project format. - static library manager that supports auto-registration from local DUB projects, from online DUB packages or from dexed custom project format.
- todo list based on the _todo comments_ located in a project or in the current source. - todo list based on the _todo comments_ located in a project or in the current source.
- user-defined tools powered by a string interpolation system. - user-defined tools powered by a string interpolation system.
- integrated file browser, dfmt interface, search & replace, [discover more in the manual](https://bbasile.github.io/Coedit/). - integrated file browser, dfmt interface, search & replace, [discover more in the manual](https://bbasile.github.io/dexed/).
**Project information** **Project information**
--- ---
@ -34,19 +34,19 @@ Coedit is an IDE for the [D programming language](https://dlang.org), its compil
Download the zipped binaries or the zip that contains the setup program for you platform: Download the zipped binaries or the zip that contains the setup program for you platform:
- :package: [setup program for Linux 64 bit](https://github.com/BBasile/Coedit/releases/download/v3.6.20/coedit.3.6.20.linux64.setup.zip) - :package: [setup program for Linux 64 bit](https://github.com/BBasile/dexed/releases/download/v3.6.20/coedit.3.6.20.linux64.setup.zip)
- :package: [binaries for Linux 64 bit](https://github.com/BBasile/Coedit/releases/download/v3.6.20/coedit.3.6.20.linux64.zip) - :package: [binaries for Linux 64 bit](https://github.com/BBasile/dexed/releases/download/v3.6.20/coedit.3.6.20.linux64.zip)
- :package: [setup program for Windows 32/64 bit](https://github.com/BBasile/Coedit/releases/download/v3.6.20/coedit.3.6.20.win32.setup.zip) - :package: [setup program for Windows 32/64 bit](https://github.com/BBasile/dexed/releases/download/v3.6.20/coedit.3.6.20.win32.setup.zip)
- :package: [binaries for Windows 32/64 bit](https://github.com/BBasile/Coedit/releases/download/v3.6.20/coedit.3.6.20.win32.zip) - :package: [binaries for Windows 32/64 bit](https://github.com/BBasile/dexed/releases/download/v3.6.20/coedit.3.6.20.win32.zip)
- :package: [rpm for Linux 64 bit](https://github.com/BBasile/Coedit/releases/download/v3.6.20/coedit-3.6.20-0.x86_64.rpm) - :package: [rpm for Linux 64 bit](https://github.com/BBasile/dexed/releases/download/v3.6.20/coedit-3.6.20-0.x86_64.rpm)
- :package: [deb for Linux 64 bit](https://github.com/BBasile/Coedit/releases/download/v3.6.20/coedit-3.6.20.amd64.deb) - :package: [deb for Linux 64 bit](https://github.com/BBasile/dexed/releases/download/v3.6.20/coedit-3.6.20.amd64.deb)
The _zip_ archives allow to move freely the files. The _zip_ archives allow to move freely the files.
The _setup.zip_ archives contains a command line program that installs to predefined locations so that the software can be run without additional intervention. The _setup.zip_ archives contains a command line program that installs to predefined locations so that the software can be run without additional intervention.
The _deb_ and the _rpm_ packages are for those who prefer the official setup system for their linux systems. The _deb_ and the _rpm_ packages are for those who prefer the official setup system for their linux systems.
Linux 32 bits version must be [built manually](https://bbasile.github.io/Coedit/build.html). Linux 32 bits version must be [built manually](https://bbasile.github.io/dexed/build.html).
[**See this page**](https://bbasile.github.io/Coedit/setup.html) for more information about the setup. [**See this page**](https://bbasile.github.io/dexed/setup.html) for more information about the setup.
Download 3rd part packages, maintained by volunteers, but the available versions are not guaranteed to be the latest: Download 3rd part packages, maintained by volunteers, but the available versions are not guaranteed to be the latest:
@ -56,4 +56,4 @@ Download 3rd part packages, maintained by volunteers, but the available versions
**Build** **Build**
--- ---
Follow the procedure described [**here**](https://bbasile.github.io/Coedit/build.html). Follow the procedure described [**here**](https://bbasile.github.io/dexed/build.html).

1
cesetup/nux32/readme.md
View File

@ -1 +0,0 @@
to fill with the files the installer will extract

1
cesetup/nux64/readme.md
View File

@ -1 +0,0 @@
to fill with the files the installer will extract

1
cesetup/win32/readme.md
View File

@ -1 +0,0 @@
to fill with the files the installer will extract

12
cesetup/zip-nux32.sh
View File

@ -1,12 +0,0 @@
ver=`cat version.txt`
fld=coedit-x86
cd nux32
mkdir $fld/
cp * $fld/
zip -9 \
../output/coedit.${ver:1:100}.linux32.zip \
$fld/dcd.license.txt $fld/coedit.license.txt \
$fld/coedit $fld/dastworx \
$fld/coedit.ico $fld/coedit.png \
$fld/dcd-server $fld/dcd-client $fld/dscanner
rm -rf coedit-x86

12
cesetup/zip-nux64.sh
View File

@ -1,12 +0,0 @@
ver=`cat version.txt`
fld=coedit-x86_64
cd nux64
mkdir $fld/
cp * $fld/
zip -9 \
../output/coedit.${ver:1:100}.linux64.zip \
$fld/dcd.license.txt $fld/coedit.license.txt \
$fld/coedit $fld/dastworx \
$fld/coedit.ico $fld/coedit.png \
$fld/dcd-server $fld/dcd-client $fld/dscanner
rm -rf coedit-x86_64

0
dastworx/dastworx.ce → dastworx/dastworx.dxp
View File

0
dastworx/dastworx.cegrp → dastworx/dastworx.grp
View File

6
dastworx/readme.md
View File

@ -1,15 +1,15 @@
## Dastworx ## Dastworx
_D AST works_ is a tool that processes the AST of a D module to extract several information used by Coedit. _D AST works_ is a tool that processes the AST of a D module to extract several information used by dexed.
It's notably used by the _symbol list_ and the _todo list_ widgets. It's notably used by the _symbol list_ and the _todo list_ widgets.
## Build ## Build
If Coedit is build manually you'll certainly have to build _dastworx_ too. If dexed is build manually you certainly have to build _dastworx_ too.
Two options exist. Two options exist.
#### Using Coedit & the submodules #### Using dexed & the submodules
- If you've cloned this repository, make sure that the submodule are also here with `git submodule update --init`. - If you've cloned this repository, make sure that the submodule are also here with `git submodule update --init`.
- In Coedit open the project `dastworx.ce`. - In Coedit open the project `dastworx.ce`.

65
lazproj/cedast_loader.lpi
View File

@ -1,65 +0,0 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<PathDelim Value="\"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="cedast_loader"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
</General>
<i18n>
<EnableI18N LFM="False"/>
</i18n>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
</local>
</RunParams>
<Units Count="1">
<Unit0>
<Filename Value="cedast_loader.pas"/>
<IsPartOfProject Value="True"/>
</Unit0>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="cedast_loader"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">
<Item1>
<Name Value="EAbort"/>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item3>
</Exceptions>
</Debugging>
</CONFIG>

0
lazproj/coedit.ico → lazproj/dexed.ico
View File

Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 134 KiB

After

Width:  |  Height:  |  Size: 134 KiB

108
lazproj/coedit.lpi → lazproj/dexed.lpi
View File

@ -6,7 +6,7 @@
<General> <General>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<Title Value="coedit"/> <Title Value="dexed"/>
<ResourceType Value="res"/> <ResourceType Value="res"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
<XPManifest> <XPManifest>
@ -344,55 +344,55 @@
<Resource_327 FileName="..\icons\window\watch_window.png" Type="RCDATA" ResourceName="WATCH_WINDOW"/> <Resource_327 FileName="..\icons\window\watch_window.png" Type="RCDATA" ResourceName="WATCH_WINDOW"/>
<Resource_328 FileName="..\icons\window\watch_window24.png" Type="RCDATA" ResourceName="WATCH_WINDOW24"/> <Resource_328 FileName="..\icons\window\watch_window24.png" Type="RCDATA" ResourceName="WATCH_WINDOW24"/>
<Resource_329 FileName="..\icons\window\watch_window32.png" Type="RCDATA" ResourceName="WATCH_WINDOW32"/> <Resource_329 FileName="..\icons\window\watch_window32.png" Type="RCDATA" ResourceName="WATCH_WINDOW32"/>
<Resource_330 FileName="..\cesetup\version.txt" Type="RCDATA" ResourceName="VERSION"/> <Resource_330 FileName="../icons/other/evaluate_formula.png" Type="RCDATA" ResourceName="EVALUATE_FORMULA"/>
<Resource_331 FileName="../icons/other/evaluate_formula.png" Type="RCDATA" ResourceName="EVALUATE_FORMULA"/> <Resource_331 FileName="../icons/other/evaluate_formula24.png" Type="RCDATA" ResourceName="EVALUATE_FORMULA24"/>
<Resource_332 FileName="../icons/other/evaluate_formula24.png" Type="RCDATA" ResourceName="EVALUATE_FORMULA24"/> <Resource_332 FileName="../icons/other/evaluate_formula32.png" Type="RCDATA" ResourceName="EVALUATE_FORMULA32"/>
<Resource_333 FileName="../icons/other/evaluate_formula32.png" Type="RCDATA" ResourceName="EVALUATE_FORMULA32"/> <Resource_333 FileName="../icons/folder/folders_explorer.png" Type="RCDATA" ResourceName="FOLDERS_EXPLORER"/>
<Resource_334 FileName="../icons/folder/folders_explorer.png" Type="RCDATA" ResourceName="FOLDERS_EXPLORER"/> <Resource_334 FileName="../icons/folder/folders_explorer24.png" Type="RCDATA" ResourceName="FOLDERS_EXPLORER24"/>
<Resource_335 FileName="../icons/folder/folders_explorer24.png" Type="RCDATA" ResourceName="FOLDERS_EXPLORER24"/> <Resource_335 FileName="../icons/folder/folders_explorer32.png" Type="RCDATA" ResourceName="FOLDERS_EXPLORER32"/>
<Resource_336 FileName="../icons/folder/folders_explorer32.png" Type="RCDATA" ResourceName="FOLDERS_EXPLORER32"/> <Resource_336 FileName="../icons/folder/folder_vertical_document.png" Type="RCDATA" ResourceName="FOLDER_VERTICAL_DOCUMENT"/>
<Resource_337 FileName="../icons/folder/folder_vertical_document.png" Type="RCDATA" ResourceName="FOLDER_VERTICAL_DOCUMENT"/> <Resource_337 FileName="../icons/folder/folder_vertical_document24.png" Type="RCDATA" ResourceName="FOLDER_VERTICAL_DOCUMENT24"/>
<Resource_338 FileName="../icons/folder/folder_vertical_document24.png" Type="RCDATA" ResourceName="FOLDER_VERTICAL_DOCUMENT24"/> <Resource_338 FileName="../icons/folder/folder_vertical_document32.png" Type="RCDATA" ResourceName="FOLDER_VERTICAL_DOCUMENT32"/>
<Resource_339 FileName="../icons/folder/folder_vertical_document32.png" Type="RCDATA" ResourceName="FOLDER_VERTICAL_DOCUMENT32"/> <Resource_339 FileName="../icons/other/error_checking.png" Type="RCDATA" ResourceName="ERROR_CHECKING"/>
<Resource_340 FileName="../icons/other/error_checking.png" Type="RCDATA" ResourceName="ERROR_CHECKING"/> <Resource_340 FileName="../icons/other/error_checking24.png" Type="RCDATA" ResourceName="ERROR_CHECKING24"/>
<Resource_341 FileName="../icons/other/error_checking24.png" Type="RCDATA" ResourceName="ERROR_CHECKING24"/> <Resource_341 FileName="../icons/other/error_checking32.png" Type="RCDATA" ResourceName="ERROR_CHECKING32"/>
<Resource_342 FileName="../icons/other/error_checking32.png" Type="RCDATA" ResourceName="ERROR_CHECKING32"/> <Resource_342 FileName="../icons/file/script_lightning.png" Type="RCDATA" ResourceName="SCRIPT_LIGHTNING"/>
<Resource_343 FileName="../icons/file/script_lightning.png" Type="RCDATA" ResourceName="SCRIPT_LIGHTNING"/> <Resource_343 FileName="../icons/file/script_lightning24.png" Type="RCDATA" ResourceName="SCRIPT_LIGHTNING24"/>
<Resource_344 FileName="../icons/file/script_lightning24.png" Type="RCDATA" ResourceName="SCRIPT_LIGHTNING24"/> <Resource_344 FileName="../icons/file/script_lightning32.png" Type="RCDATA" ResourceName="SCRIPT_LIGHTNING32"/>
<Resource_345 FileName="../icons/file/script_lightning32.png" Type="RCDATA" ResourceName="SCRIPT_LIGHTNING32"/> <Resource_345 FileName="../icons/cog/system_run.png" Type="RCDATA" ResourceName="SYSTEM_RUN"/>
<Resource_346 FileName="../icons/cog/system_run.png" Type="RCDATA" ResourceName="SYSTEM_RUN"/> <Resource_346 FileName="../icons/cog/system_run24.png" Type="RCDATA" ResourceName="SYSTEM_RUN24"/>
<Resource_347 FileName="../icons/cog/system_run24.png" Type="RCDATA" ResourceName="SYSTEM_RUN24"/> <Resource_347 FileName="../icons/cog/system_run32.png" Type="RCDATA" ResourceName="SYSTEM_RUN32"/>
<Resource_348 FileName="../icons/cog/system_run32.png" Type="RCDATA" ResourceName="SYSTEM_RUN32"/> <Resource_348 FileName="../icons/other/cross.png" Type="RCDATA" ResourceName="CROSS"/>
<Resource_349 FileName="../icons/other/cross.png" Type="RCDATA" ResourceName="CROSS"/> <Resource_349 FileName="../icons/other/cross24.png" Type="RCDATA" ResourceName="CROSS24"/>
<Resource_350 FileName="../icons/other/cross24.png" Type="RCDATA" ResourceName="CROSS24"/> <Resource_350 FileName="../icons/other/cross32.png" Type="RCDATA" ResourceName="CROSS32"/>
<Resource_351 FileName="../icons/other/cross32.png" Type="RCDATA" ResourceName="CROSS32"/> <Resource_351 FileName="../icons/other/break_reached32.png" Type="RCDATA" ResourceName="BREAK_REACHED32"/>
<Resource_352 FileName="../icons/other/break_reached32.png" Type="RCDATA" ResourceName="BREAK_REACHED32"/> <Resource_352 FileName="../icons/other/break_reached24.png" Type="RCDATA" ResourceName="BREAK_REACHED24"/>
<Resource_353 FileName="../icons/other/break_reached24.png" Type="RCDATA" ResourceName="BREAK_REACHED24"/> <Resource_353 FileName="../icons/other/break_set32.png" Type="RCDATA" ResourceName="BREAK_SET32"/>
<Resource_354 FileName="../icons/other/break_set32.png" Type="RCDATA" ResourceName="BREAK_SET32"/> <Resource_354 FileName="../icons/other/break_set24.png" Type="RCDATA" ResourceName="BREAK_SET24"/>
<Resource_355 FileName="../icons/other/break_set24.png" Type="RCDATA" ResourceName="BREAK_SET24"/> <Resource_355 FileName="../icons/other/indent_more.png" Type="RCDATA" ResourceName="INDENT_MORE"/>
<Resource_356 FileName="../icons/other/indent_more.png" Type="RCDATA" ResourceName="INDENT_MORE"/> <Resource_356 FileName="../icons/other/indent_more24.png" Type="RCDATA" ResourceName="INDENT_MORE24"/>
<Resource_357 FileName="../icons/other/indent_more24.png" Type="RCDATA" ResourceName="INDENT_MORE24"/> <Resource_357 FileName="../icons/other/indent_more32.png" Type="RCDATA" ResourceName="INDENT_MORE32"/>
<Resource_358 FileName="../icons/other/indent_more32.png" Type="RCDATA" ResourceName="INDENT_MORE32"/> <Resource_358 FileName="../icons/other/indent_less32.png" Type="RCDATA" ResourceName="INDENT_LESS32"/>
<Resource_359 FileName="../icons/other/indent_less32.png" Type="RCDATA" ResourceName="INDENT_LESS32"/> <Resource_359 FileName="../icons/other/indent_less24.png" Type="RCDATA" ResourceName="INDENT_LESS24"/>
<Resource_360 FileName="../icons/other/indent_less24.png" Type="RCDATA" ResourceName="INDENT_LESS24"/> <Resource_360 FileName="../icons/other/indent_less.png" Type="RCDATA" ResourceName="INDENT_LESS"/>
<Resource_361 FileName="../icons/other/indent_less.png" Type="RCDATA" ResourceName="INDENT_LESS"/> <Resource_361 FileName="../icons/book/book_grey32.png" Type="RCDATA" ResourceName="BOOK_GREY32"/>
<Resource_362 FileName="../icons/book/book_grey32.png" Type="RCDATA" ResourceName="BOOK_GREY32"/> <Resource_362 FileName="../icons/book/book_grey24.png" Type="RCDATA" ResourceName="BOOK_GREY24"/>
<Resource_363 FileName="../icons/book/book_grey24.png" Type="RCDATA" ResourceName="BOOK_GREY24"/> <Resource_363 FileName="../icons/other/shortcuts.png" Type="RCDATA" ResourceName="SHORTCUTS"/>
<Resource_364 FileName="../icons/other/shortcuts.png" Type="RCDATA" ResourceName="SHORTCUTS"/> <Resource_364 FileName="../icons/other/shortcuts24.png" Type="RCDATA" ResourceName="SHORTCUTS24"/>
<Resource_365 FileName="../icons/other/shortcuts24.png" Type="RCDATA" ResourceName="SHORTCUTS24"/> <Resource_365 FileName="../icons/other/shortcuts32.png" Type="RCDATA" ResourceName="SHORTCUTS32"/>
<Resource_366 FileName="../icons/other/shortcuts32.png" Type="RCDATA" ResourceName="SHORTCUTS32"/> <Resource_366 FileName="../icons/other/html_go.png" Type="RCDATA" ResourceName="HTML_GO"/>
<Resource_367 FileName="../icons/other/html_go.png" Type="RCDATA" ResourceName="HTML_GO"/> <Resource_367 FileName="../icons/other/html_go24.png" Type="RCDATA" ResourceName="HTML_GO24"/>
<Resource_368 FileName="../icons/other/html_go24.png" Type="RCDATA" ResourceName="HTML_GO24"/> <Resource_368 FileName="../icons/other/html_go32.png" Type="RCDATA" ResourceName="HTML_GO32"/>
<Resource_369 FileName="../icons/other/html_go32.png" Type="RCDATA" ResourceName="HTML_GO32"/> <Resource_369 FileName="../icons/folder/move_to_folder.png" Type="RCDATA" ResourceName="MOVE_TO_FOLDER"/>
<Resource_370 FileName="../icons/folder/move_to_folder.png" Type="RCDATA" ResourceName="MOVE_TO_FOLDER"/> <Resource_370 FileName="../icons/folder/move_to_folder24.png" Type="RCDATA" ResourceName="MOVE_TO_FOLDER24"/>
<Resource_371 FileName="../icons/folder/move_to_folder24.png" Type="RCDATA" ResourceName="MOVE_TO_FOLDER24"/> <Resource_371 FileName="../icons/folder/move_to_folder32.png" Type="RCDATA" ResourceName="MOVE_TO_FOLDER32"/>
<Resource_372 FileName="../icons/folder/move_to_folder32.png" Type="RCDATA" ResourceName="MOVE_TO_FOLDER32"/> <Resource_372 FileName="../icons/other/check_boxes_series.png" Type="RCDATA" ResourceName="CHECK_BOXES_SERIES"/>
<Resource_373 FileName="../icons/other/check_boxes_series.png" Type="RCDATA" ResourceName="CHECK_BOXES_SERIES"/> <Resource_373 FileName="../icons/other/check_boxes_series24.png" Type="RCDATA" ResourceName="CHECK_BOXES_SERIES24"/>
<Resource_374 FileName="../icons/other/check_boxes_series24.png" Type="RCDATA" ResourceName="CHECK_BOXES_SERIES24"/> <Resource_374 FileName="../icons/other/check_boxes_series32.png" Type="RCDATA" ResourceName="CHECK_BOXES_SERIES32"/>
<Resource_375 FileName="../icons/other/check_boxes_series32.png" Type="RCDATA" ResourceName="CHECK_BOXES_SERIES32"/> <Resource_375 FileName="../icons/other/git.png" Type="RCDATA" ResourceName="GIT"/>
<Resource_376 FileName="../icons/other/git.png" Type="RCDATA" ResourceName="GIT"/> <Resource_376 FileName="../icons/other/git24.png" Type="RCDATA" ResourceName="GIT24"/>
<Resource_377 FileName="../icons/other/git24.png" Type="RCDATA" ResourceName="GIT24"/> <Resource_377 FileName="../icons/other/git32.png" Type="RCDATA" ResourceName="GIT32"/>
<Resource_378 FileName="../icons/other/git32.png" Type="RCDATA" ResourceName="GIT32"/> <Resource_378 FileName="../setup/version.txt" Type="RCDATA" ResourceName="VERSION"/>
</Resources> </Resources>
</General> </General>
<i18n> <i18n>
@ -405,7 +405,7 @@
<Version Value="11"/> <Version Value="11"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Target> <Target>
<Filename Value="..\bin\coedit"/> <Filename Value="..\bin\dexed"/>
</Target> </Target>
<SearchPaths> <SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/> <IncludeFiles Value="$(ProjOutDir)"/>
@ -451,7 +451,7 @@
<Version Value="11"/> <Version Value="11"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Target> <Target>
<Filename Value="..\bin\coedit"/> <Filename Value="..\bin\dexed"/>
</Target> </Target>
<SearchPaths> <SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/> <IncludeFiles Value="$(ProjOutDir)"/>
@ -527,7 +527,7 @@
</RequiredPackages> </RequiredPackages>
<Units Count="60"> <Units Count="60">
<Unit0> <Unit0>
<Filename Value="coedit.lpr"/> <Filename Value="dexed.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
@ -847,7 +847,7 @@
<Version Value="11"/> <Version Value="11"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Target> <Target>
<Filename Value="..\bin\coedit"/> <Filename Value="..\bin\dexed"/>
</Target> </Target>
<SearchPaths> <SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/> <IncludeFiles Value="$(ProjOutDir)"/>

2
lazproj/coedit.lpr → lazproj/dexed.lpr
View File

@ -1,4 +1,4 @@
program coedit; program dexed;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}

0
cesetup/.gitignore → setup/.gitignore vendored
View File

18
cesetup/deb.sh → setup/deb.sh
View File

@ -10,7 +10,7 @@ else
arch="i386" arch="i386"
fi fi
name=coedit-$ver.$arch name=dexed-$ver.$arch
basdir=$HOME/$name/ basdir=$HOME/$name/
cfgdir=$basdir/DEBIAN cfgdir=$basdir/DEBIAN
@ -24,23 +24,23 @@ mkdir -p $bindir
mkdir -p $pixdir mkdir -p $pixdir
mkdir -p $shcdir mkdir -p $shcdir
cp nux64/coedit $bindir cp nux64/dexed $bindir
cp nux64/dastworx $bindir cp nux64/dastworx $bindir
cp nux64/coedit.png $pixdir cp nux64/dexed.png $pixdir
echo "[Desktop Entry] echo "[Desktop Entry]
Categories=Application;IDE;Development; Categories=Application;IDE;Development;
Exec=coedit %f Exec=dexed %f
GenericName=coedit GenericName=dexed
Icon=coedit Icon=dexed
Keywords=editor;Dlang;IDE;dmd; Keywords=editor;Dlang;IDE;dmd;
Name=coedit Name=dexed
StartupNotify=true StartupNotify=true
Terminal=false Terminal=false
Type=Application" > $shcdir/coedit.desktop Type=Application" > $shcdir/dexed.desktop
cd $cfgdir cd $cfgdir
echo "Package: coedit echo "Package: dexed
Version: $ver Version: $ver
Section: devel Section: devel
Priority: optional Priority: optional

8
cesetup/readme.md → setup/readme.md
View File

@ -1,10 +1,10 @@
This folder contains the files necessary to make a Coedit release. This folder contains the files necessary to make a dexed release.
The process is semi-automatic and achieved by compiling a project in Coedit itself. The process is semi-automatic and achieved by compiling a project in dexed itself.
Coedit setup program dexed setup program
=== ===
This coedit project (_cesetup.coedit_) creates the coedit setup program. This dexed project (_cesetup.dexed_) creates the dexed setup program.
The project contains 3 configurations named _win32_, _nux32_, _nux64. The project contains 3 configurations named _win32_, _nux32_, _nux64.
Each takes the content of the matching sub-folder and puts it in the output folder, as an extractor program, Each takes the content of the matching sub-folder and puts it in the output folder, as an extractor program,
at compile time (using the `import(file)` expression). at compile time (using the `import(file)` expression).

32
cesetup/rpm.sh → setup/rpm.sh
View File

@ -3,7 +3,7 @@ maj=${ver:0:1}
ver=${ver:1:100} ver=${ver:1:100}
dte=$(LC_TIME='en_EN.UTF-8' date -u +"%a %b %d %Y") dte=$(LC_TIME='en_EN.UTF-8' date -u +"%a %b %d %Y")
arch=`uname -m` arch=`uname -m`
specname=coedit-$arch.spec specname=dexed-$arch.spec
cp_trgt=$(pwd)/output cp_trgt=$(pwd)/output
semver_regex() { semver_regex() {
@ -32,7 +32,7 @@ if [ $lbl == '_' ]; then
lbl='0' lbl='0'
fi fi
name_and_ver=coedit-$maj.$min.$pch-$lbl.$arch name_and_ver=dexed-$maj.$min.$pch-$lbl.$arch
buildroot=$HOME/rpmbuild/BUILDROOT/$name_and_ver buildroot=$HOME/rpmbuild/BUILDROOT/$name_and_ver
bindir=$buildroot/usr/bin bindir=$buildroot/usr/bin
pixdir=$buildroot/usr/share/pixmaps pixdir=$buildroot/usr/share/pixmaps
@ -43,42 +43,42 @@ mkdir -p $bindir
mkdir -p $pixdir mkdir -p $pixdir
mkdir -p $shcdir mkdir -p $shcdir
cp nux64/coedit $bindir cp nux64/dexed $bindir
cp nux64/dastworx $bindir cp nux64/dastworx $bindir
cp nux64/coedit.png $pixdir cp nux64/dexed.png $pixdir
echo "[Desktop Entry] echo "[Desktop Entry]
Categories=Application;IDE;Development; Categories=Application;IDE;Development;
Exec=coedit %f Exec=dexed %f
GenericName=coedit GenericName=dexed
Icon=coedit Icon=dexed
Keywords=editor;Dlang;IDE;dmd; Keywords=editor;Dlang;IDE;dmd;
Name=coedit Name=dexed
StartupNotify=true StartupNotify=true
Terminal=false Terminal=false
Type=Application" > $shcdir/coedit.desktop Type=Application" > $shcdir/dexed.desktop
cd $HOME/rpmbuild/SPECS cd $HOME/rpmbuild/SPECS
echo "Name: coedit echo "Name: dexed
Version: $maj.$min.$pch Version: $maj.$min.$pch
Release: $lbl Release: $lbl
Summary: IDE for the D programming language Summary: IDE for the D programming language
License: Boost License: Boost
URL: www.github.com/BBasile/Coedit URL: www.github.com/BBasile/dexed
Requires: gtk2, glibc, cairo, libX11, vte Requires: gtk2, glibc, cairo, libX11, vte
%description %description
Coedit is an IDE for the DMD D compiler. Dexed is an IDE for the DMD D compiler.
%files %files
/usr/bin/dastworx /usr/bin/dastworx
/usr/bin/coedit /usr/bin/dexed
/usr/share/applications/coedit.desktop /usr/share/applications/dexed.desktop
/usr/share/pixmaps/coedit.png /usr/share/pixmaps/dexed.png
%changelog %changelog
* $dte Basile Burg b2.temp@gmx.com * $dte Basile Burg b2.temp@gmx.com
- see https://github.com/BBasile/Coedit/releases/tag/$ver - see https://github.com/BBasile/dexed/releases/tag/$ver
">$specname ">$specname
rpmbuild -ba $specname rpmbuild -ba $specname

24
cesetup/cesetup.d → setup/setup.d
View File

@ -34,11 +34,11 @@ struct Resource
immutable Resource[] ceResources = immutable Resource[] ceResources =
[ [
Resource(cast(ImpType) import("coedit" ~ exeExt), "coedit" ~ exeExt, Kind.exe), Resource(cast(ImpType) import("dexed" ~ exeExt), "dexed" ~ exeExt, Kind.exe),
Resource(cast(ImpType) import("dastworx" ~ exeExt), "dastworx" ~ exeExt, Kind.exe), Resource(cast(ImpType) import("dastworx" ~ exeExt), "dastworx" ~ exeExt, Kind.exe),
Resource(cast(ImpType) import("coedit.ico"), "coedit.ico", Kind.dat), Resource(cast(ImpType) import("dexed.ico"), "dexed.ico", Kind.dat),
Resource(cast(ImpType) import("coedit.png"), "coedit.png", Kind.dat), Resource(cast(ImpType) import("dexed.png"), "dexed.png", Kind.dat),
Resource(cast(ImpType) import("coedit.license.txt"), "coedit.license.txt", Kind.doc) Resource(cast(ImpType) import("dexed.license.txt"), "dexed.license.txt", Kind.doc)
]; ];
immutable Resource[] thirdPartBinaries = immutable Resource[] thirdPartBinaries =
@ -233,14 +233,14 @@ void main(string[] args)
// check that uninstall is executed as install (sudo or not) // check that uninstall is executed as install (sudo or not)
version(linux) version(linux)
{ {
if (!asSu && exists("/usr/bin/coedit")) if (!asSu && exists("/usr/bin/dexed"))
{ {
Formater.separate; Formater.separate;
Formater.justify!'L'("warning, CE seems to be installed with sudo"); Formater.justify!'L'("warning, CE seems to be installed with sudo");
Formater.justify!'L'("but the uninstaller is not launched with sudo."); Formater.justify!'L'("but the uninstaller is not launched with sudo.");
Formater.separate; Formater.separate;
} }
else if (asSu && exists("/home/" ~ environment.get("USER") ~ "/bin/coedit")) else if (asSu && exists("/home/" ~ environment.get("USER") ~ "/bin/dexed"))
{ {
Formater.separate; Formater.separate;
Formater.justify!'L'("warning, CE seems not to be installed with sudo"); Formater.justify!'L'("warning, CE seems not to be installed with sudo");
@ -374,7 +374,7 @@ void postInstall()
char[MAX_PATH] _desktopFolder; char[MAX_PATH] _desktopFolder;
SHGetFolderPathA(null, CSIDL_DESKTOPDIRECTORY, null, 0, _desktopFolder.ptr); SHGetFolderPathA(null, CSIDL_DESKTOPDIRECTORY, null, 0, _desktopFolder.ptr);
char[] desktopFolder = _desktopFolder.ptr.fromStringz(); char[] desktopFolder = _desktopFolder.ptr.fromStringz();
string target = exePath ~ "coedit.exe"; string target = exePath ~ "dexed.exe";
string wdir = exePath ~ ""; string wdir = exePath ~ "";
const(wchar)* linkPath = buildNormalizedPath(desktopFolder, "Coedit.lnk").toUTF16z(); const(wchar)* linkPath = buildNormalizedPath(desktopFolder, "Coedit.lnk").toUTF16z();
@ -392,12 +392,12 @@ void postInstall()
else version(linux) else version(linux)
{ {
mkdirRecurse(shortCutPath); mkdirRecurse(shortCutPath);
File f = File(shortCutPath ~ "coedit.desktop", "w"); File f = File(shortCutPath ~ "dexed.desktop", "w");
f.writeln("[Desktop Entry]"); f.writeln("[Desktop Entry]");
f.writeln("Name=coedit"); f.writeln("Name=dexed");
f.writeln("Path=" ~ exePath); f.writeln("Path=" ~ exePath);
f.writeln("Exec=" ~ exePath ~ "coedit %f"); f.writeln("Exec=" ~ exePath ~ "dexed %f");
f.writeln("Icon=" ~ datPath ~ "coedit.png"); f.writeln("Icon=" ~ datPath ~ "dexed.png");
f.writeln("Type=Application"); f.writeln("Type=Application");
f.writeln("Categories=Application;IDE;Development;"); f.writeln("Categories=Application;IDE;Development;");
f.writeln("Keywords=editor;Dlang;IDE;dmd;"); f.writeln("Keywords=editor;Dlang;IDE;dmd;");
@ -416,7 +416,7 @@ void postUninstall()
} }
else version(linux) else version(linux)
{ {
tryRemove(shortCutPath ~ "coedit.desktop"); tryRemove(shortCutPath ~ "dexed.desktop");
} }
} }

8
cesetup/cesetup.coedit → setup/setup.dxp
View File

@ -7,7 +7,7 @@ object CurrentProject: TCENativeProject
outputOptions.boundsCheck = offAlways outputOptions.boundsCheck = offAlways
outputOptions.optimizations = True outputOptions.optimizations = True
outputOptions.release = True outputOptions.release = True
pathsOptions.outputFilename = 'output/coedit.<CPV>.win32.setup' pathsOptions.outputFilename = 'output/dexed.<CPV>.win32.setup'
pathsOptions.importStringPaths.Strings = ( pathsOptions.importStringPaths.Strings = (
'win32/' 'win32/'
'<CPP>' '<CPP>'
@ -35,7 +35,7 @@ object CurrentProject: TCENativeProject
outputOptions.boundsCheck = offAlways outputOptions.boundsCheck = offAlways
outputOptions.optimizations = True outputOptions.optimizations = True
outputOptions.release = True outputOptions.release = True
pathsOptions.outputFilename = 'output/coedit.<CPV>.linux32.setup' pathsOptions.outputFilename = 'output/dexed.<CPV>.linux32.setup'
pathsOptions.importStringPaths.Strings = ( pathsOptions.importStringPaths.Strings = (
'nux32/' 'nux32/'
'<CPP>' '<CPP>'
@ -60,7 +60,7 @@ object CurrentProject: TCENativeProject
outputOptions.boundsCheck = offAlways outputOptions.boundsCheck = offAlways
outputOptions.optimizations = True outputOptions.optimizations = True
outputOptions.release = True outputOptions.release = True
pathsOptions.outputFilename = 'output/coedit.<CPV>.linux64.setup' pathsOptions.outputFilename = 'output/dexed.<CPV>.linux64.setup'
pathsOptions.importStringPaths.Strings = ( pathsOptions.importStringPaths.Strings = (
'nux64/' 'nux64/'
'<CPP>' '<CPP>'
@ -81,7 +81,7 @@ object CurrentProject: TCENativeProject
runOptions.options = [poUsePipes] runOptions.options = [poUsePipes]
end> end>
Sources.Strings = ( Sources.Strings = (
'cesetup.d' 'setup.d'
) )
ConfigurationIndex = 2 ConfigurationIndex = 2
version = '3.6.20' version = '3.6.20'

0
cesetup/setupzip-nux-noarch.sh → setup/setupzip-nux-noarch.sh
View File

0
cesetup/setupzip-win32.bat → setup/setupzip-win32.bat
View File

0
cesetup/version.txt → setup/version.txt
View File

12
setup/zip-nux32.sh Normal file
View File

@ -0,0 +1,12 @@
ver=`cat version.txt`
fld=dexed-x86
cd nux32
mkdir $fld/
cp * $fld/
zip -9 \
../output/dexed.${ver:1:100}.linux32.zip \
$fld/dcd.license.txt $fld/dexed.license.txt \
$fld/dexed $fld/dastworx \
$fld/dexed.ico $fld/dexed.png \
$fld/dcd-server $fld/dcd-client $fld/dscanner
rm -rf dexed-x86

12
setup/zip-nux64.sh Normal file
View File

@ -0,0 +1,12 @@
ver=`cat version.txt`
fld=dexed-x86_64
cd nux64
mkdir $fld/
cp * $fld/
zip -9 \
../output/dexed.${ver:1:100}.linux64.zip \
$fld/dcd.license.txt $fld/dexed.license.txt \
$fld/dexed $fld/dastworx \
$fld/dexed.ico $fld/dexed.png \
$fld/dcd-server $fld/dcd-client $fld/dscanner
rm -rf dexed-x86_64

8
cesetup/zip-win32.bat → setup/zip-win32.bat
View File

@ -3,8 +3,8 @@ set ver=%ver:~1%
cd win32 cd win32
:: assuming 7zip binary folder is somewhere in PATH :: assuming 7zip binary folder is somewhere in PATH
7z a -tzip -mx9^ 7z a -tzip -mx9^
..\output\coedit.%ver%.win32.zip^ ..\output\dexed.%ver%.win32.zip^
dcd.license.txt coedit.license.txt^ dcd.license.txt dexed.license.txt^
coedit.exe dastworx.exe^ dexed.exe dastworx.exe^
coedit.ico coedit.png^ dexed.ico dexed.png^
dcd-server.exe dcd-client.exe dscanner.exe dcd-server.exe dcd-client.exe dscanner.exe

12
src/ce_common.pas
View File

@ -190,9 +190,9 @@ type
function getUserDataPath: string; function getUserDataPath: string;
(** (**
* Returns the folder where Coedit stores the data, the cache, the settings. * Returns the folder where Dexed stores the data, the cache, the settings.
*) *)
function getCoeditDocPath: string; function getDocPath: string;
(** (**
* Fills aList with the names of the files located in aPath. * Fills aList with the names of the files located in aPath.
@ -291,7 +291,7 @@ type
function isDlangCompilable(const ext: string): boolean; function isDlangCompilable(const ext: string): boolean;
(** (**
* Returns true if ext matches a file extension whose type is editable in Coedit. * Returns true if ext matches a file extension whose type is editable in Dexed.
*) *)
function isEditable(const ext: string): boolean; function isEditable(const ext: string): boolean;
@ -771,14 +771,14 @@ begin
result := sysutils.GetEnvironmentVariable('HOME') + '/Library/Application Support'; result := sysutils.GetEnvironmentVariable('HOME') + '/Library/Application Support';
{$ENDIF} {$ENDIF}
if not DirectoryExists(result) then if not DirectoryExists(result) then
raise Exception.Create('Coedit failed to retrieve the user data folder'); raise Exception.Create('dexed failed to retrieve the user data folder');
if result[result.length] <> DirectorySeparator then if result[result.length] <> DirectorySeparator then
result += directorySeparator; result += directorySeparator;
end; end;
function getCoeditDocPath: string; function getDocPath: string;
begin begin
result := getUserDataPath + 'Coedit' + directorySeparator; result := getUserDataPath + 'dexed' + directorySeparator;
end; end;
function isFolder(sr: TSearchRec): boolean; function isFolder(sr: TSearchRec): boolean;

245
src/ce_compilers.lfm
View File

@ -6,36 +6,37 @@ object CompilersPathsEditor: TCompilersPathsEditor
Caption = 'CompilersPathsEditor' Caption = 'CompilersPathsEditor'
ClientHeight = 900 ClientHeight = 900
ClientWidth = 460 ClientWidth = 460
LCLVersion = '1.8.2.0' LCLVersion = '1.8.4.0'
Visible = False
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 0 Left = 0
Height = 900 Height = 900
Top = 0 Top = 0
Width = 460 Width = 460
HorzScrollBar.Page = 189 HorzScrollBar.Page = 116
VertScrollBar.Page = 796 VertScrollBar.Page = 898
Align = alClient Align = alClient
AutoSize = True AutoSize = True
ClientHeight = 896 ClientHeight = 898
ClientWidth = 456 ClientWidth = 443
TabOrder = 0 TabOrder = 0
object grpDMD: TGroupBox object grpDMD: TGroupBox
Left = 0 Left = 0
Height = 149 Height = 175
Top = 51 Top = 52
Width = 456 Width = 443
Align = alTop Align = alTop
AutoSize = True AutoSize = True
Caption = 'DMD' Caption = 'DMD'
ClientHeight = 129 ClientHeight = 156
ClientWidth = 452 ClientWidth = 439
TabOrder = 0 TabOrder = 0
object selDMDexe: TFileNameEdit object selDMDexe: TFileNameEdit
Left = 2 Left = 2
Height = 23 Height = 27
Hint = 'select the compiler' Hint = 'select the compiler'
Top = 18 Top = 23
Width = 448 Width = 435
FilterIndex = 0 FilterIndex = 0
HideDirectories = False HideDirectories = False
ButtonWidth = 23 ButtonWidth = 23
@ -49,10 +50,10 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object selDMDrt: TDirectoryEdit object selDMDrt: TDirectoryEdit
Left = 2 Left = 2
Height = 23 Height = 27
Hint = 'select the root of druntime sources' Hint = 'select the root of druntime sources'
Top = 61 Top = 75
Width = 448 Width = 435
ShowHidden = False ShowHidden = False
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
@ -65,10 +66,10 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object selDMDstd: TDirectoryEdit object selDMDstd: TDirectoryEdit
Left = 2 Left = 2
Height = 23 Height = 27
Hint = 'select the root of phobos sources' Hint = 'select the root of phobos sources'
Top = 104 Top = 127
Width = 448 Width = 435
ShowHidden = False ShowHidden = False
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
@ -81,9 +82,9 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object StaticText1: TStaticText object StaticText1: TStaticText
Left = 0 Left = 0
Height = 16 Height = 21
Top = 0 Top = 0
Width = 452 Width = 439
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True AutoSize = True
@ -92,9 +93,9 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object StaticText2: TStaticText object StaticText2: TStaticText
Left = 0 Left = 0
Height = 16 Height = 21
Top = 43 Top = 52
Width = 452 Width = 439
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True AutoSize = True
@ -103,9 +104,9 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object StaticText3: TStaticText object StaticText3: TStaticText
Left = 0 Left = 0
Height = 16 Height = 21
Top = 86 Top = 104
Width = 452 Width = 439
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True AutoSize = True
@ -115,21 +116,21 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object grpGDC: TGroupBox object grpGDC: TGroupBox
Left = 0 Left = 0
Height = 149 Height = 175
Top = 200 Top = 227
Width = 456 Width = 443
Align = alTop Align = alTop
AutoSize = True AutoSize = True
Caption = 'GDC' Caption = 'GDC'
ClientHeight = 129 ClientHeight = 156
ClientWidth = 452 ClientWidth = 439
TabOrder = 1 TabOrder = 1
object selGDCexe: TFileNameEdit object selGDCexe: TFileNameEdit
Left = 2 Left = 2
Height = 23 Height = 27
Hint = 'select the compiler' Hint = 'select the compiler'
Top = 18 Top = 23
Width = 448 Width = 435
FilterIndex = 0 FilterIndex = 0
HideDirectories = False HideDirectories = False
ButtonWidth = 23 ButtonWidth = 23
@ -143,10 +144,10 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object selGDCrt: TDirectoryEdit object selGDCrt: TDirectoryEdit
Left = 2 Left = 2
Height = 23 Height = 27
Hint = 'select the root of druntime sources' Hint = 'select the root of druntime sources'
Top = 61 Top = 75
Width = 448 Width = 435
ShowHidden = False ShowHidden = False
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
@ -159,10 +160,10 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object selGDCstd: TDirectoryEdit object selGDCstd: TDirectoryEdit
Left = 2 Left = 2
Height = 23 Height = 27
Hint = 'select the root of phobos sources' Hint = 'select the root of phobos sources'
Top = 104 Top = 127
Width = 448 Width = 435
ShowHidden = False ShowHidden = False
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
@ -175,9 +176,9 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object StaticText4: TStaticText object StaticText4: TStaticText
Left = 0 Left = 0
Height = 16 Height = 21
Top = 0 Top = 0
Width = 452 Width = 439
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True AutoSize = True
@ -186,9 +187,9 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object StaticText5: TStaticText object StaticText5: TStaticText
Left = 0 Left = 0
Height = 16 Height = 21
Top = 43 Top = 52
Width = 452 Width = 439
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True AutoSize = True
@ -197,9 +198,9 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object StaticText6: TStaticText object StaticText6: TStaticText
Left = 0 Left = 0
Height = 16 Height = 21
Top = 86 Top = 104
Width = 452 Width = 439
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True AutoSize = True
@ -209,21 +210,21 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object grpLDC: TGroupBox object grpLDC: TGroupBox
Left = 0 Left = 0
Height = 149 Height = 175
Top = 349 Top = 402
Width = 456 Width = 443
Align = alTop Align = alTop
AutoSize = True AutoSize = True
Caption = 'LDC' Caption = 'LDC'
ClientHeight = 129 ClientHeight = 156
ClientWidth = 452 ClientWidth = 439
TabOrder = 2 TabOrder = 2
object selLDCexe: TFileNameEdit object selLDCexe: TFileNameEdit
Left = 2 Left = 2
Height = 23 Height = 27
Hint = 'select the compiler' Hint = 'select the compiler'
Top = 18 Top = 23
Width = 448 Width = 435
FilterIndex = 0 FilterIndex = 0
HideDirectories = False HideDirectories = False
ButtonWidth = 23 ButtonWidth = 23
@ -237,10 +238,10 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object selLDCrt: TDirectoryEdit object selLDCrt: TDirectoryEdit
Left = 2 Left = 2
Height = 23 Height = 27
Hint = 'select the root of LDC runtime & phobos sources (can be a common folder)' Hint = 'select the root of LDC runtime & phobos sources (can be a common folder)'
Top = 61 Top = 75
Width = 448 Width = 435
ShowHidden = False ShowHidden = False
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
@ -253,10 +254,10 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object selLDCstd: TDirectoryEdit object selLDCstd: TDirectoryEdit
Left = 2 Left = 2
Height = 23 Height = 27
Hint = 'select the root of phobos sources (can be empty)' Hint = 'select the root of phobos sources (can be empty)'
Top = 104 Top = 127
Width = 448 Width = 435
ShowHidden = False ShowHidden = False
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
@ -269,9 +270,9 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object StaticText7: TStaticText object StaticText7: TStaticText
Left = 0 Left = 0
Height = 16 Height = 21
Top = 0 Top = 0
Width = 452 Width = 439
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True AutoSize = True
@ -280,9 +281,9 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object StaticText8: TStaticText object StaticText8: TStaticText
Left = 0 Left = 0
Height = 16 Height = 21
Top = 43 Top = 52
Width = 452 Width = 439
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True AutoSize = True
@ -291,9 +292,9 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object StaticText9: TStaticText object StaticText9: TStaticText
Left = 0 Left = 0
Height = 16 Height = 21
Top = 86 Top = 104
Width = 452 Width = 439
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True AutoSize = True
@ -303,21 +304,21 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object grpUSER1: TGroupBox object grpUSER1: TGroupBox
Left = 0 Left = 0
Height = 149 Height = 175
Top = 498 Top = 577
Width = 456 Width = 443
Align = alTop Align = alTop
AutoSize = True AutoSize = True
Caption = 'User 1' Caption = 'User 1'
ClientHeight = 129 ClientHeight = 156
ClientWidth = 452 ClientWidth = 439
TabOrder = 3 TabOrder = 3
object selUSER1exe: TFileNameEdit object selUSER1exe: TFileNameEdit
Left = 2 Left = 2
Height = 23 Height = 27
Hint = 'select the compiler' Hint = 'select the compiler'
Top = 18 Top = 23
Width = 448 Width = 435
FilterIndex = 0 FilterIndex = 0
HideDirectories = False HideDirectories = False
ButtonWidth = 23 ButtonWidth = 23
@ -331,10 +332,10 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object selUSER1rt: TDirectoryEdit object selUSER1rt: TDirectoryEdit
Left = 2 Left = 2
Height = 23 Height = 27
Hint = 'select the root of druntime sources' Hint = 'select the root of druntime sources'
Top = 61 Top = 75
Width = 448 Width = 435
ShowHidden = False ShowHidden = False
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
@ -347,10 +348,10 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object selUSER1std: TDirectoryEdit object selUSER1std: TDirectoryEdit
Left = 2 Left = 2
Height = 23 Height = 27
Hint = 'select the root of phobos sources' Hint = 'select the root of phobos sources'
Top = 104 Top = 127
Width = 448 Width = 435
ShowHidden = False ShowHidden = False
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
@ -363,9 +364,9 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object StaticText10: TStaticText object StaticText10: TStaticText
Left = 0 Left = 0
Height = 16 Height = 21
Top = 0 Top = 0
Width = 452 Width = 439
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True AutoSize = True
@ -374,9 +375,9 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object StaticText11: TStaticText object StaticText11: TStaticText
Left = 0 Left = 0
Height = 16 Height = 21
Top = 43 Top = 52
Width = 452 Width = 439
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True AutoSize = True
@ -385,9 +386,9 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object StaticText12: TStaticText object StaticText12: TStaticText
Left = 0 Left = 0
Height = 16 Height = 21
Top = 86 Top = 104
Width = 452 Width = 439
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True AutoSize = True
@ -397,21 +398,21 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object grpUSER2: TGroupBox object grpUSER2: TGroupBox
Left = 0 Left = 0
Height = 149 Height = 175
Top = 647 Top = 752
Width = 456 Width = 443
Align = alTop Align = alTop
AutoSize = True AutoSize = True
Caption = 'User 2' Caption = 'User 2'
ClientHeight = 129 ClientHeight = 156
ClientWidth = 452 ClientWidth = 439
TabOrder = 4 TabOrder = 4
object selUSER2exe: TFileNameEdit object selUSER2exe: TFileNameEdit
Left = 2 Left = 2
Height = 23 Height = 27
Hint = 'select the compiler' Hint = 'select the compiler'
Top = 18 Top = 23
Width = 448 Width = 435
FilterIndex = 0 FilterIndex = 0
HideDirectories = False HideDirectories = False
ButtonWidth = 23 ButtonWidth = 23
@ -425,10 +426,10 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object selUSER2rt: TDirectoryEdit object selUSER2rt: TDirectoryEdit
Left = 2 Left = 2
Height = 23 Height = 27
Hint = 'select the root of druntime sources' Hint = 'select the root of druntime sources'
Top = 61 Top = 75
Width = 448 Width = 435
ShowHidden = False ShowHidden = False
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
@ -441,10 +442,10 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object selUSER2std: TDirectoryEdit object selUSER2std: TDirectoryEdit
Left = 2 Left = 2
Height = 23 Height = 27
Hint = 'select the root of phobos sources' Hint = 'select the root of phobos sources'
Top = 104 Top = 127
Width = 448 Width = 435
ShowHidden = False ShowHidden = False
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
@ -457,9 +458,9 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object StaticText13: TStaticText object StaticText13: TStaticText
Left = 0 Left = 0
Height = 16 Height = 21
Top = 0 Top = 0
Width = 452 Width = 439
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True AutoSize = True
@ -468,9 +469,9 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object StaticText14: TStaticText object StaticText14: TStaticText
Left = 0 Left = 0
Height = 16 Height = 21
Top = 43 Top = 52
Width = 452 Width = 439
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True AutoSize = True
@ -479,9 +480,9 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object StaticText15: TStaticText object StaticText15: TStaticText
Left = 0 Left = 0
Height = 16 Height = 21
Top = 86 Top = 104
Width = 452 Width = 439
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True AutoSize = True
@ -491,24 +492,24 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object GroupBox6: TGroupBox object GroupBox6: TGroupBox
Left = 0 Left = 0
Height = 51 Height = 52
Top = 0 Top = 0
Width = 456 Width = 443
Align = alTop Align = alTop
AutoSize = True AutoSize = True
Caption = 'Default compiler for completion' Caption = 'Default compiler for completion'
ClientHeight = 31 ClientHeight = 33
ClientWidth = 452 ClientWidth = 439
TabOrder = 5 TabOrder = 5
object selDefault: TComboBox object selDefault: TComboBox
Left = 4 Left = 4
Height = 23 Height = 25
Hint = 'select which the compiler for which the library paths are used by the completion daemon' Hint = 'select which the compiler for which the library paths are used by the completion daemon'
Top = 4 Top = 4
Width = 444 Width = 431
Align = alClient Align = alClient
BorderSpacing.Around = 4 BorderSpacing.Around = 4
ItemHeight = 15 ItemHeight = 0
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
'DMD' 'DMD'

6
src/ce_compilers.pas
View File

@ -175,7 +175,7 @@ begin
fPaths:= TCompilersPaths.Create(self); fPaths:= TCompilersPaths.Create(self);
fPathsBackup:= TCompilersPaths.Create(self); fPathsBackup:= TCompilersPaths.Create(self);
fname := getCoeditDocPath + optFname; fname := getDocPath + optFname;
if fname.fileExists then if fname.fileExists then
fPaths.loadFromFile(fname); fPaths.loadFromFile(fname);
if not isCompilerValid(dmd) then if not isCompilerValid(dmd) then
@ -231,7 +231,7 @@ end;
destructor TCompilersPathsEditor.destroy; destructor TCompilersPathsEditor.destroy;
begin begin
fPaths.saveToFile(getCoeditDocPath + optFname); fPaths.saveToFile(getDocPath + optFname);
EntitiesConnector.removeObserver(self); EntitiesConnector.removeObserver(self);
inherited; inherited;
end; end;
@ -475,7 +475,7 @@ begin
if fPaths.wouldNeedRestart and fPaths.modified then if fPaths.wouldNeedRestart and fPaths.modified then
begin begin
if not DCDWrapper.launchedByCe then if not DCDWrapper.launchedByCe then
dlgOkInfo('Coedit and DCD must be restarted manually in order to cache' dlgOkInfo('Dexed and DCD must be restarted manually in order to cache'
+ ' the right runtime and the standard library versions.') + ' the right runtime and the standard library versions.')
else else
begin begin

2
src/ce_controls.pas
View File

@ -39,7 +39,7 @@ type
TPageControlButtonClick = procedure(sender: TObject; button: TCEPageControlButton) of object; TPageControlButtonClick = procedure(sender: TObject; button: TCEPageControlButton) of object;
(** (**
* Minimalist page-control dedicated to Coedit * Minimalist page-control
* *
* - get rid of the framed aspect of the default LCL one * - get rid of the framed aspect of the default LCL one
* - no published props, no need for design time support * - no published props, no need for design time support

4
src/ce_d2synpresets.pas
View File

@ -335,7 +335,7 @@ begin
inherited; inherited;
fBackup:= TCED2SynPreset.Create(nil); fBackup:= TCED2SynPreset.Create(nil);
fPresets:= TCED2SynPresets.Create(self); fPresets:= TCED2SynPresets.Create(self);
fname := getCoeditDocPath + optfname; fname := getDocPath + optfname;
if fname.fileExists then if fname.fileExists then
fPresets.loadFromFile(fname); fPresets.loadFromFile(fname);
@ -675,7 +675,7 @@ begin
for i:= fPresets.count-1 downto 0 do for i:= fPresets.count-1 downto 0 do
if fPresets.preset[i].isHardCoded then if fPresets.preset[i].isHardCoded then
fPresets.fCollection.Delete(i); fPresets.fCollection.Delete(i);
fPresets.saveToFile(getCoeditDocPath + optfname); fPresets.saveToFile(getDocPath + optfname);
fBackup.Free; fBackup.Free;
EntitiesConnector.removeObserver(self); EntitiesConnector.removeObserver(self);
inherited; inherited;

4
src/ce_dcd.pas
View File

@ -106,7 +106,7 @@ begin
inherited; inherited;
fVersion.init('v0.0.0'); fVersion.init('v0.0.0');
fname := getCoeditDocPath + optsname; fname := getDocPath + optsname;
if fname.fileExists then if fname.fileExists then
loadFromFile(fname); loadFromFile(fname);
fCurrentSessionPortNum := fPortNum; fCurrentSessionPortNum := fPortNum;
@ -198,7 +198,7 @@ destructor TCEDcdWrapper.destroy;
var var
i: integer = 0; i: integer = 0;
begin begin
saveToFile(getCoeditDocPath + optsname); saveToFile(getDocPath + optsname);
EntitiesConnector.removeObserver(self); EntitiesConnector.removeObserver(self);
fImportCache.Free; fImportCache.Free;
if fTempLines.isNotNil then if fTempLines.isNotNil then

4
src/ce_dfmt.pas
View File

@ -105,7 +105,7 @@ begin
fDmtWrapper := TCEDmtWrapper.Create(self); fDmtWrapper := TCEDmtWrapper.Create(self);
fBackup := TStringList.Create; fBackup := TStringList.Create;
fname := getCoeditDocPath + optFname; fname := getDocPath + optFname;
if fname.fileExists then if fname.fileExists then
fDmtWrapper.loadFromFile(fname); fDmtWrapper.loadFromFile(fname);
@ -138,7 +138,7 @@ end;
destructor TCEDfmtWidget.destroy; destructor TCEDfmtWidget.destroy;
begin begin
dfmtOptionEditor.TIObject := nil; dfmtOptionEditor.TIObject := nil;
fDmtWrapper.saveToFile(getCoeditDocPath + optFname); fDmtWrapper.saveToFile(getDocPath + optFname);
fBackup.Free; fBackup.Free;
inherited; inherited;
end; end;

8
src/ce_dialogs.pas
View File

@ -47,7 +47,7 @@ const
Btns = [mbOK,mbCancel]; Btns = [mbOK,mbCancel];
begin begin
if title = '' then if title = '' then
title := 'Coedit'; title := 'dexed';
exit( MessageDlg(title, message, mtConfirmation, Btns, '')); exit( MessageDlg(title, message, mtConfirmation, Btns, ''));
end; end;
@ -56,7 +56,7 @@ const
Btns = [mbYes,mbNo]; Btns = [mbYes,mbNo];
begin begin
if title = '' then if title = '' then
title := 'Coedit'; title := 'dexed';
exit( MessageDlg(title, message, mtConfirmation, Btns, '')); exit( MessageDlg(title, message, mtConfirmation, Btns, ''));
end; end;
@ -65,7 +65,7 @@ const
Btns = [mbOK]; Btns = [mbOK];
begin begin
if title = '' then if title = '' then
title := 'Coedit'; title := 'dexed';
exit( MessageDlg(title, message, mtInformation, Btns, '')); exit( MessageDlg(title, message, mtInformation, Btns, ''));
end; end;
@ -74,7 +74,7 @@ const
Btns = [mbOK]; Btns = [mbOK];
begin begin
if title = '' then if title = '' then
title := 'Coedit'; title := 'dexed';
exit(MessageDlg(title, message, mtError, Btns, '')); exit(MessageDlg(title, message, mtError, Btns, ''));
end; end;

8
src/ce_dubproject.pas
View File

@ -599,14 +599,14 @@ begin
inherited; inherited;
fBackup := TCEDubBuildOptionsBase.Create(nil); fBackup := TCEDubBuildOptionsBase.Create(nil);
EntitiesConnector.addObserver(self); EntitiesConnector.addObserver(self);
fname := getCoeditDocPath + optFname; fname := getDocPath + optFname;
if fname.fileExists then if fname.fileExists then
loadFromFile(fname); loadFromFile(fname);
end; end;
destructor TCEDubBuildOptions.destroy; destructor TCEDubBuildOptions.destroy;
begin begin
saveToFile(getCoeditDocPath + optFname); saveToFile(getDocPath + optFname);
EntitiesConnector.removeObserver(self); EntitiesConnector.removeObserver(self);
fBackup.free; fBackup.free;
inherited; inherited;
@ -1129,7 +1129,7 @@ begin
begin begin
fConfigs.Add(DubDefaultConfigName); fConfigs.Add(DubDefaultConfigName);
// default = what dub set as 'application' or 'library' // default = what dub set as 'application' or 'library'
// in this case Coedit will pass only the type to DUB: 'DUB --build=release' // in this case dexed will pass only the type to DUB: 'DUB --build=release'
end; end;
fBuildTypes.AddStrings(DubBuiltTypeName); fBuildTypes.AddStrings(DubBuiltTypeName);
@ -1308,7 +1308,7 @@ var
begin begin
fBinKind := executable; fBinKind := executable;
if fJSON.isNil then exit; if fJSON.isNil then exit;
// note: in Coedit this is only used to known if output can be launched // note: this is only used to known if output can be launched
found := findTargetKindInd(fJSON); found := findTargetKindInd(fJSON);
conf := getCurrentCustomConfig; conf := getCurrentCustomConfig;
if conf.isNotNil then if conf.isNotNil then

4
src/ce_editor.lfm
View File

@ -21,8 +21,8 @@ inherited CEEditorWidget: TCEEditorWidget
ClientWidth = 465 ClientWidth = 465
object editorStatus: TStatusBar[0] object editorStatus: TStatusBar[0]
Left = 0 Left = 0
Height = 19 Height = 21
Top = 377 Top = 375
Width = 465 Width = 465
BorderSpacing.Bottom = 2 BorderSpacing.Bottom = 2
Panels = < Panels = <

4
src/ce_editor.pas
View File

@ -214,7 +214,7 @@ begin
EntitiesConnector.addObserver(self); EntitiesConnector.addObserver(self);
// //
fDetectModuleName := true; fDetectModuleName := true;
fname := getCoeditDocPath + optname; fname := getDocPath + optname;
if fname.fileExists then if fname.fileExists then
begin begin
loadFromFile(fname); loadFromFile(fname);
@ -225,7 +225,7 @@ end;
destructor TCEPagesOptions.Destroy; destructor TCEPagesOptions.Destroy;
begin begin
saveToFile(getCoeditDocPath + optname); saveToFile(getDocPath + optname);
EntitiesConnector.removeObserver(self); EntitiesConnector.removeObserver(self);
inherited; inherited;
end; end;

8
src/ce_editoroptions.pas
View File

@ -276,7 +276,7 @@ begin
ed := TSynEdit.Create(nil); ed := TSynEdit.Create(nil);
try try
// note: cant use a TCESynMemo because it'd be added to the EntitiesConnector // note: cant use a TCESynMemo because it'd be added to the EntitiesConnector
SetDefaultCoeditKeystrokes(ed); SetDefaultDexedKeystrokes(ed);
for i:= 0 to ed.Keystrokes.Count-1 do for i:= 0 to ed.Keystrokes.Count-1 do
begin begin
shc := TCEPersistentShortcut(fShortCuts.Add); shc := TCEPersistentShortcut(fShortCuts.Add);
@ -462,14 +462,14 @@ begin
fBackup := TCEEditorOptionsBase.Create(self); fBackup := TCEEditorOptionsBase.Create(self);
EntitiesConnector.addObserver(self); EntitiesConnector.addObserver(self);
// //
fname := getCoeditDocPath + edoptFname; fname := getDocPath + edoptFname;
if fileExists(fname) then if fileExists(fname) then
loadFromFile(fname); loadFromFile(fname);
end; end;
destructor TCEEditorOptions.Destroy; destructor TCEEditorOptions.Destroy;
begin begin
saveToFile(getCoeditDocPath + edoptFname); saveToFile(getDocPath + edoptFname);
// //
EntitiesConnector.removeObserver(self); EntitiesConnector.removeObserver(self);
inherited; inherited;
@ -488,7 +488,7 @@ begin
// //
ed := TSynEdit.Create(nil); ed := TSynEdit.Create(nil);
try try
SetDefaultCoeditKeystrokes(ed); SetDefaultDexedKeystrokes(ed);
// new version with more shortcuts // new version with more shortcuts
for i:= 0 to ed.Keystrokes.Count-1 do for i:= 0 to ed.Keystrokes.Count-1 do
begin begin

86
src/ce_gdb.lfm
View File

@ -21,31 +21,31 @@ inherited CEGdbWidget: TCEGdbWidget
ClientWidth = 517 ClientWidth = 517
object Panel1: TPanel[0] object Panel1: TPanel[0]
Left = 0 Left = 0
Height = 384 Height = 386
Top = 205 Top = 205
Width = 517 Width = 517
Align = alClient Align = alClient
AutoSize = True AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 384 ClientHeight = 386
ClientWidth = 517 ClientWidth = 517
TabOrder = 0 TabOrder = 0
object GroupBox3: TGroupBox object GroupBox3: TGroupBox
Left = 0 Left = 0
Height = 178 Height = 180
Top = 206 Top = 206
Width = 517 Width = 517
Align = alClient Align = alClient
Caption = 'CPU' Caption = 'CPU'
ClientHeight = 160 ClientHeight = 161
ClientWidth = 515 ClientWidth = 513
TabOrder = 0 TabOrder = 0
object cpuViewer: TTIPropertyGrid object cpuViewer: TTIPropertyGrid
Left = 0 Left = 0
Height = 160 Height = 161
Hint = 'cpu registers' Hint = 'cpu registers'
Top = 0 Top = 0
Width = 515 Width = 513
Align = alClient Align = alClient
CheckboxForBoolean = True CheckboxForBoolean = True
DefaultValueFont.Color = clWindowText DefaultValueFont.Color = clWindowText
@ -78,13 +78,13 @@ inherited CEGdbWidget: TCEGdbWidget
OnChange = PageControl2Change OnChange = PageControl2Change
object TabSheet3: TTabSheet object TabSheet3: TTabSheet
Caption = 'Variables' Caption = 'Variables'
ClientHeight = 165 ClientHeight = 173
ClientWidth = 511 ClientWidth = 515
object lstVariables: TListView object lstVariables: TListView
Left = 2 Left = 2
Height = 136 Height = 140
Top = 27 Top = 31
Width = 507 Width = 511
Align = alClient Align = alClient
AutoWidthLastColumn = True AutoWidthLastColumn = True
BorderSpacing.Around = 2 BorderSpacing.Around = 2
@ -92,11 +92,11 @@ inherited CEGdbWidget: TCEGdbWidget
item item
AutoSize = True AutoSize = True
Caption = 'name' Caption = 'name'
Width = 47 Width = 45
end end
item item
Caption = 'value' Caption = 'value'
Width = 458 Width = 464
end> end>
GridLines = True GridLines = True
HideSelection = False HideSelection = False
@ -109,10 +109,10 @@ inherited CEGdbWidget: TCEGdbWidget
end end
object varListFlt: TListViewFilterEdit object varListFlt: TListViewFilterEdit
Left = 2 Left = 2
Height = 23 Height = 27
Hint = 'locate variables' Hint = 'locate variables'
Top = 2 Top = 2
Width = 507 Width = 511
ButtonWidth = 24 ButtonWidth = 24
NumGlyphs = 1 NumGlyphs = 1
Align = alTop Align = alTop
@ -124,8 +124,8 @@ inherited CEGdbWidget: TCEGdbWidget
end end
object TabSheet4: TTabSheet object TabSheet4: TTabSheet
Caption = 'Assembler' Caption = 'Assembler'
ClientHeight = 165 ClientHeight = 173
ClientWidth = 511 ClientWidth = 515
object lstAsm: TListView object lstAsm: TListView
Left = 2 Left = 2
Height = 161 Height = 161
@ -139,11 +139,11 @@ inherited CEGdbWidget: TCEGdbWidget
item item
AutoSize = True AutoSize = True
Caption = 'address' Caption = 'address'
Width = 61 Width = 59
end end
item item
Caption = 'instruction' Caption = 'instruction'
Width = 444 Width = 446
end> end>
GridLines = True GridLines = True
HideSelection = False HideSelection = False
@ -158,19 +158,19 @@ inherited CEGdbWidget: TCEGdbWidget
end end
object Panel3: TPanel[1] object Panel3: TPanel[1]
Left = 4 Left = 4
Height = 29 Height = 27
Top = 593 Top = 595
Width = 509 Width = 509
Align = alBottom Align = alBottom
AutoSize = True AutoSize = True
BorderSpacing.Around = 4 BorderSpacing.Around = 4
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 29 ClientHeight = 27
ClientWidth = 509 ClientWidth = 509
TabOrder = 1 TabOrder = 1
object btnSendCom: TSpeedButton object btnSendCom: TSpeedButton
Left = 504 Left = 504
Height = 27 Height = 25
Top = 1 Top = 1
Width = 4 Width = 4
Align = alRight Align = alRight
@ -180,7 +180,7 @@ inherited CEGdbWidget: TCEGdbWidget
end end
object Edit1: TComboBox object Edit1: TComboBox
Left = 0 Left = 0
Height = 29 Height = 27
Hint = 'enter a custom GDB command or the program input with ">"' Hint = 'enter a custom GDB command or the program input with ">"'
Top = 0 Top = 0
Width = 503 Width = 503
@ -214,14 +214,14 @@ inherited CEGdbWidget: TCEGdbWidget
TabOrder = 3 TabOrder = 3
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'Call stack' Caption = 'Call stack'
ClientHeight = 165 ClientHeight = 173
ClientWidth = 511 ClientWidth = 515
object lstCallStack: TListView object lstCallStack: TListView
Left = 0 Left = 0
Height = 165 Height = 173
Hint = 'call stack' Hint = 'call stack'
Top = 0 Top = 0
Width = 511 Width = 515
Align = alClient Align = alClient
AutoSort = False AutoSort = False
Columns = < Columns = <
@ -251,8 +251,8 @@ inherited CEGdbWidget: TCEGdbWidget
end end
object TabSheet2: TTabSheet object TabSheet2: TTabSheet
Caption = 'Thread list' Caption = 'Thread list'
ClientHeight = 165 ClientHeight = 173
ClientWidth = 511 ClientWidth = 515
object lstThreads: TListView object lstThreads: TListView
Left = 0 Left = 0
Height = 169 Height = 169
@ -266,36 +266,36 @@ inherited CEGdbWidget: TCEGdbWidget
item item
AutoSize = True AutoSize = True
Caption = 'id' Caption = 'id'
Width = 22 Width = 20
end end
item item
AutoSize = True AutoSize = True
Caption = 'state' Caption = 'state'
Width = 43 Width = 41
end end
item item
AutoSize = True AutoSize = True
Caption = 'core' Caption = 'core'
Width = 38 Width = 36
end end
item item
AutoSize = True AutoSize = True
Caption = 'function' Caption = 'function'
Width = 63
end
item
AutoSize = True
Caption = 'address'
Width = 61 Width = 61
end end
item
AutoSize = True
Caption = 'address'
Width = 59
end
item item
AutoSize = True AutoSize = True
Caption = 'filename' Caption = 'filename'
Width = 67 Width = 65
end end
item item
Caption = 'line' Caption = 'line'
Width = 217 Width = 229
end> end>
GridLines = True GridLines = True
ReadOnly = True ReadOnly = True
@ -307,8 +307,8 @@ inherited CEGdbWidget: TCEGdbWidget
end end
object TabSheet5: TTabSheet object TabSheet5: TTabSheet
Caption = 'Debugee options' Caption = 'Debugee options'
ClientHeight = 165 ClientHeight = 173
ClientWidth = 511 ClientWidth = 515
object dbgeeOptsEd: TTIPropertyGrid object dbgeeOptsEd: TTIPropertyGrid
Left = 2 Left = 2
Height = 161 Height = 161

12
src/ce_gdb.pas
View File

@ -744,14 +744,14 @@ begin
fAutoGetCallStack:= true; fAutoGetCallStack:= true;
fAutoGetRegisters:= true; fAutoGetRegisters:= true;
fAutoGetVariables:= true; fAutoGetVariables:= true;
fname := getCoeditDocPath + optFname; fname := getDocPath + optFname;
if fname.fileExists then if fname.fileExists then
loadFromFile(fname); loadFromFile(fname);
end; end;
destructor TCEDebugOptions.destroy; destructor TCEDebugOptions.destroy;
begin begin
saveToFile(getCoeditDocPath + optFname); saveToFile(getDocPath + optFname);
EntitiesConnector.removeObserver(self); EntitiesConnector.removeObserver(self);
inherited; inherited;
end; end;
@ -798,14 +798,14 @@ var
begin begin
Inherited; Inherited;
fItems := TCollection.Create(TPersistentBreakPoint); fItems := TCollection.Create(TPersistentBreakPoint);
fname := getCoeditDocPath + bpFname; fname := getDocPath + bpFname;
if fname.fileExists then if fname.fileExists then
loadFromFile(fname); loadFromFile(fname);
end; end;
destructor TPersistentBreakPoints.destroy; destructor TPersistentBreakPoints.destroy;
begin begin
saveToFile(getCoeditDocPath + bpFname); saveToFile(getDocPath + bpFname);
fItems.Free; fItems.Free;
inherited; inherited;
end; end;
@ -1125,14 +1125,14 @@ var
begin begin
inherited create(AOwner); inherited create(AOwner);
fProjects := TCollection.Create(TCEDebugeeOption); fProjects := TCollection.Create(TCEDebugeeOption);
fname := getCoeditDocPath + prjFname; fname := getDocPath + prjFname;
if fname.fileExists then if fname.fileExists then
loadFromFile(fname); loadFromFile(fname);
end; end;
destructor TCEDebugeeOptions.Destroy; destructor TCEDebugeeOptions.Destroy;
begin begin
saveToFile(getCoeditDocPath + prjFname); saveToFile(getDocPath + prjFname);
fProjects.Free; fProjects.Free;
inherited; inherited;
end; end;

4
src/ce_halstead.pas
View File

@ -116,7 +116,7 @@ var
begin begin
inherited; inherited;
fBackup:= THalsteadMetricsBase.create(self); fBackup:= THalsteadMetricsBase.create(self);
f := getCoeditDocPath + optFname; f := getDocPath + optFname;
if f.fileExists then if f.fileExists then
loadFromFile(f); loadFromFile(f);
fBackup.assign(self); fBackup.assign(self);
@ -126,7 +126,7 @@ end;
destructor THalsteadMetrics.destroy; destructor THalsteadMetrics.destroy;
begin begin
EntitiesConnector.removeObserver(self); EntitiesConnector.removeObserver(self);
saveTofile(getCoeditDocPath + optFname); saveTofile(getDocPath + optFname);
inherited; inherited;
end; end;

20
src/ce_infos.lfm
View File

@ -22,7 +22,7 @@ inherited CEInfoWidget: TCEInfoWidget
ClientWidth = 296 ClientWidth = 296
object GroupBox1: TGroupBox[0] object GroupBox1: TGroupBox[0]
Left = 4 Left = 4
Height = 77 Height = 78
Top = 4 Top = 4
Width = 288 Width = 288
Align = alTop Align = alTop
@ -30,13 +30,13 @@ inherited CEInfoWidget: TCEInfoWidget
BorderSpacing.Around = 4 BorderSpacing.Around = 4
Caption = 'about' Caption = 'about'
ClientHeight = 59 ClientHeight = 59
ClientWidth = 286 ClientWidth = 284
TabOrder = 0 TabOrder = 0
object Label1: TLabel object Label1: TLabel
Left = 8 Left = 8
Height = 1 Height = 1
Top = 8 Top = 8
Width = 270 Width = 268
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
BorderSpacing.Around = 8 BorderSpacing.Around = 8
@ -49,7 +49,7 @@ inherited CEInfoWidget: TCEInfoWidget
Left = 8 Left = 8
Height = 34 Height = 34
Top = 17 Top = 17
Width = 270 Width = 268
Align = alClient Align = alClient
Alignment = taCenter Alignment = taCenter
BorderSpacing.Around = 8 BorderSpacing.Around = 8
@ -62,21 +62,21 @@ inherited CEInfoWidget: TCEInfoWidget
end end
object GroupBox2: TGroupBox[1] object GroupBox2: TGroupBox[1]
Left = 4 Left = 4
Height = 22 Height = 21
Top = 85 Top = 86
Width = 288 Width = 288
Align = alClient Align = alClient
AutoSize = True AutoSize = True
BorderSpacing.Around = 4 BorderSpacing.Around = 4
Caption = 'tools status' Caption = 'tools status'
ClientHeight = 4 ClientHeight = 2
ClientWidth = 286 ClientWidth = 284
TabOrder = 1 TabOrder = 1
object boxTools: TScrollBox object boxTools: TScrollBox
Left = 4 Left = 4
Height = 1 Height = 1
Top = 2 Top = 1
Width = 278 Width = 276
HorzScrollBar.Page = 1 HorzScrollBar.Page = 1
VertScrollBar.Page = 1 VertScrollBar.Page = 1
Align = alClient Align = alClient

2
src/ce_infos.pas
View File

@ -215,7 +215,7 @@ begin
try try
len := read(ver[1], ver.length); len := read(ver[1], ver.length);
setLength(ver, len); setLength(ver, len);
Label1.Caption := 'Coedit - ' + ver[1..ver.length]; Label1.Caption := 'dexed - ' + ver[1..ver.length];
finally finally
free; free;
end; end;

2
src/ce_interfaces.pas
View File

@ -351,7 +351,7 @@ type
(** (**
* Single service related to the expansion of Coedit "symbolic strings". * Single service related to the expansion of "symbolic strings".
*) *)
ICESymStringExpander = interface(ICESingleService) ICESymStringExpander = interface(ICESingleService)
// expands all the symbols <IDENT> of value in result. // expands all the symbols <IDENT> of value in result.

8
src/ce_libman.pas
View File

@ -82,7 +82,7 @@ type
TLibraryList = specialize TObjectHashSet<TLibraryItem>; TLibraryList = specialize TObjectHashSet<TLibraryItem>;
(** (**
* Represents all the D libraries handled by Coedit. * Represents all the D libraries handled by Dexed.
*) *)
TLibraryManager = class(TWritableLfmTextComponent, IFPObserver) TLibraryManager = class(TWritableLfmTextComponent, IFPObserver)
type type
@ -330,7 +330,7 @@ begin
fItemsByAlias := TItemsByAlias.create; fItemsByAlias := TItemsByAlias.create;
fCollection := TCollection.Create(TLibraryItem); fCollection := TCollection.Create(TLibraryItem);
fCollection.FPOAttachObserver(self); fCollection.FPOAttachObserver(self);
nme := getCoeditDocPath + libFname; nme := getDocPath + libFname;
if nme.fileExists then if nme.fileExists then
loadFromFile(nme); loadFromFile(nme);
for i := fCollection.Count-1 downto 0 do for i := fCollection.Count-1 downto 0 do
@ -351,8 +351,8 @@ end;
destructor TLibraryManager.destroy; destructor TLibraryManager.destroy;
begin begin
ForceDirectoriesUTF8(getCoeditDocPath); ForceDirectoriesUTF8(getDocPath);
LibMan.saveToFile(getCoeditDocPath + libFname); LibMan.saveToFile(getDocPath + libFname);
fItemsByAlias.Free; fItemsByAlias.Free;
fCollection.Free; fCollection.Free;
inherited; inherited;

3
src/ce_main.lfm
View File

@ -1472,6 +1472,7 @@ object CEMainForm: TCEMainForm
OnResize = FormResize OnResize = FormResize
OnWindowStateChange = FormWindowStateChange OnWindowStateChange = FormWindowStateChange
ShowHint = True ShowHint = True
LCLVersion = '1.8.4.0'
Visible = False Visible = False
object mainMenu: TMainMenu object mainMenu: TMainMenu
top = 1 top = 1
@ -1857,7 +1858,7 @@ object CEMainForm: TCEMainForm
object mnuItemHelp: TMenuItem object mnuItemHelp: TMenuItem
Caption = 'Help' Caption = 'Help'
object mnuItemAbout: TMenuItem object mnuItemAbout: TMenuItem
Caption = 'About Coedit and tools information' Caption = 'About dexed and tools information'
OnClick = mnuItemAboutClick OnClick = mnuItemAboutClick
end end
object mnuItemCheckUpd: TMenuItem object mnuItemCheckUpd: TMenuItem

74
src/ce_main.pas
View File

@ -393,7 +393,7 @@ type
fCovModUt: boolean; fCovModUt: boolean;
fDscanUnittests: boolean; fDscanUnittests: boolean;
fDoc: TCESynMemo; fDoc: TCESynMemo;
fFirstTimeCoedit: boolean; fFirstTimeRun: boolean;
fMultidoc: ICEMultiDocHandler; fMultidoc: ICEMultiDocHandler;
fScCollectCount: Integer; fScCollectCount: Integer;
fUpdateCount: NativeInt; fUpdateCount: NativeInt;
@ -1697,7 +1697,7 @@ begin
end; end;
// load existing or default docking // load existing or default docking
if not reset and FileExists(getCoeditDocPath + 'docking.xml') then if not reset and FileExists(getDocPath + 'docking.xml') then
begin begin
// load later (https://bugs.freepascal.org/view.php?id=29475) // load later (https://bugs.freepascal.org/view.php?id=29475)
end end
@ -1781,7 +1781,7 @@ var
fname: string; fname: string;
begin begin
// project and files MRU // project and files MRU
fname := getCoeditDocPath + 'mostrecent.txt'; fname := getDocPath + 'mostrecent.txt';
if fname.fileExists then with TCEPersistentMainMrus.create(nil) do if fname.fileExists then with TCEPersistentMainMrus.create(nil) do
try try
setTargets(fFileMru, fProjMru, fPrjGrpMru); setTargets(fFileMru, fProjMru, fPrjGrpMru);
@ -1790,7 +1790,7 @@ begin
Free; Free;
end; end;
// shortcuts for the actions standing in the main action list // shortcuts for the actions standing in the main action list
fname := getCoeditDocPath + 'mainshortcuts.txt'; fname := getDocPath + 'mainshortcuts.txt';
if fname.fileExists then with TCEPersistentMainShortcuts.create(nil) do if fname.fileExists then with TCEPersistentMainShortcuts.create(nil) do
try try
loadFromFile(fname); loadFromFile(fname);
@ -1800,18 +1800,18 @@ begin
end; end;
// runnables opts // runnables opts
fRunnablesOptions := TCEEditableRunnableOptions.create(self); fRunnablesOptions := TCEEditableRunnableOptions.create(self);
fname := getCoeditDocPath + 'runnables.txt'; fname := getDocPath + 'runnables.txt';
if fname.fileExists then if fname.fileExists then
fRunnablesOptions.loadFromFile(fname); fRunnablesOptions.loadFromFile(fname);
// globals opts // globals opts
fAppliOpts := TCEApplicationOptions.Create(self); fAppliOpts := TCEApplicationOptions.Create(self);
fname := getCoeditDocPath + 'application.txt'; fname := getDocPath + 'application.txt';
if fname.fileExists then if fname.fileExists then
begin begin
fAppliOpts.loadFromFile(fname); fAppliOpts.loadFromFile(fname);
fAppliOpts.assignTo(self); fAppliOpts.assignTo(self);
end end
else fFirstTimeCoedit := true; else fFirstTimeRun := true;
end; end;
procedure TCEMainForm.SaveSettings; procedure TCEMainForm.SaveSettings;
@ -1822,7 +1822,7 @@ begin
with TCEPersistentMainMrus.create(nil) do with TCEPersistentMainMrus.create(nil) do
try try
setTargets(fFileMru, fProjMru, fPrjGrpMru); setTargets(fFileMru, fProjMru, fPrjGrpMru);
saveToFile(getCoeditDocPath + 'mostrecent.txt'); saveToFile(getDocPath + 'mostrecent.txt');
finally finally
Free; Free;
end; end;
@ -1830,15 +1830,15 @@ begin
with TCEPersistentMainShortcuts.create(nil) do with TCEPersistentMainShortcuts.create(nil) do
try try
assign(self); assign(self);
saveToFile(getCoeditDocPath + 'mainshortcuts.txt'); saveToFile(getDocPath + 'mainshortcuts.txt');
finally finally
Free; Free;
end; end;
// globals opts // globals opts
fAppliOpts.assign(self); fAppliOpts.assign(self);
fAppliOpts.saveToFile(getCoeditDocPath + 'application.txt'); fAppliOpts.saveToFile(getDocPath + 'application.txt');
// runnables opts // runnables opts
fRunnablesOptions.saveToFile(getCoeditDocPath + 'runnables.txt'); fRunnablesOptions.saveToFile(getDocPath + 'runnables.txt');
end; end;
procedure TCEMainForm.SaveDocking; procedure TCEMainForm.SaveDocking;
@ -1861,19 +1861,19 @@ begin
DockMaster.GetAnchorSite(fWidgList.widget[i]).Close; DockMaster.GetAnchorSite(fWidgList.widget[i]).Close;
end; end;
forceDirectory(getCoeditDocPath); forceDirectory(getDocPath);
xcfg := TXMLConfigStorage.Create(getCoeditDocPath + 'docking.xml.tmp', false); xcfg := TXMLConfigStorage.Create(getDocPath + 'docking.xml.tmp', false);
try try
DockMaster.SaveLayoutToConfig(xcfg); DockMaster.SaveLayoutToConfig(xcfg);
xcfg.WriteToDisk; xcfg.WriteToDisk;
// TODO-cdocking: remove this when AnchorDocking wont save anymore invalid layout // TODO-cdocking: remove this when AnchorDocking wont save anymore invalid layout
with TMemoryStream.Create do with TMemoryStream.Create do
try try
LoadFromFile(getCoeditDocPath + 'docking.xml.tmp'); LoadFromFile(getDocPath + 'docking.xml.tmp');
if Size < 10000 then if Size < 10000 then
begin begin
SaveToFile(getCoeditDocPath + 'docking.xml'); SaveToFile(getDocPath + 'docking.xml');
SysUtils.DeleteFile(getCoeditDocPath + 'docking.xml.tmp'); SysUtils.DeleteFile(getDocPath + 'docking.xml.tmp');
end; end;
finally finally
free; free;
@ -1882,7 +1882,7 @@ begin
xcfg.Free; xcfg.Free;
end; end;
xcfg := TXMLConfigStorage.Create(getCoeditDocPath + 'dockingopts.xml',false); xcfg := TXMLConfigStorage.Create(getDocPath + 'dockingopts.xml',false);
try try
DockMaster.SaveSettingsToConfig(xcfg); DockMaster.SaveSettingsToConfig(xcfg);
xcfg.WriteToDisk; xcfg.WriteToDisk;
@ -1897,9 +1897,9 @@ var
str: TMemoryStream; str: TMemoryStream;
begin begin
result := false; result := false;
if fileExists(getCoeditDocPath + 'docking.xml') then if fileExists(getDocPath + 'docking.xml') then
begin begin
xcfg := TXMLConfigStorage.Create(getCoeditDocPath + 'docking.xml', true); xcfg := TXMLConfigStorage.Create(getDocPath + 'docking.xml', true);
try try
try try
DockMaster.LoadLayoutFromConfig(xcfg, false); DockMaster.LoadLayoutFromConfig(xcfg, false);
@ -1909,7 +1909,7 @@ begin
str := TMemoryStream.Create; str := TMemoryStream.Create;
try try
xcfg.SaveToStream(str); xcfg.SaveToStream(str);
str.saveToFile(getCoeditDocPath + 'docking.bak') str.saveToFile(getDocPath + 'docking.bak')
finally finally
str.Free; str.Free;
end; end;
@ -1917,9 +1917,9 @@ begin
xcfg.Free; xcfg.Free;
end; end;
end; end;
if fileExists(getCoeditDocPath + 'dockingopts.xml') then if fileExists(getDocPath + 'dockingopts.xml') then
begin begin
xcfg := TXMLConfigStorage.Create(getCoeditDocPath + 'dockingopts.xml', true); xcfg := TXMLConfigStorage.Create(getDocPath + 'dockingopts.xml', true);
try try
try try
DockMaster.LoadSettingsFromConfig(xcfg); DockMaster.LoadSettingsFromConfig(xcfg);
@ -1929,7 +1929,7 @@ begin
str := TMemoryStream.Create; str := TMemoryStream.Create;
try try
xcfg.SaveToStream(str); xcfg.SaveToStream(str);
str.saveToFile(getCoeditDocPath + 'dockingopts.bak') str.saveToFile(getDocPath + 'dockingopts.bak')
finally finally
str.Free; str.Free;
end; end;
@ -1964,7 +1964,7 @@ begin
with TCELastDocsAndProjs.create(nil) do with TCELastDocsAndProjs.create(nil) do
try try
assign(self); assign(self);
saveToFile(getCoeditDocPath + 'lastdocsandproj.txt'); saveToFile(getDocPath + 'lastdocsandproj.txt');
finally finally
free; free;
end; end;
@ -1974,7 +1974,7 @@ procedure TCEMainForm.LoadLastDocsAndProj;
var var
str: string; str: string;
begin begin
str := getCoeditDocPath + 'lastdocsandproj.txt'; str := getDocPath + 'lastdocsandproj.txt';
if str.fileExists then if str.fileExists then
with TCELastDocsAndProjs.create(nil) do with TCELastDocsAndProjs.create(nil) do
try try
@ -1987,7 +1987,7 @@ end;
function checkForUpdate: string; function checkForUpdate: string;
const const
updURL = 'https://api.github.com/repos/BBasile/Coedit/releases/latest'; updURL = 'https://api.github.com/repos/BBasile/dexed/releases/latest';
var var
prs: TJSONParser = nil; prs: TJSONParser = nil;
dat: TJSONData = nil; dat: TJSONData = nil;
@ -2078,7 +2078,7 @@ begin
DockMaster.ResetSplitters; DockMaster.ResetSplitters;
setSplitterWheelEvent; setSplitterWheelEvent;
if fFirstTimeCoedit then if fFirstTimeRun then
begin begin
actFileNewRun.Execute; actFileNewRun.Execute;
if fInfoWidg.hasMissingTools then if fInfoWidg.hasMissingTools then
@ -2087,7 +2087,7 @@ begin
// see https://bugs.freepascal.org/view.php?id=29475 // see https://bugs.freepascal.org/view.php?id=29475
// reloading must be done here otherwise there are "jumps" // reloading must be done here otherwise there are "jumps"
if FileExists(getCoeditDocPath + 'docking.xml') then if FileExists(getDocPath + 'docking.xml') then
LoadDocking(); LoadDocking();
if fAppliOpts.autoCheckUpdates then if fAppliOpts.autoCheckUpdates then
@ -2142,7 +2142,7 @@ end;
procedure TCEMainForm.mnuItemManualClick(Sender: TObject); procedure TCEMainForm.mnuItemManualClick(Sender: TObject);
begin begin
OpenURL('https://bbasile.github.io/Coedit/'); OpenURL('https://bbasile.github.io/dexed/');
end; end;
destructor TCEMainForm.destroy; destructor TCEMainForm.destroy;
@ -2164,7 +2164,7 @@ end;
procedure TCEMainForm.UpdateDockCaption(Exclude: TControl = nil); procedure TCEMainForm.UpdateDockCaption(Exclude: TControl = nil);
begin begin
// otherwise dockmaster puts the widget list. // otherwise dockmaster puts the widget list.
Caption := 'Coedit'; Caption := 'dexed';
end; end;
procedure TCEMainForm.ApplicationProperties1Exception(Sender: TObject;E: Exception); procedure TCEMainForm.ApplicationProperties1Exception(Sender: TObject;E: Exception);
@ -2679,7 +2679,7 @@ begin
LineEnding + LineEnding +
'void main(string[] args)' + LineEnding + 'void main(string[] args)' + LineEnding +
'{' + LineEnding + '{' + LineEnding +
body[fFirstTimeCoedit] + body[fFirstTimeRun] +
'}'; '}';
fDoc.setFocus; fDoc.setFocus;
end; end;
@ -3100,7 +3100,7 @@ begin
end end
else else
begin begin
// back compat, see https://github.com/BBasile/Coedit/issues/276 // back compat, see https://github.com/BBasile/dexed/issues/276
dmdproc.Parameters.Add('-version=runnable_module'); dmdproc.Parameters.Add('-version=runnable_module');
dmdproc.Parameters.Add('-version=run_single_module'); dmdproc.Parameters.Add('-version=run_single_module');
@ -3623,7 +3623,7 @@ begin
lst := TStringList.Create; lst := TStringList.Create;
try try
listFiles(lst, getCoeditDocPath + 'layouts' + DirectorySeparator); listFiles(lst, getDocPath + 'layouts' + DirectorySeparator);
for i := 0 to lst.Count-1 do for i := 0 to lst.Count-1 do
begin begin
itm := TMenuItem.Create(self); itm := TMenuItem.Create(self);
@ -3640,7 +3640,7 @@ end;
procedure TCEMainForm.layoutMnuItemClick(sender: TObject); procedure TCEMainForm.layoutMnuItemClick(sender: TObject);
begin begin
layoutLoadFromFile(getCoeditDocPath + 'layouts' + DirectorySeparator + layoutLoadFromFile(getDocPath + 'layouts' + DirectorySeparator +
TMenuItem(sender).Caption + '.xml'); TMenuItem(sender).Caption + '.xml');
end; end;
@ -3655,7 +3655,7 @@ begin
if fname.extractFileExt <> '.xml' then if fname.extractFileExt <> '.xml' then
fname += '.xml'; fname += '.xml';
layoutSaveToFile(getCoeditDocPath + 'layouts' + DirectorySeparator + fname); layoutSaveToFile(getDocPath + 'layouts' + DirectorySeparator + fname);
layoutUpdateMenu; layoutUpdateMenu;
end; end;
@ -3717,9 +3717,9 @@ end;
procedure TCEMainForm.showProjTitle; procedure TCEMainForm.showProjTitle;
begin begin
if assigned(fProject) and fProject.filename.fileExists then if assigned(fProject) and fProject.filename.fileExists then
caption := format('Coedit - %s', [shortenPath(fProject.filename, 30)]) caption := format('dexed - %s', [shortenPath(fProject.filename, 30)])
else else
caption := 'Coedit'; caption := 'dexed';
end; end;
procedure TCEMainForm.saveProjSource(const document: TCESynMemo); procedure TCEMainForm.saveProjSource(const document: TCESynMemo);

6
src/ce_messages.pas
View File

@ -447,7 +447,7 @@ begin
fEditorMessagePos := TCEEditorMessagePos.Create; fEditorMessagePos := TCEEditorMessagePos.Create;
fname := getCoeditDocPath + optname; fname := getDocPath + optname;
if fname.fileExists then if fname.fileExists then
begin begin
fOptions.loadFromFile(fname); fOptions.loadFromFile(fname);
@ -461,7 +461,7 @@ end;
destructor TCEMessagesWidget.destroy; destructor TCEMessagesWidget.destroy;
begin begin
fEditorMessagePos.Free; fEditorMessagePos.Free;
fOptions.saveToFile(getCoeditDocPath + optname); fOptions.saveToFile(getDocPath + optname);
EntitiesConnector.removeObserver(self); EntitiesConnector.removeObserver(self);
inherited; inherited;
end; end;
@ -1027,7 +1027,7 @@ begin
if not openFileFromDmdMessage(msg) then if not openFileFromDmdMessage(msg) then
exit; exit;
// fixes strange bug : https://github.com/BBasile/Coedit/issues/320 // fixes strange bug : https://github.com/BBasile/dexed/issues/320
if (fDoc <> old) and fOptions.singleMessageClick and if (fDoc <> old) and fOptions.singleMessageClick and
assigned(dat) and (dat^.ctxt = amcEdit) then assigned(dat) and (dat^.ctxt = amcEdit) then
List.ClearSelection(false); List.ClearSelection(false);

4
src/ce_miniexplorer.pas
View File

@ -356,7 +356,7 @@ begin
treeSetRoots; treeSetRoots;
fname := getCoeditDocPath + OptsFname; fname := getDocPath + OptsFname;
if fname.fileExists then if fname.fileExists then
with TCEMiniExplorerOptions.create(nil) do with TCEMiniExplorerOptions.create(nil) do
try try
@ -378,7 +378,7 @@ begin
with TCEMiniExplorerOptions.create(nil) do with TCEMiniExplorerOptions.create(nil) do
try try
assign(self); assign(self);
saveToFile(getCoeditDocPath + OptsFname); saveToFile(getDocPath + OptsFname);
finally finally
free; free;
end; end;

4
src/ce_observer.pas
View File

@ -10,7 +10,7 @@ uses
type type
(** (**
* interface for a single Coedit service (many to one relation). * interface for a single service (many to one relation).
* A service is valid during the whole application life-time and * A service is valid during the whole application life-time and
* is mostly designed to avoid messy uses clauses or to limit * is mostly designed to avoid messy uses clauses or to limit
* the visibility of the implementer methods. * the visibility of the implementer methods.
@ -57,7 +57,7 @@ type
end; end;
(** (**
* Interface for a Coedit subject. Basically designed to hold a list of observer * Interface for a subject. Basically designed to hold a list of observer
*) *)
ICESubject = interface ICESubject = interface
// an observer is proposed. anObserver is not necessarly compatible. // an observer is proposed. anObserver is not necessarly compatible.

2
src/ce_processes.pas
View File

@ -10,7 +10,7 @@ uses
type type
{ {
The stanndard process wrapper used in Coedit. The standard process wrapper that used accross the applicaton.
This class solves several issues encountered when using TProcess and TAsyncProcess: This class solves several issues encountered when using TProcess and TAsyncProcess:

13
src/ce_procinput.lfm
View File

@ -13,6 +13,7 @@ inherited CEProcInputWidget: TCEProcInputWidget
ClientWidth = 558 ClientWidth = 558
inherited Content: TPanel inherited Content: TPanel
Height = 71 Height = 71
Top = 36
Width = 558 Width = 558
ClientHeight = 71 ClientHeight = 71
ClientWidth = 558 ClientWidth = 558
@ -31,20 +32,20 @@ inherited CEProcInputWidget: TCEProcInputWidget
end end
object Panel1: TPanel[1] object Panel1: TPanel[1]
Left = 4 Left = 4
Height = 31 Height = 33
Top = 29 Top = 29
Width = 550 Width = 550
Align = alTop Align = alTop
AutoSize = True AutoSize = True
BorderSpacing.Around = 4 BorderSpacing.Around = 4
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 31 ClientHeight = 33
ClientWidth = 550 ClientWidth = 550
Enabled = False Enabled = False
TabOrder = 1 TabOrder = 1
object txtInp: TEdit object txtInp: TEdit
Left = 0 Left = 0
Height = 25 Height = 27
Top = 3 Top = 3
Width = 530 Width = 530
Align = alClient Align = alClient
@ -55,7 +56,7 @@ inherited CEProcInputWidget: TCEProcInputWidget
end end
object btnClose: TSpeedButton object btnClose: TSpeedButton
Left = 538 Left = 538
Height = 27 Height = 29
Hint = 'close standard input' Hint = 'close standard input'
Top = 2 Top = 2
Width = 4 Width = 4
@ -66,7 +67,7 @@ inherited CEProcInputWidget: TCEProcInputWidget
end end
object btnKill: TSpeedButton object btnKill: TSpeedButton
Left = 544 Left = 544
Height = 27 Height = 29
Hint = 'kill process' Hint = 'kill process'
Top = 2 Top = 2
Width = 4 Width = 4
@ -77,7 +78,7 @@ inherited CEProcInputWidget: TCEProcInputWidget
end end
object btnSend: TSpeedButton object btnSend: TSpeedButton
Left = 532 Left = 532
Height = 27 Height = 29
Hint = 'write content to standard input' Hint = 'write content to standard input'
Top = 2 Top = 2
Width = 4 Width = 4

4
src/ce_procinput.pas
View File

@ -61,7 +61,7 @@ begin
fMru := TCEMRUList.Create; fMru := TCEMRUList.Create;
fMru.maxCount := 25; fMru.maxCount := 25;
EntitiesConnector.addSingleService(self); EntitiesConnector.addSingleService(self);
fname := getCoeditDocPath + OptsFname; fname := getDocPath + OptsFname;
if OptsFname.fileExists then if OptsFname.fileExists then
fMru.LoadFromFile(fname); fMru.LoadFromFile(fname);
if fMru.Count = 0 then if fMru.Count = 0 then
@ -94,7 +94,7 @@ end;
destructor TCEProcInputWidget.destroy; destructor TCEProcInputWidget.destroy;
begin begin
// note that mru list max count is not saved. // note that mru list max count is not saved.
fMru.SaveToFile(getCoeditDocPath + OptsFname); fMru.SaveToFile(getDocPath + OptsFname);
fMru.Free; fMru.Free;
inherited; inherited;
end; end;

26
src/ce_profileviewer.lfm
View File

@ -35,27 +35,27 @@ inherited CEProfileViewerWidget: TCEProfileViewerWidget
item item
AutoSize = True AutoSize = True
Caption = 'Num calls' Caption = 'Num calls'
Width = 75
end
item
AutoSize = True
Caption = 'Tree time'
Width = 71
end
item
AutoSize = True
Caption = 'Func time'
Width = 73 Width = 73
end end
item
AutoSize = True
Caption = 'Tree time'
Width = 69
end
item
AutoSize = True
Caption = 'Func time'
Width = 71
end
item item
AutoSize = True AutoSize = True
Caption = 'Per call' Caption = 'Per call'
Width = 58 Width = 56
end end
item item
AutoSize = True AutoSize = True
Caption = 'function' Caption = 'function'
Width = 246 Width = 254
end> end>
HideSelection = False HideSelection = False
ReadOnly = True ReadOnly = True
@ -165,7 +165,7 @@ inherited CEProfileViewerWidget: TCEProfileViewerWidget
end end
object selPieSource: TComboBox[3] object selPieSource: TComboBox[3]
Left = 118 Left = 118
Height = 33 Height = 31
Hint = 'select the pie representation' Hint = 'select the pie representation'
Top = 0 Top = 0
Width = 282 Width = 282

4
src/ce_profileviewer.pas
View File

@ -135,14 +135,14 @@ begin
inherited create(aOwner); inherited create(aOwner);
fBackup := TCEProfileViewerOptionsBase.create(nil); fBackup := TCEProfileViewerOptionsBase.create(nil);
EntitiesConnector.addObserver(self); EntitiesConnector.addObserver(self);
s := getCoeditDocPath + optFname; s := getDocPath + optFname;
if s.fileExists then if s.fileExists then
loadFromFile(s); loadFromFile(s);
end; end;
destructor TCEprofileViewerOptions.destroy; destructor TCEprofileViewerOptions.destroy;
begin begin
saveTofile(getCoeditDocPath + optFname); saveTofile(getDocPath + optFname);
EntitiesConnector.removeObserver(self); EntitiesConnector.removeObserver(self);
fBackup.free; fBackup.free;
inherited; inherited;

4
src/ce_projinspect.pas
View File

@ -165,7 +165,7 @@ begin
TreeFilterEdit1.BorderSpacing.Left := ScaleX(filterAlign[false], 96); TreeFilterEdit1.BorderSpacing.Left := ScaleX(filterAlign[false], 96);
toolbarResize(nil); toolbarResize(nil);
fname := getCoeditDocPath + optFname; fname := getDocPath + optFname;
if fname.fileExists then if fname.fileExists then
begin begin
with TCEProjectInspectorOptions.Create(nil) do with TCEProjectInspectorOptions.Create(nil) do
@ -186,7 +186,7 @@ begin
with TCEProjectInspectorOptions.Create(nil) do with TCEProjectInspectorOptions.Create(nil) do
try try
fileListAsTree:= self.fileListAsTree; fileListAsTree:= self.fileListAsTree;
saveToFile(getCoeditDocPath + optFname); saveToFile(getDocPath + optFname);
finally finally
free; free;
end; end;

96
src/ce_search.lfm
View File

@ -19,7 +19,7 @@ inherited CESearchWidget: TCESearchWidget
ClientWidth = 422 ClientWidth = 422
object cbToFind: TComboBox[0] object cbToFind: TComboBox[0]
Left = 4 Left = 4
Height = 29 Height = 27
Top = 4 Top = 4
Width = 414 Width = 414
Align = alTop Align = alTop
@ -34,8 +34,8 @@ inherited CESearchWidget: TCESearchWidget
end end
object btnFind: TBitBtn[1] object btnFind: TBitBtn[1]
Left = 4 Left = 4
Height = 29 Height = 27
Top = 161 Top = 169
Width = 414 Width = 414
Align = alBottom Align = alBottom
AutoSize = True AutoSize = True
@ -45,8 +45,8 @@ inherited CESearchWidget: TCESearchWidget
end end
object btnReplace: TBitBtn[2] object btnReplace: TBitBtn[2]
Left = 4 Left = 4
Height = 29 Height = 27
Top = 227 Top = 231
Width = 414 Width = 414
Align = alBottom Align = alBottom
AutoSize = True AutoSize = True
@ -56,21 +56,21 @@ inherited CESearchWidget: TCESearchWidget
end end
object grpOpts: TGroupBox[3] object grpOpts: TGroupBox[3]
Left = 4 Left = 4
Height = 87 Height = 99
Top = 70 Top = 66
Width = 414 Width = 414
Align = alClient Align = alClient
AutoSize = True AutoSize = True
BorderSpacing.Around = 4 BorderSpacing.Around = 4
Caption = 'Options' Caption = 'Options'
ClientHeight = 69 ClientHeight = 80
ClientWidth = 412 ClientWidth = 410
TabOrder = 4 TabOrder = 4
object FlowPanel1: TFlowPanel object FlowPanel1: TFlowPanel
Left = 0 Left = 0
Height = 69 Height = 80
Top = 0 Top = 0
Width = 412 Width = 410
Align = alClient Align = alClient
AutoSize = True AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
@ -110,9 +110,9 @@ inherited CESearchWidget: TCESearchWidget
TabOrder = 0 TabOrder = 0
object chkRegex: TCheckBox object chkRegex: TCheckBox
Left = 0 Left = 0
Height = 22 Height = 20
Top = 0 Top = 0
Width = 100 Width = 98
Anchors = [] Anchors = []
Caption = 'allow regex' Caption = 'allow regex'
Checked = True Checked = True
@ -121,27 +121,27 @@ inherited CESearchWidget: TCESearchWidget
end end
object chkPrompt: TCheckBox object chkPrompt: TCheckBox
Left = 0 Left = 0
Height = 22 Height = 20
Top = 23 Top = 21
Width = 71 Width = 69
Anchors = [] Anchors = []
Caption = 'prompt' Caption = 'prompt'
TabOrder = 1 TabOrder = 1
end end
object chkCaseSens: TCheckBox object chkCaseSens: TCheckBox
Left = 0 Left = 0
Height = 22 Height = 20
Top = 46 Top = 42
Width = 117 Width = 115
Anchors = [] Anchors = []
Caption = 'case sensitive' Caption = 'case sensitive'
TabOrder = 2 TabOrder = 2
end end
object chkFromCur: TCheckBox object chkFromCur: TCheckBox
Left = 117 Left = 115
Height = 22 Height = 20
Top = 0 Top = 0
Width = 99 Width = 97
Anchors = [] Anchors = []
Caption = 'from cursor' Caption = 'from cursor'
Checked = True Checked = True
@ -149,19 +149,19 @@ inherited CESearchWidget: TCESearchWidget
TabOrder = 3 TabOrder = 3
end end
object chkBack: TCheckBox object chkBack: TCheckBox
Left = 117 Left = 115
Height = 22 Height = 20
Top = 23 Top = 21
Width = 87 Width = 85
Anchors = [] Anchors = []
Caption = 'backward' Caption = 'backward'
TabOrder = 4 TabOrder = 4
end end
object chkWWord: TCheckBox object chkWWord: TCheckBox
Left = 117 Left = 115
Height = 22 Height = 20
Top = 46 Top = 42
Width = 99 Width = 97
Anchors = [] Anchors = []
Caption = 'whole word' Caption = 'whole word'
Checked = True Checked = True
@ -172,8 +172,8 @@ inherited CESearchWidget: TCESearchWidget
end end
object btnReplaceAll: TBitBtn[4] object btnReplaceAll: TBitBtn[4]
Left = 4 Left = 4
Height = 29 Height = 27
Top = 260 Top = 262
Width = 414 Width = 414
Align = alBottom Align = alBottom
AutoSize = True AutoSize = True
@ -183,21 +183,21 @@ inherited CESearchWidget: TCESearchWidget
end end
object Panel1: TPanel[5] object Panel1: TPanel[5]
Left = 4 Left = 4
Height = 29 Height = 27
Top = 37 Top = 35
Width = 414 Width = 414
Align = alTop Align = alTop
AutoSize = True AutoSize = True
BorderSpacing.Around = 4 BorderSpacing.Around = 4
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 29 ClientHeight = 27
ClientWidth = 414 ClientWidth = 414
TabOrder = 5 TabOrder = 5
object cbReplaceWth: TComboBox object cbReplaceWth: TComboBox
Left = 111 Left = 109
Height = 29 Height = 27
Top = 0 Top = 0
Width = 303 Width = 305
Align = alClient Align = alClient
AutoComplete = True AutoComplete = True
AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchCaseSensitive, cbactSearchAscending] AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchCaseSensitive, cbactSearchAscending]
@ -209,9 +209,9 @@ inherited CESearchWidget: TCESearchWidget
end end
object chkEnableRep: TCheckBox object chkEnableRep: TCheckBox
Left = 0 Left = 0
Height = 29 Height = 27
Top = 0 Top = 0
Width = 111 Width = 109
Align = alLeft Align = alLeft
Caption = 'Replace with ' Caption = 'Replace with '
OnChange = chkEnableRepChange OnChange = chkEnableRepChange
@ -220,31 +220,31 @@ inherited CESearchWidget: TCESearchWidget
end end
object Panel2: TPanel[6] object Panel2: TPanel[6]
Left = 4 Left = 4
Height = 29 Height = 27
Top = 194 Top = 200
Width = 414 Width = 414
Align = alBottom Align = alBottom
AutoSize = True AutoSize = True
BorderSpacing.Around = 4 BorderSpacing.Around = 4
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 29 ClientHeight = 27
ClientWidth = 414 ClientWidth = 414
TabOrder = 6 TabOrder = 6
object btnFindAll: TBitBtn object btnFindAll: TBitBtn
Left = 0 Left = 0
Height = 29 Height = 27
Top = 0 Top = 0
Width = 400 Width = 402
Align = alClient Align = alClient
AutoSize = True AutoSize = True
Caption = 'btnFindAll' Caption = 'btnFindAll'
TabOrder = 0 TabOrder = 0
end end
object btnAllScope: TBitBtn object btnAllScope: TBitBtn
Left = 402 Left = 404
Height = 29 Height = 27
Top = 0 Top = 0
Width = 12 Width = 10
Align = alRight Align = alRight
AutoSize = True AutoSize = True
BorderSpacing.Left = 2 BorderSpacing.Left = 2

6
src/ce_search.pas
View File

@ -234,7 +234,7 @@ begin
fSearchMru := TCEMruList.Create; fSearchMru := TCEMruList.Create;
fReplaceMru:= TCEMruList.Create; fReplaceMru:= TCEMruList.Create;
fname := getCoeditDocPath + OptsFname; fname := getDocPath + OptsFname;
if fname.fileExists then with TCESearchOptions.create(nil) do if fname.fileExists then with TCESearchOptions.create(nil) do
try try
loadFromFile(fname); loadFromFile(fname);
@ -284,7 +284,7 @@ begin
with TCESearchOptions.create(nil) do with TCESearchOptions.create(nil) do
try try
assign(self); assign(self);
saveToFile(getCoeditDocPath + OptsFname); saveToFile(getDocPath + OptsFname);
finally finally
free; free;
end; end;
@ -311,7 +311,7 @@ function dlgReplaceAll: TModalResult;
const const
Btns = [mbYes, mbNo, mbYesToAll, mbNoToAll]; Btns = [mbYes, mbNo, mbYesToAll, mbNoToAll];
begin begin
exit( MessageDlg('Coedit', 'Replace this match ?', mtConfirmation, Btns, '')); exit( MessageDlg('dexed', 'Replace this match ?', mtConfirmation, Btns, ''));
end; end;
procedure TCESearchWidget.replaceEvent(Sender: TObject; const ASearch, AReplace: procedure TCESearchWidget.replaceEvent(Sender: TObject; const ASearch, AReplace:

4
src/ce_symlist.pas
View File

@ -418,7 +418,7 @@ begin
TreeFilterEdit1.BorderSpacing.Left:= ScaleX(30,96); TreeFilterEdit1.BorderSpacing.Left:= ScaleX(30,96);
fOptions := TCESymbolListOptions.Create(self); fOptions := TCESymbolListOptions.Create(self);
fOptions.Name:= 'symbolListOptions'; fOptions.Name:= 'symbolListOptions';
fname := getCoeditDocPath + OptsFname; fname := getDocPath + OptsFname;
if fname.fileExists then if fname.fileExists then
fOptions.loadFromFile(fname); fOptions.loadFromFile(fname);
fOptions.AssignTo(self); fOptions.AssignTo(self);
@ -451,7 +451,7 @@ begin
killProcess(fToolProc); killProcess(fToolProc);
fSyms.Free; fSyms.Free;
fOptions.saveToFile(getCoeditDocPath + OptsFname); fOptions.saveToFile(getDocPath + OptsFname);
fOptions.Free; fOptions.Free;
inherited; inherited;

6
src/ce_symstring.pas
View File

@ -23,7 +23,7 @@ const
type type
(** (**
* TCESymbolExpander is designed to expand Coedit symbolic strings, * TCESymbolExpander is designed to expand symbolic strings,
* using the information collected from several observer interfaces. * using the information collected from several observer interfaces.
*) *)
TCESymbolExpander = class(ICEDocumentObserver, ICEProjectObserver, ICESymStringExpander, ICEMiniExplorerObserver) TCESymbolExpander = class(ICEDocumentObserver, ICEProjectObserver, ICESymStringExpander, ICEMiniExplorerObserver)
@ -295,8 +295,8 @@ begin
'ENV_TEMP': Result += fSymbols[ENV_TEMP]; 'ENV_TEMP': Result += fSymbols[ENV_TEMP];
'ENV_USER': Result += fSymbols[ENV_USER]; 'ENV_USER': Result += fSymbols[ENV_USER];
// //
'CAF', 'CoeditApplicationFile': Result += fSymbols[CAF]; 'AF', 'CAF', 'CoeditApplicationFile': Result += fSymbols[CAF];
'CAP', 'CoeditApplicationPath': Result += fSymbols[CAP]; 'AP', 'CAP', 'CoeditApplicationPath': Result += fSymbols[CAP];
'MEP', 'MiniExplorerPath': Result += fSymbols[MEP]; 'MEP', 'MiniExplorerPath': Result += fSymbols[MEP];
// //
'CFF', 'CurrentFileFile' : Result += fSymbols[CFF]; 'CFF', 'CurrentFileFile' : Result += fSymbols[CFF];

14
src/ce_synmemo.pas
View File

@ -426,7 +426,7 @@ type
constructor construct(numSpaces, numTabs: integer); constructor construct(numSpaces, numTabs: integer);
end; end;
procedure SetDefaultCoeditKeystrokes(ed: TSynEdit); procedure SetDefaultDexedKeystrokes(ed: TSynEdit);
function CustomStringToCommand(const Ident: string; var Int: Longint): Boolean; function CustomStringToCommand(const Ident: string; var Int: Longint): Boolean;
function CustomCommandToSstring(Int: Longint; var Ident: string): Boolean; function CustomCommandToSstring(Int: Longint; var Ident: string): Boolean;
@ -820,7 +820,7 @@ begin
if (tempn = fMemo.tempFilename) or (not tempn.fileExists) then if (tempn = fMemo.tempFilename) or (not tempn.fileExists) then
exit; exit;
fname := getCoeditDocPath + 'editorcache' + DirectorySeparator; fname := getDocPath + 'editorcache' + DirectorySeparator;
ForceDirectories(fname); ForceDirectories(fname);
chksm := crc32(0, nil, 0); chksm := crc32(0, nil, 0);
chksm := crc32(chksm, @tempn[1], tempn.length); chksm := crc32(chksm, @tempn[1], tempn.length);
@ -838,7 +838,7 @@ begin
if not tempn.fileExists then if not tempn.fileExists then
exit; exit;
fname := getCoeditDocPath + 'editorcache' + DirectorySeparator; fname := getDocPath + 'editorcache' + DirectorySeparator;
chksm := crc32(0, nil, 0); chksm := crc32(0, nil, 0);
chksm := crc32(chksm, @tempn[1], tempn.length); chksm := crc32(chksm, @tempn[1], tempn.length);
fname := fname + format('%.8X.txt', [chksm]); fname := fname + format('%.8X.txt', [chksm]);
@ -1004,7 +1004,7 @@ begin
OnStatusChange:= @handleStatusChanged; OnStatusChange:= @handleStatusChanged;
fDefaultFontSize := 10; fDefaultFontSize := 10;
Font.Size:=10; Font.Size:=10;
SetDefaultCoeditKeystrokes(Self); // not called in inherited if owner = nil ! SetDefaultDexedKeystrokes(Self); // not called in inherited if owner = nil !
fLexToks:= TLexTokenList.Create; fLexToks:= TLexTokenList.Create;
fSmartDdocNewline := true; fSmartDdocNewline := true;
@ -1276,7 +1276,7 @@ end;
{$ENDREGION --------------------------------------------------------------------} {$ENDREGION --------------------------------------------------------------------}
{$REGION Custom editor commands and shortcuts ----------------------------------} {$REGION Custom editor commands and shortcuts ----------------------------------}
procedure SetDefaultCoeditKeystrokes(ed: TSynEdit); procedure SetDefaultDexedKeystrokes(ed: TSynEdit);
begin begin
with ed do with ed do
begin begin
@ -3023,7 +3023,7 @@ begin
end; end;
{$ENDREGION --------------------------------------------------------------------} {$ENDREGION --------------------------------------------------------------------}
{$REGION Coedit memo things ----------------------------------------------------} {$REGION memo things -----------------------------------------------------------}
procedure TCESynMemo.handleStatusChanged(Sender: TObject; Changes: TSynStatusChanges); procedure TCESynMemo.handleStatusChanged(Sender: TObject; Changes: TSynStatusChanges);
begin begin
if scOptions in Changes then if scOptions in Changes then
@ -3313,7 +3313,7 @@ var
begin begin
lst := TStringList.Create; lst := TStringList.Create;
try try
listFiles(lst, getCoeditDocPath + 'editorcache' + DirectorySeparator); listFiles(lst, getDocPath + 'editorcache' + DirectorySeparator);
today := date(); today := date();
for fname in lst do if FileAge(fname, t) then for fname in lst do if FileAge(fname, t) then
begin begin

4
src/ce_term.pas
View File

@ -212,7 +212,7 @@ begin
fOpts:= TCETerminalOptions.Create(self); fOpts:= TCETerminalOptions.Create(self);
f := getCoeditDocPath + optFname; f := getDocPath + optFname;
if f.fileExists then if f.fileExists then
fOpts.loadFromFile(f); fOpts.loadFromFile(f);
@ -221,7 +221,7 @@ end;
destructor TCETermWidget.destroy; destructor TCETermWidget.destroy;
begin begin
fOpts.saveToFile(getCoeditDocPath + optFname); fOpts.saveToFile(getDocPath + optFname);
EntitiesConnector.removeObserver(fOpts); EntitiesConnector.removeObserver(fOpts);
inherited; inherited;
end; end;

11
src/ce_todolist.lfm
View File

@ -29,31 +29,32 @@ inherited CETodoListWidget: TCETodoListWidget
item item
AutoSize = True AutoSize = True
Caption = 'text' Caption = 'text'
Width = 36 Width = 34
end end
item item
AutoSize = True AutoSize = True
Caption = 'category' Caption = 'category'
Width = 67 Width = 65
end end
item item
AutoSize = True AutoSize = True
Caption = 'assignee' Caption = 'assignee'
Width = 68 Width = 66
end end
item item
AutoSize = True AutoSize = True
Caption = 'status' Caption = 'status'
Width = 48
end end
item item
AutoSize = True AutoSize = True
Caption = 'priority' Caption = 'priority'
Width = 57 Width = 55
end end
item item
AutoSize = True AutoSize = True
Caption = 'file' Caption = 'file'
Width = 278 Width = 291
end> end>
ReadOnly = True ReadOnly = True
SortType = stText SortType = stText

4
src/ce_todolist.pas
View File

@ -230,7 +230,7 @@ begin
lstfilter.OnChange := @filterItems; lstfilter.OnChange := @filterItems;
btnGo.OnClick := @handleListClick; btnGo.OnClick := @handleListClick;
fname := getCoeditDocPath + OptFname; fname := getDocPath + OptFname;
if fname.fileExists then if fname.fileExists then
begin begin
fOptions.loadFromFile(fname); fOptions.loadFromFile(fname);
@ -242,7 +242,7 @@ end;
destructor TCETodoListWidget.Destroy; destructor TCETodoListWidget.Destroy;
begin begin
fOptions.saveToFile(getCoeditDocPath + OptFname); fOptions.saveToFile(getDocPath + OptFname);
killToolProcess; killToolProcess;
inherited; inherited;
end; end;

6
src/ce_tools.pas
View File

@ -287,7 +287,7 @@ var
begin begin
inherited; inherited;
fTools := TCEToolItems.Create(TCEToolItem); fTools := TCEToolItems.Create(TCEToolItem);
fname := getCoeditDocPath + toolsFname; fname := getDocPath + toolsFname;
if fname.fileExists then if fname.fileExists then
loadFromFile(fname); loadFromFile(fname);
@ -298,8 +298,8 @@ destructor TCETools.destroy;
begin begin
EntitiesConnector.removeObserver(self); EntitiesConnector.removeObserver(self);
ForceDirectoriesUTF8(getCoeditDocPath); ForceDirectoriesUTF8(getDocPath);
saveToFile(getCoeditDocPath + toolsFname); saveToFile(getDocPath + toolsFname);
fTools.Free; fTools.Free;
inherited; inherited;
end; end;