1 files changed, 94 insertions, 0 deletions
diff --git a/src/dia_kernelopts.inc b/src/dia_kernelopts.inc
new file mode 100644
index 0000000..942efb6
--- /dev/null
+++ b/src/dia_kernelopts.inc
@@ -0,0 +1,94 @@
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+%
+% Kernel options dialog.
+%
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Some global vars.
+%
+/kernelopts.default 0 def
+
+/kernelopts.options [
+  ""
+  "apm=off acpi=off mce=off barrier=off ide=nodma idewait=50 i8042.nomux psmouse.proto=bare irqpoll pci=nommconf"
+  "acpi=off"
+  "nolapic"
+] def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Build kernelopts list.
+%
+% ( ) ==> ( )
+%
+/kernelopts.init {
+  /xmenu.kernelopts .xm_size array def
+
+  /xmenu xmenu.kernelopts def
+
+  xmenu .xm_current kernelopts.default put
+  xmenu .xm_list [
+    /txt_kernel_default
+    /txt_kernel_safe
+    /txt_kernel_noacpi
+    /txt_kernel_nolapic
+  ] put
+  xmenu .xm_title /txt_kernel put
+
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Update kernelopts mode.
+%
+% ( ) ==> ( )
+%
+/kernelopts.update {
+  /xmenu xmenu.kernelopts def
+
+  /window.action actRedrawPanel def
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Show kernelopts menu.
+%
+% ( ) => ( )
+%
+/panel.kernelopts {
+  "main" help.setcontext
+
+  window.xmenu
+  dup .xmenu xmenu.kernelopts put
+  dup .xmenu.update /kernelopts.update put
+  dup window.init
+      window.show
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Return width of panel entry.
+%
+% ( ) => ( width )
+%
+/panel.kernelopts.width {
+  /xmenu xmenu.kernelopts def
+
+  pmenu.width
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Redraw panel entry.
+%
+% ( panel ) => ( )
+%
+/panel.kernelopts.update {
+  /xmenu xmenu.kernelopts def
+
+  pmenu.panel.update
+} def
+
+