summaryrefslogtreecommitdiffstats
path: root/dia_profile.inc
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2009-01-27 17:30:08 +0000
committerPascal Rigaux <pixel@mandriva.com>2009-01-27 17:30:08 +0000
commit5ce8d30439463838f845c78bc926cc9b310a8743 (patch)
treebb1852dc58711c7baee31216a765067dfa49b65b /dia_profile.inc
parent10658e71475bd964263d09f1a661f24fadfaf496 (diff)
downloadbootloader-theme-5ce8d30439463838f845c78bc926cc9b310a8743.tar
bootloader-theme-5ce8d30439463838f845c78bc926cc9b310a8743.tar.gz
bootloader-theme-5ce8d30439463838f845c78bc926cc9b310a8743.tar.bz2
bootloader-theme-5ce8d30439463838f845c78bc926cc9b310a8743.tar.xz
bootloader-theme-5ce8d30439463838f845c78bc926cc9b310a8743.zip
imported openSUSE.tar.bz2 (from gfxboot-4.1.19-2.1.src.rpm)4.1.19.1
Diffstat (limited to 'dia_profile.inc')
-rw-r--r--dia_profile.inc139
1 files changed, 0 insertions, 139 deletions
diff --git a/dia_profile.inc b/dia_profile.inc
deleted file mode 100644
index 61c2e24..0000000
--- a/dia_profile.inc
+++ /dev/null
@@ -1,139 +0,0 @@
-% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-%
-% Profile selection dialog.
-%
-% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-
-
-% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-% Some global vars.
-%
-
-% fallback if we can't parse "profiles"
-/profile.options [ "" ] def
-/profile.items [ "Broken Profiles" ] def
-
-
-% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-% Parse "profiles" file.
-%
-% ( ) ==> ( )
-%
-/profile.parsedata {
- /pf.tmp.datalen profile.data length def
- /pf.tmp.str profile.data cvs def
-
- /profile.default 0 def
-
- pf.tmp.datalen 0 eq { return } if
- pf.tmp.str pf.tmp.datalen 1 sub get '\n' ne { return } if
-
- '\n' seteotchar
-
- /profile.items [
-
- /pf.tmp.len 0 def
- /pf.tmp.cnt 0 def
- {
- pf.tmp.str pf.tmp.len add strdup
- dup dup length 0 put
- /pf.tmp.len over length 1 add pf.tmp.len add def
-
- dup 0 get '*' eq { 1 add /profile.default pf.tmp.cnt def } if
-
- pf.tmp.len pf.tmp.datalen ge { exit } if
-
- /pf.tmp.cnt inc
- } loop
-
- ] def
-
- ' ' seteotchar
-
- /profile.options [
-
- profile.items {
- dup length add
- dup 0 0 put
- 1 add
- } forall
-
- ] def
-
- 0 seteotchar
-
-} def
-
-
-% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-% Build profile list.
-%
-% ( ) ==> ( )
-%
-/profile.init {
- /xmenu.profile .xm_size array def
- /xmenu xmenu.profile def
-
- profile.parsedata
-
- xmenu .xm_current profile.default put
- xmenu .xm_list profile.items put
-
- pmenu.init
-} def
-
-
-% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-% Update profile.
-%
-% ( ) ==> ( )
-%
-/profile.update {
- /xmenu xmenu.profile def
-
- /window.action actRedrawPanel def
-
- pmenu.update
-} def
-
-
-% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-% Show profile menu.
-%
-% ( ) => ( )
-%
-/panel.profile {
- "profile" help.setcontext
-
- window.xmenu
- dup .xmenu xmenu.profile put
- dup .xmenu.update /profile.update put
- dup window.init
- window.show
-} def
-
-
-% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-% Return width of panel entry.
-%
-% ( ) => ( width )
-%
-/panel.profile.width {
- /xmenu xmenu.profile def
-
- pmenu.width
-} def
-
-
-% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-% Redraw panel entry.
-%
-% ( panel ) => ( )
-%
-/panel.profile.update {
- /xmenu xmenu.profile def
-
- pmenu.panel.update
-} def
-
-