summaryrefslogtreecommitdiffstats
path: root/src/dia_kernelopts.inc
diff options
context:
space:
mode:
Diffstat (limited to 'src/dia_kernelopts.inc')
-rw-r--r--src/dia_kernelopts.inc94
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
+
+