(11-06-2021, 09:42)Shordi escribió: y nunca me he arrepentido de ello.Claro que si.
(11-06-2021, 10:00)tincho escribió: Tercoide: clsDefaultJob o alguna otra clase hace algo al evento keypress, tal vez habria que limitarle esta capacidad y hacer algo en el sentido del pre-comando para que las teclas sean captadas en un solo sitio
Saludos.
(10-06-2021, 20:15)tincho escribió: https://github.com/tercoide/GauchoCAD este es el repo de TercoideEste repo no está activo más.
![[Imagen: 4QeIX2Gl.png]](https://i.imgur.com/4QeIX2Gl.png)
Private Sub FirstRun()
Dim aDirs As New String[]
Dim sDir As String
' Dim sTheme As String
Dim o As DesktopFile[]
'' Checking that the necessary directories exist, please add here all the directories that your application need.
aDirs.Add(Config.AppDir)
aDirs.Add(Config.AppDir &/ "readpst")
'' Checking that the necessary directories exist
For Each sDir In aDirs
If Not Exist(sDir) Then
Shell "mkdir -p " & sDir Wait
Endif
Next
If Not Exist(Config.AppDir &/ "README.md") Then
Copy "./README.md" To Config.AppDir &/ "README.md"
Endif
If Not Config.EnvDefaultApps.Exist("TextEditor") Then
o = System.DeskApp2(["text/plain"], ["TextEditor"])
If o.Count > 0 Then
Config.EnvDefaultApps["TextEditor"] = o[0].ProgramName
Endif
Endif
Config.EnvDistro = System.Distro()
Inc Config.EnvRuns
End