Posted to tcl by mookie at Mon Aug 03 19:55:02 GMT 2026view raw

  1. User -> url -> naviserver
  2.  
  3. # https://neoncrystal.crystalforest.tf - Tcl Frontend - Was primary, now to be fallback
  4. html::display "<!-- $viewer -->"
  5. html::display "<!-- Version: $viewer_version -->"
  6. html::display "<!-- Viewer Key: [crystal::obtain $crystal identity "viewer.key"] -->"
  7. html::display "<!-- Theme: $css_style -->"
  8. html::display "<!-- $viewer_message --> \n"
  9.  
  10. html::header "start" "en"
  11. html::head "start"
  12. html::meta "utf8"
  13. html::meta "mobile"
  14. html::title "&#x1F48E;"
  15.  
  16. html::style "start"
  17. html::display "[crystal::obtain $crystal css $css_style]"
  18. html::style "end"
  19.  
  20. html::head "end"
  21. html::body "start"
  22.  
  23. html::div "start" "side_top_bar"
  24. html::div "end" "side_top_bar"
  25.  
  26. html::div "start" "panel_window_configure panel_window"
  27. #
  28. html::div "start" "panel_title_bar"
  29. html::span "start" "panel_title"
  30. html::display "Information"
  31. html::span "end" "panel_title"
  32.  
  33. html::span "start" "panel_icon"
  34. html::display "&#x1F48E;"
  35. html::span "end" "panel_icon"
  36. html::div "end" "panel_title_bar"
  37. #
  38. html::form "start" "POST" "panel_window_frame"
  39. html::div "start" "panel_window_toolbar"
  40. html::display "[lindex [split [crystal::datetime]] 0]"
  41. html::display "&therefore;"
  42. html::display " [lindex [split [crystal::datetime] ] 1]"
  43. html::button "start" "crystal.btn" "/::eurotcl2026" "[crystal::obtain $crystal identity "viewer.key"]" "panel_button" ""
  44. html::display "Viewer Card"
  45. html::button "end" "Viewer Card"
  46.  
  47. html::button "start" "crystal.btn" "/::crystal/system/resources" "[crystal::obtain $crystal identity "viewer.key"]" "panel_button" ""
  48. html::display "Resources"
  49. html::button "end" "Crystal Card"
  50.  
  51. html::button "start" "crystal.btn" "/::crystal/online" "[crystal::obtain $crystal identity "viewer.key"]" "panel_button" ""
  52. html::display "NeonCrystal Information System"
  53. html::button "end" "Learn"
  54. html::div "end" "panel_window_toolbar"
  55. html::form "end" "POST" "panel_window_frame"
  56. #
  57. html::display "[html::iframe "panel_window_frame" "" "panel_window_frame" "panel_background"]"
  58. html::div "end" "panel_window"
  59.  
  60. html::body "end"
  61. html::header "end"
  62.  
  63.  
  64. # https://neoncrystal.crystalforest.tf/spark - Crystal Lang Frontend - to be primary once further stuff in done
  65. HTML.display <!-- crystal_spark.ix -->
  66. HTML.display <!-- Version: {%_version_%} -->
  67. HTML.display <!-- Viewer Key: {%_viewer_key_%} -->
  68. HTML.display <!-- Style: {%_style_%} -->
  69. HTML.display <!-- {%_welcome_message_%} -->
  70.  
  71. HTML.header start en
  72. HTML.head start
  73. HTML.title {%_title_%}
  74. HTML.style {%_style_%}
  75. HTML.head end
  76. HTML.body start
  77.  
  78. HTML.div start side_top_bar
  79. HTML.div end
  80.  
  81. HTML.div start panel_window_configure panel_window
  82. HTML.div start panel_title_bar
  83.  
  84. HTML.span start panel_title
  85. HTML.display Information
  86. HTML.div end
  87.  
  88. HTML.span start panel_icon
  89. HTML.display {%_emoji_crystal_%}
  90. HTML.span end
  91.  
  92. HTML.form start POST panel_window_frame utf-8
  93. HTML.div start panel_window_toolbar
  94.  
  95. HTML.button start crystal.btn /::eurotcl2026 00000000000000000000000000000000000000000000000000000000000000FF panel_button
  96. HTML.display Viewer Card
  97. HTML.button end
  98.  
  99. HTML.button start crystal.btn /::crystal/system/resources 00000000000000000000000000000000000000000000000000000000000000FF panel_button
  100. HTML.display Resources
  101. HTML.button end
  102.  
  103. HTML.button start crystal.btn /::crystal/online 00000000000000000000000000000000000000000000000000000000000000FF panel_button
  104. HTML.display NeonCrystal Information System
  105. HTML.button end
  106.  
  107. HTML.div end
  108. HTML.form end
  109.  
  110. HTML.div end
  111. HTML.iframe start panel_window_frame panel_window_frame panel_background
  112. HTML.iframe end
  113. HTML.div end
  114.  
  115. HTML.body end
  116. HTML.footer
  117.  

Add a comment

Please note that this site uses the meta tags nofollow,noindex for all pages that contain comments.
Items are closed for new comments after 1 week