summaryrefslogtreecommitdiffstats
path: root/dia_install.inc
diff options
context:
space:
mode:
Diffstat (limited to 'dia_install.inc')
-rw-r--r--dia_install.inc127
1 files changed, 0 insertions, 127 deletions
diff --git a/dia_install.inc b/dia_install.inc
deleted file mode 100644
index 6bbf6aa..0000000
--- a/dia_install.inc
+++ /dev/null
@@ -1,127 +0,0 @@
-% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-%
-% Install mode selection dialog.
-%
-% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-
-
-% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-% Some global vars.
-%
-/install.option 255 string def
-
-% install types
-/.inst_cdrom 0 def
-/.inst_other 1 def
-
-/install.last .inst_cdrom def
-
-% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-% Build install mode list.
-%
-% ( ) ==> ( )
-%
-/install.init {
- /xmenu.install .xm_size array def
-
- /xmenu xmenu.install def
-
- install.option install.last .inst_cdrom eq { "automatic=method:cdrom" } { "" } ifelse strcpy
-
- xmenu .xm_current install.last put
-
- % see install types (.inst_*)
- xmenu .xm_list [ is_dvd { "DVD" } { "CD-ROM" } ifelse "Other" ] put
-
- pmenu.init
-} def
-
-
-% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-% Update install mode.
-%
-% ( ) ==> ( )
-%
-/install.update {
- /xmenu xmenu.install def
-
- /install.last xmenu .xm_current get def
-
- install.option install.last .inst_cdrom eq { "automatic=method:cdrom" } { "" } ifelse strcpy
-
- /window.action actRedrawPanel def
-
- pmenu.update
-
-} def
-
-
-% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-% Show install menu.
-%
-% ( ) => ( )
-%
-/panel.install {
- "install_src" help.setcontext
-
- window.xmenu
- dup .xmenu xmenu.install put
- dup .xmenu.update /install.update put
- dup window.init
- window.show
-} def
-
-
-% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-% Return width of panel entry.
-%
-% ( ) => ( width )
-%
-/panel.install.width {
- /xmenu xmenu.install def
-
- pmenu.width
-} def
-
-
-% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-% Redraw panel entry.
-%
-% ( panel ) => ( )
-%
-/panel.install.update {
- /xmenu xmenu.install def
-
- pmenu.panel.update
-} def
-
-
-% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-
-
-
-
-/install.ok {
- /xmenu xmenu.install def
-
- window.done
-
- /install.last xmenu .xm_current get def
-
- /window.action actRedrawPanel def
-
- pmenu.update
-
-} def
-
-
-/install.cancel {
- /xmenu xmenu.install def
-
- xmenu .xm_current install.last put
-
-% /window.action actRedrawPanel def
-% pmenu.update
-} def
-