Author: fehr
Date: Thu Mar 10 11:09:40 2011
New Revision: 63556
URL: http://svn.opensuse.org/viewcvs/yast?rev=63556&view=rev
Log:
add files for handling btrfs panel
Added:
trunk/storage/storage/src/include/ep-btrfs-dialogs.ycp
trunk/storage/storage/src/include/ep-btrfs-lib.ycp
trunk/storage/storage/src/include/ep-btrfs.ycp
Added: trunk/storage/storage/src/include/ep-btrfs-dialogs.ycp
URL: http://svn.opensuse.org/viewcvs/yast/trunk/storage/storage/src/include/ep-btrfs-dialogs.ycp?rev=63556&view=auto
==============================================================================
--- trunk/storage/storage/src/include/ep-btrfs-dialogs.ycp (added)
+++ trunk/storage/storage/src/include/ep-btrfs-dialogs.ycp Thu Mar 10 11:09:40 2011
@@ -0,0 +1,36 @@
+/**
+ * File: ep-btrfs-dialogs.ycp
+ * Package: yast2-storage
+ * Summary: Expert Partitioner
+ * Authors: Thomas Fehr
+ *
+ * This file must only be included in other Expert Partitioner files ("ep-*.ycp").
+ */
+{
+ textdomain "storage";
+
+
+ boolean DlgEditBtrfsVolume(map &data)
+ {
+ y2milestone( "DlgEditBtrfsVolume %1", data );
+ string device = data["device"]:"error";
+
+ map aliases = $[
+ "FormatMount" : ``(MiniWorkflowStepFormatMount(data)),
+ "Password" : ``(MiniWorkflowStepPassword(data))
+ ];
+
+ map sequence = $[
+ "FormatMount" : $[ `next : "Password",
+ `finish : `finish ],
+ "Password" : $[ `finish : `finish ]
+ ];
+
+ // dialog title
+ string title = sformat(_("Edit Btrfs %1"), data["uuid"]:"");
+
+ symbol widget = MiniWorkflow::Run(title, StorageIcons::lvm_lv_icon, aliases, sequence, "FormatMount");
+
+ return widget == `finish;
+ }
+}
Added: trunk/storage/storage/src/include/ep-btrfs-lib.ycp
URL: http://svn.opensuse.org/viewcvs/yast/trunk/storage/storage/src/include/ep-btrfs-lib.ycp?rev=63556&view=auto
==============================================================================
--- trunk/storage/storage/src/include/ep-btrfs-lib.ycp (added)
+++ trunk/storage/storage/src/include/ep-btrfs-lib.ycp Thu Mar 10 11:09:40 2011
@@ -0,0 +1,97 @@
+/**
+ * File: ep-btrfs-lib.ycp
+ * Package: yast2-storage
+ * Summary: Expert Partitioner
+ * Authors: Thomas Fehr
+ *
+ * This file must only be included in other Expert Partitioner files ("ep-*.ycp").
+ */
+{
+ textdomain "storage";
+
+
+ void EpEditBtrfsDevice(string device)
+ {
+ if (device == nil)
+ {
+ // error popup
+ Popup::Error(_("No BTRFS device selected."));
+ return;
+ }
+
+ map target_map = Storage::GetTargetMap();
+ map data = Storage::GetPartition(target_map, device);
+ y2milestone( "EpEditBtrfsDevice device:%1 data:%2", device, data );
+
+ if (Storage::IsUsedBy(data))
+ {
+ // error popup
+ Popup::Error(sformat(_("The Btrfs %1 is in use. It cannot be
+edited. To edit %1, make sure it is not used."), data["uuid"]:""));
+ return;
+ }
+
+ if (DlgEditBtrfsVolume(data))
+ {
+ Storage::ChangeVolumeProperties(data);
+
+ UpdateMainStatus();
+ UpdateNavigationTree(nil);
+ TreePanel::Create();
+ UpdateTableFocus(device);
+ }
+ }
+
+ void EpDeleteBtrfsDevice(string device)
+ {
+ if (device == nil)
+ {
+ // error popup
+ Popup::Error(_("No BTRFS device selected."));
+ return;
+ }
+
+ map target_map = Storage::GetTargetMap();
+ map data = Storage::GetPartition(target_map, device);
+ y2milestone( "EpDeletBtrfsDevice device:%1 data:%2", device, data );
+
+ if (!Storage::CanDelete(data, target_map["/dev/btrfs"]:$[], true))
+ return;
+
+ if (EpDeleteDevice(device))
+ {
+ any new_focus = nil;
+ if (UI::QueryWidget(`tree, `CurrentItem) == device)
+ new_focus = `md;
+ UpdateMainStatus();
+ UpdateNavigationTree(new_focus);
+ TreePanel::Create();
+ }
+
+ }
+
+ void EpResizeBtrfsDevice(string device)
+ {
+ if (device == nil)
+ {
+ // error popup
+ Popup::Error(_("No BTRFS device selected."));
+ return;
+ }
+
+ map target_map = Storage::GetTargetMap();
+ map data = Storage::GetPartition(target_map, device);
+ y2milestone( "EpResizetrfsDevice device:%1 data:%2", device, data );
+
+ if (true/*EpDeleteDevice(device)*/)
+ {
+ any new_focus = nil;
+ if (UI::QueryWidget(`tree, `CurrentItem) == device)
+ new_focus = `btrfs;
+ UpdateMainStatus();
+ UpdateNavigationTree(new_focus);
+ TreePanel::Create();
+ }
+
+ }
+}
Added: trunk/storage/storage/src/include/ep-btrfs.ycp
URL: http://svn.opensuse.org/viewcvs/yast/trunk/storage/storage/src/include/ep-btrfs.ycp?rev=63556&view=auto
==============================================================================
--- trunk/storage/storage/src/include/ep-btrfs.ycp (added)
+++ trunk/storage/storage/src/include/ep-btrfs.ycp Thu Mar 10 11:09:40 2011
@@ -0,0 +1,229 @@
+/**
+ * File: ep-btrfs.ycp
+ * Package: yast2-storage
+ * Summary: Expert Partitioner
+ * Authors: Thomas Fehr
+ *
+ * This file must only be included in other Expert Partitioner files ("ep-*.ycp").
+ */
+{
+ textdomain "storage";
+
+ include "partitioning/ep-btrfs-dialogs.ycp";
+ include "partitioning/ep-btrfs-lib.ycp";
+
+
+ void EpContextMenuBtrfs(string device)
+ {
+ symbol widget = ContextMenu::Simple([ `item(`id(`edit), _("Edit")),
+ `item(`id(`delete), _("Delete"))]);
+
+ switch (widget)
+ {
+ case `edit:
+ EpEditBtrfsDevice(device);
+ break;
+ case `delete:
+ EpDeleteBtrfsDevice(device);
+ break;
+ }
+ }
+
+ void HandleBtrfsButtons( any user_data, string device, map event )
+ {
+ y2milestone( "HandleBtrfsButtons device:%1 user_data:%2 event:%3",
+ device, event, user_data );
+ string disk_device = "";
+
+ if (user_data == nil)
+ {
+ map disk = nil;
+ map part = nil;
+
+ map target_map = Storage::GetTargetMap();
+ SplitDevice(target_map, device, disk, part);
+ disk_device = (string) disk["device"]:"";
+ }
+ else
+ {
+ disk_device = (string) user_data;
+ }
+
+ switch (Event::IsWidgetActivated(event))
+ {
+ case `edit:
+ EpEditBtrfsDevice(device);
+ break;
+
+ case `resize:
+ EpResizeBtrfsDevice(device);
+ break;
+ }
+ }
+
+ void CreateBtrfsMainPanel(any user_data)
+ {
+ list<symbol> fields = StorageSettings::FilterTable([ `device, `size, `format, `encrypted, `type,
+ `fs_type, `label, `mount_point, `mount_by ]);
+
+ map target_map = Storage::GetTargetMap();
+ term table_header = StorageFields::TableHeader(fields);
+ list<term> table_contents = StorageFields::TableContents(fields, target_map, StorageFields::PredicateBtrfs);
+ UI::ReplaceWidget(`tree_panel,
+ Greasemonkey::Transform(
+ `VBox(
+ `HStretch(),
+ // heading
+ `IconAndHeading(_("Btrfs Volumes (BTRFS)"), StorageIcons::dm_icon ),
+ `Table(`id(`table), `opt(`keepSorting, `notify, `notifyContextMenu),
+ table_header, table_contents),
+ ArrangeButtons([ // push button text
+ `PushButton(`id(`edit),`opt(`key_F4), _("Edit...")),
+ // push button text
+ `PushButton(`id(`resize),`opt(`key_F8), _("Resize...")),
+ `HStretch() ])
+ )
+ ));
+
+ // helptext
+ string helptext = _("<p>This view shows all BTRFS volumes.</p>");
+
+ Wizard::RestoreHelp(helptext + StorageFields::TableHelptext(fields));
+ }
+
+ void HandleBtrfsMainPanel(any user_data, map event)
+ {
+ string device = (string) UI::QueryWidget(`id(`table), `CurrentItem);
+ HandleBtrfsButtons( user_data, device, event );
+ switch (Event::IsWidgetContextMenuActivated(event))
+ {
+ case `table:
+ EpContextMenuDevice(device);
+ break;
+ }
+ UI::SetFocus(`id(`table));
+ }
+
+
+ void CreateBtrfsOverviewTab(any user_data)
+ {
+ string device = (string) user_data;
+ y2milestone( "CreateBtrfsOverviewTab user_data:%1", user_data );
+
+ map target_map = Storage::GetTargetMap();
+
+ list<symbol> fields = StorageSettings::FilterOverview([ `heading_device, `device, `size, `used_by,
+ `heading_filesystem, `fs_type, `mount_point,
+ `mount_by, `uuid, `label ]);
+
+ UI::ReplaceWidget(`tab_panel,
+ Greasemonkey::Transform(
+ `VBox(
+ StorageFields::Overview(fields, target_map, device),
+ `HBox(
+ // push button text
+ `PushButton(`id(`edit), _("Edit...")),
+ `HStretch()
+ )
+ )
+ )
+ );
+
+ // helptext
+ string helptext = _("<p>This view shows detailed information about the
+selected BTRFS volume.</p>");
+
+ Wizard::RestoreHelp(helptext + StorageFields::OverviewHelptext(fields));
+ }
+
+
+ void HandleBtrfsOverviewTab(any user_data, map event)
+ {
+ string device = (string) user_data;
+ y2milestone( "HandleBtrfsOverviewTab user_data:%1", user_data );
+
+ switch (Event::IsWidgetActivated(event))
+ {
+ case `edit:
+ EpEditBtrfsDevice(device);
+ break;
+ case `delete:
+ EpDeleteBtrfsDevice(device);
+ break;
+ case `resize:
+ EpResizeBtrfsDevice(device);
+ break;
+ }
+ }
+
+
+ void CreateBtrfsDevicesTab(any user_data)
+ {
+ string part_device = (string) user_data;
+ integer pos = search( part_device, "=" );
+ if( pos != nil )
+ part_device = substring( part_device, pos+1 );
+ y2milestone( "CreateBtrfsDevicesTab user_data:%1 part_device:%2", user_data, part_device );
+
+ symbol Predicate(map disk, map partition)
+ {
+ return StorageFields::PredicateUsedByDevice(disk, partition, [ part_device ]);
+ }
+
+ list<symbol> fields = StorageSettings::FilterTable([ `device, `udev_path, `udev_id, `size,
+ `format, `encrypted, `type ]);
+
+ map target_map = Storage::GetTargetMap();
+
+ term table_header = StorageFields::TableHeader(fields);
+ list<term> table_contents = StorageFields::TableContents(fields, target_map, Predicate);
+
+ UI::ReplaceWidget(`tab_panel,
+ `VBox(
+ `Table(`id(`table), `opt(`keepSorting, `notify),
+ table_header, table_contents)
+ )
+ );
+
+ // helptext
+ string helptext = _("<p>This view shows all devices used by the
+selected BTRFS volume.</p>");
+
+ Wizard::RestoreHelp(helptext + StorageFields::TableHelptext(fields));
+ }
+
+
+ void CreateBtrfsPanel(any user_data)
+ {
+ string device = (string) user_data;
+ y2milestone( "CreateBtrfsPanel user_data:%1 device:%2", user_data, device );
+
+ map data = $[ `overview : $[ `create : CreateBtrfsOverviewTab, `handle : HandleBtrfsOverviewTab, `user_data : user_data ],
+ `devices : $[ `create : CreateBtrfsDevicesTab, `user_data : user_data ] ];
+
+ UI::ReplaceWidget(`tree_panel,
+ Greasemonkey::Transform(
+ `VBox(
+ // heading
+ `IconAndHeading(sformat(_("Btrfs Device: %1"), device), StorageIcons::lvm_lv_icon),
+ `DumbTab(`id(`tab), [
+ // push button text
+ `item(`id(`overview), _("&Overview")),
+ // push button text
+ `item(`id(`devices), _("&Used Devices"))
+ ],
+ `ReplacePoint(`id(`tab_panel), TabPanel::empty_panel)
+ )
+ )
+ )
+ );
+
+ TabPanel::Init(data, `overview);
+ }
+
+
+ void HandleBtrfsPanel(any user_data, map event)
+ {
+ TabPanel::Handle(event);
+ }
+}
--
To unsubscribe, e-mail: yast-commit+unsubscribe@opensuse.org
For additional commands, e-mail: yast-commit+help@opensuse.org
