From 534f2f4437093bd78411126ef45de41fc6b93bf3 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Thu, 7 Jun 2007 18:54:11 +0000
Subject: reimport my latest checkout

---
 dia_splash.inc | 90 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 90 insertions(+)
 create mode 100644 dia_splash.inc

(limited to 'dia_splash.inc')

diff --git a/dia_splash.inc b/dia_splash.inc
new file mode 100644
index 0000000..9083d06
--- /dev/null
+++ b/dia_splash.inc
@@ -0,0 +1,90 @@
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+%
+% Splash mode selection dialog.
+%
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Some global vars.
+%
+/splash.default 2 def
+
+/splash.options [
+  "splash=0"
+  "splash=verbose"
+  "splash=silent"
+] def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Build splash list.
+%
+% ( ) ==> ( )
+%
+/splash.init {
+  /xmenu.splash .xm_size array def
+
+  /xmenu xmenu.splash def
+
+  xmenu .xm_current splash.default put
+  xmenu .xm_list [ "Native" "Verbose" "Silent" ] put
+
+  pmenu.init
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Update splash mode.
+%
+% ( ) ==> ( )
+%
+/splash.update {
+  /xmenu xmenu.splash def
+
+  /window.action actRedrawPanel def
+
+  pmenu.update
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Show splash menu.
+%
+% ( ) => ( )
+%
+/panel.splash {
+  "startup" help.setcontext
+
+  window.xmenu
+  dup .xmenu xmenu.splash put
+  dup .xmenu.update /splash.update put
+  dup window.init
+      window.show
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Return width of panel entry.
+%
+% ( ) => ( width )
+%
+/panel.splash.width {
+  /xmenu xmenu.splash def
+
+  pmenu.width
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Redraw panel entry.
+%
+% ( panel ) => ( )
+%
+/panel.splash.update {
+  /xmenu xmenu.splash def
+
+  pmenu.panel.update
+} def
+
+
-- 
cgit v1.2.1