diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2009-01-27 17:30:08 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2009-01-27 17:30:08 +0000 |
commit | 5ce8d30439463838f845c78bc926cc9b310a8743 (patch) | |
tree | bb1852dc58711c7baee31216a765067dfa49b65b /dia_profile.inc | |
parent | 10658e71475bd964263d09f1a661f24fadfaf496 (diff) | |
download | bootloader-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.inc | 139 |
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 - - |