diff options
Diffstat (limited to 'src/dia_video.inc')
| -rw-r--r-- | src/dia_video.inc | 22 |
1 files changed, 19 insertions, 3 deletions
diff --git a/src/dia_video.inc b/src/dia_video.inc index 6e7f16d..1bcc512 100644 --- a/src/dia_video.inc +++ b/src/dia_video.inc @@ -9,9 +9,23 @@ % Some global vars. % % video mode array fields -/video.default 2 def +/video.default 0 def /video.modes.list [ 0 785 788 791 ] def -/video.modes.text [ "Text" "640 x 480" "800 x 600" "1024 x 768" ] def +/video.modes.text [ /txt_kernel_default "640 x 480" "800 x 600" "1024 x 768" ] def + +% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +% Get title string to be displayed on panel +% +% ( ) ==> ( title ) +% +/video.title { + xmenu.video .xm_current get + dup 0 eq { + pop /txt_video_mode + } { + video.modes.text exch get + } ifelse +} def % - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - % Build video mode list. @@ -24,8 +38,8 @@ /xmenu xmenu.video def xmenu .xm_list video.modes.text put - xmenu .xm_title .undef put xmenu .xm_current video.default put + xmenu .xm_title /txt_video_mode put } def @@ -37,6 +51,8 @@ /video.update { /xmenu xmenu.video def + xmenu .xm_title video.title put + /window.action actRedrawPanel def } def |