Author: aschnell Date: Tue Mar 4 10:59:03 2008 New Revision: 45175 URL: http://svn.opensuse.org/viewcvs/yast?rev=45175&view=rev Log: - DumbTab workaround Modified: branches/tmp/aschnell/part-redesign/storage/src/include/ep-hd.ycp branches/tmp/aschnell/part-redesign/storage/src/include/ep-lvm.ycp branches/tmp/aschnell/part-redesign/storage/src/include/ep-raid.ycp branches/tmp/aschnell/part-redesign/storage/src/modules/TabPanel.ycp Modified: branches/tmp/aschnell/part-redesign/storage/src/include/ep-hd.ycp URL: http://svn.opensuse.org/viewcvs/yast/branches/tmp/aschnell/part-redesign/storage/src/include/ep-hd.ycp?rev=45175&r1=45174&r2=45175&view=diff ============================================================================== --- branches/tmp/aschnell/part-redesign/storage/src/include/ep-hd.ycp (original) +++ branches/tmp/aschnell/part-redesign/storage/src/include/ep-hd.ycp Tue Mar 4 10:59:03 2008 @@ -163,7 +163,7 @@ UI::ReplaceWidget(`tree_panel, `VBox( `Left(`Heading("Hard Disk: " + device)), - `DumbTab( `id(`tab), [ + TabPanel::DumbTab( `id(`tab), [ `item(`id(`overview), "&Overview"), `item(`id(`partitions), "&Partitions") ], Modified: branches/tmp/aschnell/part-redesign/storage/src/include/ep-lvm.ycp URL: http://svn.opensuse.org/viewcvs/yast/branches/tmp/aschnell/part-redesign/storage/src/include/ep-lvm.ycp?rev=45175&r1=45174&r2=45175&view=diff ============================================================================== --- branches/tmp/aschnell/part-redesign/storage/src/include/ep-lvm.ycp (original) +++ branches/tmp/aschnell/part-redesign/storage/src/include/ep-lvm.ycp Tue Mar 4 10:59:03 2008 @@ -208,7 +208,7 @@ UI::ReplaceWidget(`tree_panel, `VBox( `Left(`Heading("Volume Group: " + device)), - `DumbTab( `id(`tab), [ + TabPanel::DumbTab(`id(`tab), [ `item(`id(`overview), "&Overview"), `item(`id(`lvs), "&Logical Volumes"), `item(`id(`pvs), "&Physical Volumes") Modified: branches/tmp/aschnell/part-redesign/storage/src/include/ep-raid.ycp URL: http://svn.opensuse.org/viewcvs/yast/branches/tmp/aschnell/part-redesign/storage/src/include/ep-raid.ycp?rev=45175&r1=45174&r2=45175&view=diff ============================================================================== --- branches/tmp/aschnell/part-redesign/storage/src/include/ep-raid.ycp (original) +++ branches/tmp/aschnell/part-redesign/storage/src/include/ep-raid.ycp Tue Mar 4 10:59:03 2008 @@ -116,7 +116,7 @@ UI::ReplaceWidget(`tree_panel, `VBox( `Left(`Heading("RAID: " + device)), - `DumbTab(`id(`tab), [ + TabPanel::DumbTab(`id(`tab), [ `item(`id(`overview), "&Overview"), `item(`id(`devices), "Used Devices") ], Modified: branches/tmp/aschnell/part-redesign/storage/src/modules/TabPanel.ycp URL: http://svn.opensuse.org/viewcvs/yast/branches/tmp/aschnell/part-redesign/storage/src/modules/TabPanel.ycp?rev=45175&r1=45174&r2=45175&view=diff ============================================================================== --- branches/tmp/aschnell/part-redesign/storage/src/modules/TabPanel.ycp (original) +++ branches/tmp/aschnell/part-redesign/storage/src/modules/TabPanel.ycp Tue Mar 4 10:59:03 2008 @@ -59,12 +59,21 @@ { data = d; - current_item = UI::QueryWidget(`tab, `CurrentItem); + if (!UI::HasSpecialWidget(`DumbTab)) + current_item = UI::QueryWidget(`tab, `Value); + else + current_item = UI::QueryWidget(`tab, `CurrentItem); + CallCreate(); } global void Handle(any widget) { + if (!UI::HasSpecialWidget(`DumbTab)) { + if (widget == `tab) + widget = UI::QueryWidget(`tab, `Value); + } + if (haskey(data, widget)) { CallSave(); @@ -81,4 +90,16 @@ { CallSave(); } + + + global term DumbTab(term id, list<term> tabs, term content) + { + if (!UI::HasSpecialWidget(`DumbTab)) + return `VBox(`Left(`ComboBox(id, `opt(`notify), "DumbTab Workaround", + maplist(term t, tabs, { + return `item(t[0]:nil, deletechars(t[1]:"", "&")); + }))), content); + else + return `DumbTab(id, tabs, content); + } } -- To unsubscribe, e-mail: yast-commit+unsubscribe@opensuse.org For additional commands, e-mail: yast-commit+help@opensuse.org