Next thinBasic: template dialog

[ErosOlmi]

Petr,

your code is working as T90 Tank

I think that we need to add a CDATA inside <code>...</code> in order to avoid character misinterpretation:

My code is not able to interpret CDATA and it just hangs
Your code seems just ignoring and returned source code is the code plus CDATA so your code is much better.

I will see what I can do.
Eros

[ErosOlmi]

I forgot I have a MSXML wrapper: #INCLUDE "%APP_INCLUDEPATH%\TB_XML60.INC"

Will see what I can get from it.

[kryton9]

I like the layout Eros. About section 3, how about keeping the data in a SQL database on the server. This way there are no xml files to distribute and information is up to date all the time. In fact, the templates themselves could come from the server. So only templates people need are downloaded and your distribution file remains small.

[ErosOlmi]

Thanks Kent

Maybe on a second step I will add server side templates but at first they will be distributed with setup. They are just text files so the space they occupy on a compressed distribution is just minimum.

Eros

[Petr Schreiber]

The CDATA note is important. I think even my T90 routines would have problem in case the text between <Code></Code> would contain </Code> for example in string.


Petr

[largo_winch]

1)

Template file format
I would move the template file format completely to XML, having the following structure:

petr, does this mean your are only taking this xml for header import? Not for whole dialog code example content I am not sure what's your intention, better to ask here for it. the dialog code example content doesn't need this xml text format? if that's the case ist true I can't read nor more this code format with adding colors and styles formats or java script enhancements in xml text

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<verzeichnis>
     <titel>Wikipedia Städteverzeichnis</titel>
     <eintrag>
          <stichwort>Genf</stichwort>
          <eintragstext>Genf ist der Sitz von ...</eintragstext>
     </eintrag>
     <eintrag>
          <stichwort>Köln</stichwort>
          <eintragstext>Köln ist eine Stadt, die ...</eintragstext>
     </eintrag>
</verzeichnis>

2) a dialog should have a

a) simple list/combobox for thinbasic *tmplate too
b) and I like to add the color of a dialog window parameters with simple adding at the end two commands ( rgb(100,0,200), rgb(255,160,255) or/and "gradient style" ) of dialog parameter
c) dialog with menu (and perhaps toolbar)

I shall write that for you?

I generally like the idea for new dialog format/template.

bye, largo

[ErosOlmi]

Largo,

just to be sure ...
we are talking about improving thinAir/File/New dialog
and improving the <template> file structure transforming it from plain text to xml code for better handling and future enhancements

Ciao
Eros

[ErosOlmi]

Below code is parsing XML thinAir template idea of Petr using thinBasic native XML wrapper.
I think I will go this way for thinAir parser.

Attached thinBasic source and template

Code

Uses "Console"


#INCLUDE "%APP_INCLUDEPATH%\TB_XML60.INC"


$XMLFile = APP_SourcePath+"_Template_.xml"
  
Function TBMain()
  
  Local pXmlDoc         As DWord
  Local pRoot           As DWord
  Local pRootName       As String
  Local pRootVersion    As Variant
  Local pRootType       As Variant
  
  Local pHeader         As DWord
  Local pFiles          As DWord
  Local pFile           As DWord
  Local FileCount       As Long
  Local pFileInfo       As DWord
    
  Local pNode           As DWord


  pXmlDoc = XmlCreateObject("Msxml2.DOMDocument")'.6.0")
  IXMLDOMDocument_put_async pXmlDoc, %FALSE


  IXMLDOMDocument_load(pXmlDoc, $XMLFile)
  If XmlParseError_get_errorCode(pXmlDoc) <> 0 Then
     PrintL XmlParseError_get_reason(pXmlDoc)
  Else
    '------------------------------------------------------------
    '---Get thinAirTemplate Root
    '------------------------------------------------------------
      PrintL "-[Root Info]------------------------------------"
      pRoot = IXMLDOMDocument_get_documentElement(pXmlDoc)
      pRootName = IXMLDOMDocument_get_nodeName(pRoot)
      IXMLDOMElement_getAttribute(pRoot, "version", pRootVersion)
      IXMLDOMElement_getAttribute(pRoot, "type", pRootType)
      PrintL "Root name   : " & pRootName
      PrintL "Root version: " & pRootVersion
      PrintL "Root type   : " & pRootType
      PrintL "------------------------------------------------"
      PrintL


    '------------------------------------------------------------
    '---Get Header info
    '------------------------------------------------------------
      PrintL "-[Header   ]------------------------------------"
      pHeader = IXMLDOMElement_get_firstChild(pRoot)
      PrintL "Node name: " & IXMLDOMDocument_get_nodeName(pHeader)
      pNode = IXMLDOMElement_get_FirstChild(pHeader)
      While pNode
        Print IXMLDOMDocument_get_nodeName(pNode) & ": "
        PrintL IXMLDOMDocument_get_text(pNode)
        
        pNode = IXMLDOMElement_get_NextSibling(pNode)
      Wend
      PrintL


    '------------------------------------------------------------
    '---Files info
    '------------------------------------------------------------
      '[breakpoint] <Any note here. Breakpoint will be set to line following this statement>
      PrintL "-[Files    ]------------------------------------"
      pFiles = IXMLDOMElement_get_NextSibling(pHeader)
      PrintL "Node name: " & IXMLDOMDocument_get_nodeName(pFiles)


      '---Loop for each file
      pFile = IXMLDOMElement_get_FirstChild(pFiles)
      While pFile
        Incr FileCount  
        PrintL IXMLDOMDocument_get_nodeName(pFile) & " " & FileCount


        '---Loop for each file info
        pFileInfo = IXMLDOMElement_get_FirstChild(pFile)
        While pFileInfo
          Print IXMLDOMDocument_get_nodeName(pFileInfo) & ": "
          PrintL IXMLDOMDocument_get_text(pFileInfo)
          
          pFileInfo = IXMLDOMElement_get_NextSibling(pFileInfo)
        Wend
        
        pFile = IXMLDOMElement_get_NextSibling(pFile)
      Wend
      PrintL


      PrintL


  End If


  ' cleanup
  XmlRelease pRoot
  XmlRelease pHeader
  XmlRelease pFiles
  XmlRelease pFile
  XmlRelease pFileInfo
  XmlRelease pNode
  XmlRelease pXmlDoc
  
  PrintL "--- Press any key to finish ---"
  WaitKey
    
End Function

Template Example:

<?xml version='1.0'?>
<thinAirTemplate version="1.0" type="template">
	<Header>
		<DescriptionShort>Simple dialog</DescriptionShort>
		<DescriptionLong>This template generates code for single modal dialog</DescriptionLong>
		<Author>Petr Schreiber</Author>
		<Contact>Drop user "Petr Schreiber" a message on ThinBASIC forum</Contact>
		<Version>1.1</Version>
	</Header>
	<Files>
		<File>
			<Name>Dialog_</Name>
			<Extension>tBasic</Extension>
			<Code>
				<![CDATA[


				uses "UI" 


				... here goes thinBasic code of the file ... 


				]]>
			</Code>
			<Signature>hello</Signature>
		</File>
	</Files>
</thinAirTemplate>

[Petr Schreiber]

Hi Eros,

the template dialog in beta has one little problem - when I click the templates, their code appears correctly. But when I use arrow keys to choose the template, the right panel with code does not update at all.
It is probably not an issue, if the code section will be expandable as we discussed earlier.


Petr