Hello community, here is the log from the commit of package gfxboot checked in at Fri Aug 10 17:06:02 CEST 2007. -------- --- arch/i386/gfxboot/gfxboot.changes 2007-08-09 16:44:54.000000000 +0200 +++ /mounts/work_src_done/STABLE/gfxboot/gfxboot.changes 2007-08-10 12:55:51.000000000 +0200 @@ -1,0 +2,5 @@ +Fri Aug 10 12:55:34 CEST 2007 - snwint@suse.de + +- allow to set default values for repository + +------------------------------------------------------------------- Old: ---- gfxboot-3.3.30.tar.bz2 New: ---- gfxboot-3.3.31.tar.bz2 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ gfxboot.spec ++++++ --- /var/tmp/diff_new_pack.M29159/_old 2007-08-10 17:05:48.000000000 +0200 +++ /var/tmp/diff_new_pack.M29159/_new 2007-08-10 17:05:48.000000000 +0200 @@ -1,5 +1,5 @@ # -# spec file for package gfxboot (Version 3.3.30) +# spec file for package gfxboot (Version 3.3.31) # # Copyright (c) 2007 SUSE LINUX Products GmbH, Nuernberg, Germany. # This file and all modifications and additions to the pristine @@ -18,10 +18,10 @@ Requires: perl-HTML-Parser Autoreqprov: on Summary: Graphical Boot Logo for LILO and SYSLINUX -Version: 3.3.30 +Version: 3.3.31 Release: 1 BuildRoot: %{_tmppath}/%{name}-%{version}-build -Source: gfxboot-3.3.30.tar.bz2 +Source: gfxboot-3.3.31.tar.bz2 Source1: NLD.tar.bz2 Source2: SLES.tar.bz2 Source3: SuSE.tar.bz2 @@ -61,6 +61,8 @@ /usr/share/gfxboot %changelog +* Fri Aug 10 2007 - snwint@suse.de +- allow to set default values for repository * Thu Aug 09 2007 - snwint@suse.de - change default lang en -> en_US - updated po files ++++++ gfxboot-3.3.30.tar.bz2 -> gfxboot-3.3.31.tar.bz2 ++++++ diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/gfxboot-3.3.30/Changelog new/gfxboot-3.3.31/Changelog --- old/gfxboot-3.3.30/Changelog 2007-08-09 16:33:03.000000000 +0200 +++ new/gfxboot-3.3.31/Changelog 2007-08-10 12:54:30.000000000 +0200 @@ -1,3 +1,6 @@ +10/8/1007: v3.3.31 + - allow to set default values for repository + 9/8/2007: v3.3.30 - updated po files diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/gfxboot-3.3.30/VERSION new/gfxboot-3.3.31/VERSION --- old/gfxboot-3.3.30/VERSION 2007-08-09 16:32:33.000000000 +0200 +++ new/gfxboot-3.3.31/VERSION 2007-08-10 12:53:47.000000000 +0200 @@ -1 +1 @@ -3.3.30 +3.3.31 ++++++ NLD.tar.bz2 ++++++ ++++++ SLES.tar.bz2 ++++++ ++++++ SuSE.tar.bz2 ++++++ diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/themes/SuSE/dia_install.inc new/themes/SuSE/dia_install.inc --- old/themes/SuSE/dia_install.inc 2007-03-15 11:56:03.000000000 +0100 +++ new/themes/SuSE/dia_install.inc 2007-08-10 12:47:46.000000000 +0200 @@ -31,11 +31,13 @@ /xmenu xmenu.install def - "install" getgfxconfig "slp" eq { - /install.last .inst_slp def - } if + /input.edit.ftp [ 63 string 127 string 31 string 31 string ] def + /input.edit.http [ 63 string 127 string ] def + /input.edit.nfs [ 63 string 127 string ] def + /input.edit.smb [ 63 string 31 string 127 string 31 string 31 string 31 string ] def + /input.edit.hd [ 63 string 127 string ] def - install.option install.last .inst_cdrom eq { "" } { "install=slp" } ifelse strcpy + install.read.config xmenu .xm_current install.last put @@ -43,6 +45,8 @@ xmenu .xm_list [ is_dvd { "DVD" } { "CD-ROM" } ifelse "SLP" "FTP" "HTTP" "NFS" "SMB / CIFS" /txt_harddisk ] put xmenu .xm_title /txt_install_source put + + install.set.install.option } def @@ -57,13 +61,14 @@ xmenu .xm_current get dup .inst_cdrom eq exch .inst_slp eq or { /install.last xmenu .xm_current get def - install.option install.last .inst_cdrom eq { "" } { "install=slp" } ifelse strcpy + install.set.install.option /window.action actRedrawPanel def } { install.dialog } ifelse + } def @@ -119,25 +124,7 @@ xmenu .xm_current get - dup .inst_hd eq { - input.edit.hd .undef eq { - /input.edit.hd [ 63 string 127 string ] def - } if - - dia .title txt_harddisk_title put - - % Must all be of same size! - dia .ed.list 2 array put - dia .ed.buffer.list input.edit.hd put - dia .ed.text.list [ txt_hd_diskdevice txt_directory ] put - - } if - dup .inst_ftp eq { - input.edit.ftp .undef eq { - /input.edit.ftp [ 63 string 127 string 31 string 31 string ] def - } if - dia .title txt_ftp_title put % Must all be of same size! @@ -151,10 +138,6 @@ } if dup .inst_http eq { - input.edit.http .undef eq { - /input.edit.http [ 63 string 127 string ] def - } if - dia .title txt_http_title put % Must all be of same size! @@ -165,10 +148,6 @@ } if dup .inst_nfs eq { - input.edit.nfs .undef eq { - /input.edit.nfs [ 63 string 127 string ] def - } if - dia .title txt_nfs_title put % Must all be of same size! @@ -179,10 +158,6 @@ } if dup .inst_smb eq { - input.edit.smb .undef eq { - /input.edit.smb [ 63 string 31 string 127 string 31 string 31 string 31 string ] def - } if - dia .title txt_smb_title put % Must all be of same size! @@ -195,6 +170,16 @@ } if + dup .inst_hd eq { + dia .title txt_harddisk_title put + + % Must all be of same size! + dia .ed.list 2 array put + dia .ed.buffer.list input.edit.hd put + dia .ed.text.list [ txt_hd_diskdevice txt_directory ] put + + } if + pop dia .ed.focus 0 put @@ -224,13 +209,31 @@ pmenu.update + install.set.install.option + +} def + + +/install.cancel { + /xmenu xmenu.install def + + xmenu .xm_current install.last put +} def + + +% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +% Set 'install=' boot option. +% +% ( -- ) +% +/install.set.install.option { xmenu .xm_current get - dup .inst_hd eq { - input.edit.hd - dup 1 get dup 0 get '/' eq { 1 add } if - exch 0 get dup 0 get '/' eq { 1 add } if - "install=hd://%s/%s" install.option sprintf + % default: .inst_cdrom + install.option "" strcpy pop + + dup .inst_slp eq { + install.option "install=slp:/" strcpy pop } if dup .inst_ftp eq { @@ -288,14 +291,49 @@ "%s/%s/%s" install.option dup length add sprintf } if - pop + dup .inst_hd eq { + input.edit.hd + dup 1 get dup 0 get '/' eq { 1 add } if + exch 0 get dup 0 get '/' eq { 1 add } if + "install=hd://%s/%s" install.option sprintf + } if + pop } def -/install.cancel { - /xmenu xmenu.install def +% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +% Read default values. +% +% ( -- ) +% +/install.read.config { + "install" getgfxconfig + dup "cdrom" eq { /install.last .inst_cdrom def } if + dup "slp" eq { /install.last .inst_slp def } if + dup "ftp" eq { /install.last .inst_ftp def } if + dup "http" eq { /install.last .inst_http def } if + dup "nfs" eq { /install.last .inst_nfs def } if + dup "smb" eq { /install.last .inst_smb def } if + dup "hd" eq { /install.last .inst_hd def } if + pop + + "install.http.server" input.edit.http 0 get getgfxconfig.str + "install.http.path" input.edit.http 1 get getgfxconfig.str + + "install.nfs.server" input.edit.nfs 0 get getgfxconfig.str + "install.nfs.path" input.edit.nfs 1 get getgfxconfig.str + + "install.smb.server" input.edit.smb 0 get getgfxconfig.str + "install.smb.share" input.edit.smb 1 get getgfxconfig.str + "install.smb.path" input.edit.smb 2 get getgfxconfig.str + "install.smb.domain" input.edit.smb 3 get getgfxconfig.str + "install.smb.user" input.edit.smb 4 get getgfxconfig.str + "install.smb.password" input.edit.smb 5 get getgfxconfig.str + + "install.hd.device" input.edit.hd 0 get getgfxconfig.str + "install.hd.path" input.edit.hd 1 get getgfxconfig.str - xmenu .xm_current install.last put } def + diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/themes/SuSE/system.inc new/themes/SuSE/system.inc --- old/themes/SuSE/system.inc 2007-03-30 12:16:27.000000000 +0200 +++ new/themes/SuSE/system.inc 2007-08-10 12:47:10.000000000 +0200 @@ -641,6 +641,18 @@ % - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +% Read string from config file and store in variable. +% +% ( key str -- ) +% +% Read config value 'key' and copy to 'str' if found. +% +/getgfxconfig.str { + exch getgfxconfig dup { strcpy } { pop } ifelse pop +} def + + +% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - % split - split string % % group: ++++++ Zen.tar.bz2 ++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... --------------------------------------------------------------------- To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org For additional commands, e-mail: opensuse-commit+help@opensuse.org