1 files changed, 46 insertions, 0 deletions
diff --git a/src/dia_help.inc b/src/dia_help.inc
new file mode 100644
index 0000000..86db5aa
--- /dev/null
+++ b/src/dia_help.inc
@@ -0,0 +1,46 @@
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+%
+% Panel help entry.
+%
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Show help window.
+%
+% ( ) => ( )
+%
+/panel.help {
+   help.context "opt" eq {
+     findbootoption
+     help.mapcontext
+     dup help.findpage
+     "" eq { pop } { help.setcontext } ifelse
+   } if
+   show_help
+
+   config.talk { txt_help speak } if
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Return width of help entry.
+%
+% ( ) => ( width )
+%
+/panel.help.width {
+  txt_help strsize pop
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Redraw panel entry.
+%
+% ( panel ) => ( )
+%
+/panel.help.update {
+  panel.text.moveto
+
+  txt_help show.rtl
+} def
+
+