home *** CD-ROM | disk | FTP | other *** search
/ Freelog 29 / Freelog029.iso / Bas / Internet / MTELite / GUI / makeTagMenu.tcl < prev    next >
Text File  |  2001-05-09  |  14KB  |  159 lines
  1. catch {destroy .tagMenu}
  2. menu .tagMenu
  3. set ::GUI::outlineElements {}
  4. .tagMenu add command -label {beliebig} -command {insertNewTag $::EditWindow::activeTextWindow}
  5. .tagMenu add separator
  6. menu .tagMenu.html
  7. .tagMenu add cascade -label {HTML-Grundgerⁿst} -menu .tagMenu.html
  8. .tagMenu.html add command -label {<html> (HTML-Wurzelelement)} -command {insertPairedTags $::EditWindow::activeTextWindow html}
  9. lappend ::GUI::structOnlyElements html
  10. .tagMenu.html add command -label {<head> (HTML-Kopfteil)} -command {insertPairedTags $::EditWindow::activeTextWindow head}
  11. lappend ::GUI::structOnlyElements head
  12. menu .tagMenu.html.head
  13. .tagMenu.html add cascade -label {im HTML-Kopfteil} -menu .tagMenu.html.head
  14. .tagMenu.html.head add command -label {<title> (HTML-Titel)} -command {insertPairedTags $::EditWindow::activeTextWindow title}
  15. .tagMenu.html.head add command -label {<style> (CSS-Angaben)} -command {insertPairedTags $::EditWindow::activeTextWindow style}
  16. .tagMenu.html.head add command -label {<meta> (Meta-Angabe)} -command {insertNewEmptyTag $::EditWindow::activeTextWindow meta}
  17. .tagMenu.html.head add command -label {<link> (logische Dateibeziehung)} -command {insertNewEmptyTag $::EditWindow::activeTextWindow link}
  18. .tagMenu.html add command -label {<body> (HTML-K÷rper)} -command {insertPairedTags $::EditWindow::activeTextWindow body}
  19. menu .tagMenu.table
  20. .tagMenu add cascade -label {Tabellenelement} -menu .tagMenu.table
  21. .tagMenu.table add cascade -label {Tabellenkonstruktion} -menu {.tableconstruction}
  22. .tagMenu.table add separator
  23. .tagMenu.table add command -label {<table> (Tabelle)} -command {insertPairedTags $::EditWindow::activeTextWindow table}
  24. lappend ::GUI::structOnlyElements table
  25. .tagMenu.table add command -label {<tr> (Tabellenzeile)} -command {insertPairedTags $::EditWindow::activeTextWindow tr}
  26. lappend ::GUI::structOnlyElements tr
  27. .tagMenu.table add command -label {<td> (Tabellenfeld)} -command {insertPairedTags $::EditWindow::activeTextWindow td}
  28. .tagMenu.table add command -label {<th> (Tabellen-Kopffeld)} -command {insertPairedTags $::EditWindow::activeTextWindow th}
  29. .tagMenu.table add command -label {<thead> (Kopfzeilenbereich)} -command {insertPairedTags $::EditWindow::activeTextWindow thead}
  30. lappend ::GUI::structOnlyElements thead
  31. .tagMenu.table add command -label {<tbody> (Rumpfzeilenbereich)} -command {insertPairedTags $::EditWindow::activeTextWindow tbody}
  32. lappend ::GUI::structOnlyElements tbody
  33. .tagMenu.table add command -label {<tfoot> (Fu▀zeilenbereich)} -command {insertPairedTags $::EditWindow::activeTextWindow tfoot}
  34. lappend ::GUI::structOnlyElements tfoot
  35. .tagMenu.table add command -label {<caption> (Tabellenbeschriftung)} -command {insertPairedTags $::EditWindow::activeTextWindow caption}
  36. .tagMenu.table add command -label {<colgroup> (Bereich fⁿr Spaltenangaben)} -command {insertPairedTags $::EditWindow::activeTextWindow colgroup}
  37. lappend ::GUI::structOnlyElements colgroup
  38. .tagMenu.table add command -label {<col> (Angabe Spaltenbreite)} -command {insertNewEmptyTag $::EditWindow::activeTextWindow col}
  39. menu .tagMenu.text
  40. .tagMenu add cascade -label {Text} -menu .tagMenu.text
  41. .tagMenu.text add command -label {<em> (hervorgehoben)} -command {insertPairedTags $::EditWindow::activeTextWindow em}
  42. lappend ::GUI::textButtons em
  43. .tagMenu.text add command -label {<strong> (stark hervorgehoben)} -command {insertPairedTags $::EditWindow::activeTextWindow strong}
  44. lappend ::GUI::textButtons strong
  45. .tagMenu.text add command -label {<code> (Programm-Quelltext)} -command {insertPairedTags $::EditWindow::activeTextWindow code}
  46. .tagMenu.text add command -label {<samp> (Beispiel)} -command {insertPairedTags $::EditWindow::activeTextWindow samp}
  47. .tagMenu.text add command -label {<kbd> (Tastatur-Text)} -command {insertPairedTags $::EditWindow::activeTextWindow kbd}
  48. .tagMenu.text add command -label {<var> (Variable)} -command {insertPairedTags $::EditWindow::activeTextWindow var}
  49. .tagMenu.text add command -label {<cite> (Zitat)} -command {insertPairedTags $::EditWindow::activeTextWindow cite}
  50. .tagMenu.text add command -label {<dfn> (Definition)} -command {insertPairedTags $::EditWindow::activeTextWindow dfn}
  51. .tagMenu.text add command -label {<abbr> (Abkⁿrzung)} -command {insertPairedTags $::EditWindow::activeTextWindow abbr}
  52. .tagMenu.text add command -label {<acronym> (Buchstabenkⁿrzel)} -command {insertPairedTags $::EditWindow::activeTextWindow acronym}
  53. .tagMenu.text add command -label {<q> (W÷rtliche Rede)} -command {insertPairedTags $::EditWindow::activeTextWindow q}
  54. .tagMenu.text add separator
  55. .tagMenu.text add command -label {<b> (fett)} -command {insertPairedTags $::EditWindow::activeTextWindow b}
  56. .tagMenu.text add command -label {<i> (kursiv)} -command {insertPairedTags $::EditWindow::activeTextWindow i}
  57. .tagMenu.text add command -label {<tt> (laufweitengleich)} -command {insertPairedTags $::EditWindow::activeTextWindow tt}
  58. .tagMenu.text add command -label {<s> (durchgestrichen)} -command {insertPairedTags $::EditWindow::activeTextWindow s}
  59. lappend ::GUI::textButtons s
  60. .tagMenu.text add command -label {<u> (unterstrichen)} -command {insertPairedTags $::EditWindow::activeTextWindow u}
  61. lappend ::GUI::textButtons u
  62. .tagMenu.text add command -label {<big> (gro▀)} -command {insertPairedTags $::EditWindow::activeTextWindow big}
  63. lappend ::GUI::textButtons big
  64. .tagMenu.text add command -label {<small> (klein)} -command {insertPairedTags $::EditWindow::activeTextWindow small}
  65. lappend ::GUI::textButtons small
  66. .tagMenu.text add command -label {<sup> (hochgestellt)} -command {insertPairedTags $::EditWindow::activeTextWindow sup}
  67. .tagMenu.text add command -label {<sub> (tiefgestellt)} -command {insertPairedTags $::EditWindow::activeTextWindow sub}
  68. .tagMenu.text add separator
  69. .tagMenu.text add command -label {<a> (Anker)} -command {insertPairedTags $::EditWindow::activeTextWindow a}
  70. menu .tagMenu.paragraphs
  71. .tagMenu add cascade -label {AbsΣtze} -menu .tagMenu.paragraphs
  72. .tagMenu.paragraphs add command -label {<h1> (▄berschrift 1)} -command {insertPairedTags $::EditWindow::activeTextWindow h1}
  73. lappend ::GUI::outlineElements h1
  74. lappend ::GUI::paragraphCombo h1
  75. .tagMenu.paragraphs add command -label {<h2> (▄berschrift 2)} -command {insertPairedTags $::EditWindow::activeTextWindow h2}
  76. lappend ::GUI::outlineElements h2
  77. lappend ::GUI::paragraphCombo h2
  78. .tagMenu.paragraphs add command -label {<h3> (▄berschrift 3)} -command {insertPairedTags $::EditWindow::activeTextWindow h3}
  79. lappend ::GUI::outlineElements h3
  80. lappend ::GUI::paragraphCombo h3
  81. .tagMenu.paragraphs add command -label {<h4> (▄berschrift 4)} -command {insertPairedTags $::EditWindow::activeTextWindow h4}
  82. lappend ::GUI::outlineElements h4
  83. lappend ::GUI::paragraphCombo h4
  84. .tagMenu.paragraphs add command -label {<h5> (▄berschrift 5)} -command {insertPairedTags $::EditWindow::activeTextWindow h5}
  85. lappend ::GUI::outlineElements h5
  86. lappend ::GUI::paragraphCombo h5
  87. .tagMenu.paragraphs add command -label {<h6> (▄berschrift 6)} -command {insertPairedTags $::EditWindow::activeTextWindow h6}
  88. lappend ::GUI::outlineElements h6
  89. lappend ::GUI::paragraphCombo h6
  90. .tagMenu.paragraphs add separator
  91. .tagMenu.paragraphs add command -label {<p> (Normaler Absatz)} -command {insertPairedTags $::EditWindow::activeTextWindow p}
  92. lappend ::GUI::paragraphCombo p
  93. .tagMenu.paragraphs add command -label {<pre> (Formatierter Absatz)} -command {insertPairedTags $::EditWindow::activeTextWindow pre}
  94. lappend ::GUI::paragraphCombo pre
  95. .tagMenu.paragraphs add separator
  96. .tagMenu.paragraphs add command -label {<blockquote> (Zitierter Absatz)} -command {insertPairedTags $::EditWindow::activeTextWindow blockquote}
  97. lappend ::GUI::paragraphCombo blockquote
  98. .tagMenu.paragraphs add command -label {<address> (Adresse)} -command {insertPairedTags $::EditWindow::activeTextWindow address}
  99. lappend ::GUI::paragraphCombo address
  100. menu .tagMenu.lists
  101. .tagMenu add cascade -label {Listen} -menu .tagMenu.lists
  102. .tagMenu.lists add command -label {<ol> (Bereich fⁿr Geordnete Liste)} -command {insertPairedTags $::EditWindow::activeTextWindow ol}
  103. lappend ::GUI::structOnlyElements ol
  104. .tagMenu.lists add command -label {<ul> (Bereich fⁿr ungeordnete Liste)} -command {insertPairedTags $::EditWindow::activeTextWindow ul}
  105. lappend ::GUI::structOnlyElements ul
  106. .tagMenu.lists add command -label {<li> (Listen-AufzΣhlungspunkt)} -command {insertPairedTags $::EditWindow::activeTextWindow li}
  107. .tagMenu.lists add command -label {<dl> (Bereich fⁿr Definitionsliste)} -command {insertPairedTags $::EditWindow::activeTextWindow dl}
  108. lappend ::GUI::structOnlyElements dl
  109. .tagMenu.lists add command -label {<dt> (Begriff)} -command {insertPairedTags $::EditWindow::activeTextWindow dt}
  110. .tagMenu.lists add command -label {<dd> (Begriffs-ErklΣrung)} -command {insertPairedTags $::EditWindow::activeTextWindow dd}
  111. menu .tagMenu.sect
  112. .tagMenu add cascade -label {Abschnitte} -menu .tagMenu.sect
  113. .tagMenu.sect add command -label {<div> (Absatzbereich)} -command {insertPairedTags $::EditWindow::activeTextWindow div}
  114. .tagMenu.sect add command -label {<span> (Flie▀textbereich)} -command {insertPairedTags $::EditWindow::activeTextWindow span}
  115. menu .tagMenu.rev
  116. .tagMenu add cascade -label {─nderungsverfolgung} -menu .tagMenu.rev
  117. .tagMenu.rev add command -label {<ins> (Einfⁿgung)} -command {insertPairedTags $::EditWindow::activeTextWindow ins}
  118. .tagMenu.rev add command -label {<del> (L÷schung)} -command {insertPairedTags $::EditWindow::activeTextWindow del}
  119. menu .tagMenu.form
  120. .tagMenu add cascade -label {Formular } -menu .tagMenu.form
  121. .tagMenu.form add command -label {<form> (Formular-Umgebung)} -command {insertPairedTags $::EditWindow::activeTextWindow form}
  122. .tagMenu.form add command -label {<textarea> (Texteingabefeld, mehrzeilig)} -command {insertPairedTags $::EditWindow::activeTextWindow textarea}
  123. .tagMenu.form add command -label {<select> (Auswahl-Umgebung)} -command {insertPairedTags $::EditWindow::activeTextWindow select}
  124. lappend ::GUI::structOnlyElements select
  125. .tagMenu.form add command -label {<option> (Auswahl-Gegenstand)} -command {insertPairedTags $::EditWindow::activeTextWindow option}
  126. .tagMenu.form add command -label {<fieldset> (sichtbares Umgebungs-Viereck)} -command {insertPairedTags $::EditWindow::activeTextWindow fieldset}
  127. .tagMenu.form add command -label {<legend> (Legende)} -command {insertPairedTags $::EditWindow::activeTextWindow legend}
  128. .tagMenu.form add command -label {<label> (logisch zugeordnete Beschriftung)} -command {insertPairedTags $::EditWindow::activeTextWindow label}
  129. .tagMenu.form add command -label {<button> (SchaltflΣche)} -command {insertPairedTags $::EditWindow::activeTextWindow button}
  130. .tagMenu.form add command -label {<input> (Eingabe-Element, beliebige Art)} -command {insertNewEmptyTag $::EditWindow::activeTextWindow input}
  131. menu .tagMenu.images
  132. .tagMenu add cascade -label {Grafische Elemente} -menu .tagMenu.images
  133. .tagMenu.images add command -label {<hr> (waagerechte Linie)} -command {insertNewEmptyTag $::EditWindow::activeTextWindow hr}
  134. .tagMenu.images add command -label {<img> (Grafik)} -command {insertNewEmptyTag $::EditWindow::activeTextWindow img}
  135. .tagMenu.images add command -label {<map> (Umgebung fⁿr verweissensitive FlΣche)} -command {insertPairedTags $::EditWindow::activeTextWindow map}
  136. .tagMenu.images add command -label {<area> (verweissensitive FlΣche)} -command {insertNewEmptyTag $::EditWindow::activeTextWindow area}
  137. .tagMenu add separator
  138. menu .tagMenu.misc
  139. .tagMenu add cascade -label {Verschiedenes} -menu .tagMenu.misc
  140. .tagMenu.misc add command -label {<br> (Zeilenwechsel)} -command {insertNewEmptyTag $::EditWindow::activeTextWindow br}
  141. set ::GUI::lineBreak br
  142. menu .tagMenu.gui
  143. .tagMenu add cascade -label {BedienoberflΣche} -menu .tagMenu.gui
  144. menu .tagMenu.gui.tags
  145. .tagMenu.gui add cascade -label {Tag-Menⁿ} -menu .tagMenu.gui.tags
  146. .tagMenu.gui.tags add command -label {<cascade> (Untermenⁿ)} -command {insertPairedTags $::EditWindow::activeTextWindow cascade}
  147. .tagMenu.gui.tags add command -label {<tag> (neues Tag)} -command {insertNewEmptyTag $::EditWindow::activeTextWindow tag}
  148. .tagMenu.gui.tags add command -label {<command > (Kommando)} -command {insertNewEmptyTag $::EditWindow::activeTextWindow command }
  149. .tagMenu.gui.tags add command -label {<existingmenu > (bestehendes Menⁿ)} -command {insertNewEmptyTag $::EditWindow::activeTextWindow existingmenu }
  150. .tagMenu.gui.tags add command -label {<separator> (Trennstrich im Menⁿ)} -command {insertNewEmptyTag $::EditWindow::activeTextWindow separator}
  151. menu .tagMenu.gui.atts
  152. .tagMenu.gui add cascade -label {Kontextmenⁿ Attribute} -menu .tagMenu.gui.atts
  153. .tagMenu.gui.atts add command -label {<attribute> (neues Attribut)} -command {insertNewEmptyTag $::EditWindow::activeTextWindow attribute}
  154. .tagMenu.gui.atts add command -label {<existingattmenu> (bestehendes Kontextmenⁿ)} -command {insertNewEmptyTag $::EditWindow::activeTextWindow existingattmenu}
  155. menu .tagMenu.special
  156. .tagMenu add cascade -label {Speziall÷sungen} -menu .tagMenu.special
  157. .tagMenu.special add command -label {<directorydownload> (Spezialtag fⁿr Schematext)} -command {insertNewEmptyTag $::EditWindow::activeTextWindow directorydownload}
  158. .tagMenu.special add command -label {<submenu> (Zeichen fⁿr Untermenⁿ, Gebrauchsanweisung MTE)} -command {insertNewEmptyTag $::EditWindow::activeTextWindow submenu}
  159.