Author: aschnell Date: Thu Apr 3 21:17:05 2008 New Revision: 46067 URL: http://svn.opensuse.org/viewcvs/yast?rev=46067&view=rev Log: - use new toterm Modified: branches/tmp/aschnell/part-redesign/MAINTAINER branches/tmp/aschnell/part-redesign/storage/src/modules/Greasemonkey.ycp branches/tmp/aschnell/part-redesign/yast2-storage.spec.in Modified: branches/tmp/aschnell/part-redesign/MAINTAINER URL: http://svn.opensuse.org/viewcvs/yast/branches/tmp/aschnell/part-redesign/MAI... ============================================================================== --- branches/tmp/aschnell/part-redesign/MAINTAINER (original) +++ branches/tmp/aschnell/part-redesign/MAINTAINER Thu Apr 3 21:17:05 2008 @@ -1 +1 @@ -Thomas Fehr <fehr@suse.de> +Arvin Schnell <aschnell@suse.de> Modified: branches/tmp/aschnell/part-redesign/storage/src/modules/Greasemonkey.ycp URL: http://svn.opensuse.org/viewcvs/yast/branches/tmp/aschnell/part-redesign/sto... ============================================================================== --- branches/tmp/aschnell/part-redesign/storage/src/modules/Greasemonkey.ycp (original) +++ branches/tmp/aschnell/part-redesign/storage/src/modules/Greasemonkey.ycp Thu Apr 3 21:17:05 2008 @@ -30,11 +30,7 @@ term LeftRadioButton(term old) { - // YCP has no function to construct a term from a symbol and list or args - - term t = `RadioButton(); - foreach(any arg, argsof(old), { t = add(t, arg); }); - return `Left(t); + return `Left(toterm(`RadioButton, argsof(old))); } @@ -52,15 +48,12 @@ { list l = argsof(old); - // YCP has no function to split a list! - - term t1 = `RadioButton(); - list t2 = remove(l, size(l)-1); - foreach(any arg, t2, { t1 = add(t1, arg); }); - - any content = l[size(l)-1]:nil; + // YCP has no function to slice a list + list tmp1 = remove(l, size(l)-1); + any tmp2 = l[size(l)-1]:nil; - return `VBox(`Left(t1), `HBox(`HSpacing(4), content)); + return `VBox(`Left(toterm(`RadioButton, tmp1)), + `HBox(`HSpacing(4), tmp2)); } @@ -94,8 +87,7 @@ if (handler != nil) return handler(old); - // symbolof returns a symbol but toterm expects a string - term new = toterm(substring(sformat ("%1", s), 1)); + term new = toterm(s); foreach(any arg, argsof(old), { if (is(arg, term)) Modified: branches/tmp/aschnell/part-redesign/yast2-storage.spec.in URL: http://svn.opensuse.org/viewcvs/yast/branches/tmp/aschnell/part-redesign/yas... ============================================================================== --- branches/tmp/aschnell/part-redesign/yast2-storage.spec.in (original) +++ branches/tmp/aschnell/part-redesign/yast2-storage.spec.in Thu Apr 3 21:17:05 2008 @@ -7,7 +7,8 @@ # proc_meminfo.scr moved to yast2-2.15.23 # Installation::installedVersion and Installation::updateVersion # AutionstData -Requires: yast2 >= 2.16.8 +Requires: yast2-core >= 2.16.42 +Requires: yast2 >= 2.16.39 %ifarch s390 s390x Requires: yast2-s390 %endif -- To unsubscribe, e-mail: yast-commit+unsubscribe@opensuse.org For additional commands, e-mail: yast-commit+help@opensuse.org