Author: fehr Date: Fri May 6 11:58:29 2011 New Revision: 63919 URL: http://svn.opensuse.org/viewcvs/yast?rev=63919&view=rev Log: add new files for tmps support Added: trunk/storage/storage/src/include/ep-tmpfs-dialogs.ycp trunk/storage/storage/src/include/ep-tmpfs-lib.ycp trunk/storage/storage/src/include/ep-tmpfs.ycp Added: trunk/storage/storage/src/include/ep-tmpfs-dialogs.ycp URL: http://svn.opensuse.org/viewcvs/yast/trunk/storage/storage/src/include/ep-tmpfs-dialogs.ycp?rev=63919&view=auto ============================================================================== --- trunk/storage/storage/src/include/ep-tmpfs-dialogs.ycp (added) +++ trunk/storage/storage/src/include/ep-tmpfs-dialogs.ycp Fri May 6 11:58:29 2011 @@ -0,0 +1,34 @@ +/** + * File: ep-tmpfs-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 DlgCreateTmpfs(map &data) + { + map aliases = $[ + "FormatMount" : ``(MiniWorkflowStepFormatMount(data)) + ]; + + map sequence = $[ + "FormatMount" : $[ `finish : `finish ], + ]; + + // dialog title + string title = _("Add Tmpfs Mount"); + + symbol widget = MiniWorkflow::Run(title, StorageIcons::dm_icon, aliases, sequence, "FormatMount"); + + return widget == `finish; + } + + + + +} Added: trunk/storage/storage/src/include/ep-tmpfs-lib.ycp URL: http://svn.opensuse.org/viewcvs/yast/trunk/storage/storage/src/include/ep-tmpfs-lib.ycp?rev=63919&view=auto ============================================================================== --- trunk/storage/storage/src/include/ep-tmpfs-lib.ycp (added) +++ trunk/storage/storage/src/include/ep-tmpfs-lib.ycp Fri May 6 11:58:29 2011 @@ -0,0 +1,51 @@ +/** + * File: ep-tmpfs-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 EpDeleteTmpfsDevice(string device) + { + if (device == nil) + { + // error popup + Popup::Error(_("No TMPFS device selected.")); + return; + } + + list<string> tmp = splitstring(device,":"); + string mount = tmp[1]:""; + y2milestone( "EpDeleteTmpfsDevice device:%1 mount:%2", device, mount ); + // YesNo popup. %1 is path to a file + if( Popup::YesNo( sformat(_("\nReally delete tmpfs mounted to %1"), mount )) && + Storage::DelTmpfsVolume( mount )) + { + any new_focus = nil; + if (UI::QueryWidget(`tree, `CurrentItem) == device) + new_focus = `tmpfs; + UpdateMainStatus(); + UpdateNavigationTree(new_focus); + TreePanel::Create(); + } + } + +void EpAddTmpfsDevice() + { + map data = $[ "device":"tmpfs", "fstype":"TMPFS", "format":true, + "type":`tmpfs, "detected_fs":`tmpfs, "used_fs":`tmpfs ]; + if( DlgCreateTmpfs(data) ) + { + y2milestone( "EpAddTmpfsDevice data:%1", data ); + Storage::AddTmpfsVolume( data["mount"]:"", data["fstopt"]:"" ); + UpdateMainStatus(); + UpdateNavigationTree(nil); + TreePanel::Create(); + } + } +} Added: trunk/storage/storage/src/include/ep-tmpfs.ycp URL: http://svn.opensuse.org/viewcvs/yast/trunk/storage/storage/src/include/ep-tmpfs.ycp?rev=63919&view=auto ============================================================================== --- trunk/storage/storage/src/include/ep-tmpfs.ycp (added) +++ trunk/storage/storage/src/include/ep-tmpfs.ycp Fri May 6 11:58:29 2011 @@ -0,0 +1,184 @@ +/** + * File: ep-tmpfs.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-tmpfs-dialogs.ycp"; + include "partitioning/ep-tmpfs-lib.ycp"; + + + void EpContextMenuTmpfs(string device) + { + symbol widget = ContextMenu::Simple([ `item(`id(`delete), _("Delete")) ]); + + switch (widget) + { + case `delete: + EpDeleteTmpfsDevice(device); + break; + } + } + + void HandleTmpfsButtons( any user_data, string device, map event ) + { + y2milestone( "HandleTmpfsButtons 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 `delete: + EpDeleteTmpfsDevice(device); + break; + + case `add: + EpAddTmpfsDevice(); + break; + } + } + + void CreateTmpfsMainPanel(any user_data) + { + list<symbol> fields = StorageSettings::FilterTable([ `size, `type, + `fs_type, `mount_point ]); + + map target_map = Storage::GetTargetMap(); + term table_header = StorageFields::TableHeader(fields); + list<term> table_contents = StorageFields::TableContents(fields, target_map, StorageFields::PredicateTmpfs); + UI::ReplaceWidget(`tree_panel, + Greasemonkey::Transform( + `VBox( + `HStretch(), + // heading + `IconAndHeading(_("Tmpfs Volumes (TMPFS)"), StorageIcons::dm_icon ), + `Table(`id(`table), `opt(`keepSorting, `notify, `notifyContextMenu), + table_header, table_contents), + ArrangeButtons([ // push button text + `PushButton(`id(`add),`opt(`key_F3), _("Add...")), + // push button text + `PushButton(`id(`delete),`opt(`key_F5), _("Delete...")), + `HStretch() ]) + ) + )); + + // helptext + string helptext = _("<p>This view shows all TMPFS volumes.</p>"); + + Wizard::RestoreHelp(helptext + StorageFields::TableHelptext(fields)); + } + + void HandleTmpfsMainPanel(any user_data, map event) + { + string device = (string) UI::QueryWidget(`id(`table), `CurrentItem); + HandleTmpfsButtons( user_data, device, event ); + switch (Event::IsWidgetContextMenuActivated(event)) + { + case `table: + EpContextMenuDevice(device); + break; + } + UI::SetFocus(`id(`table)); + } + + + void CreateTmpfsOverviewTab(any user_data) + { + string device = (string) user_data; + y2milestone( "CreateTmpfsOverviewTab 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 ]); + + UI::ReplaceWidget(`tab_panel, + Greasemonkey::Transform( + `VBox( + StorageFields::Overview(fields, target_map, device), + `HBox( + // push button text + `PushButton(`id(`delete), _("Delete...")), + `HStretch() + ) + ) + ) + ); + + // helptext + string helptext = _("<p>This view shows detailed information about the +selected TMPFS volume.</p>"); + + Wizard::RestoreHelp(helptext + StorageFields::OverviewHelptext(fields)); + } + + + void HandleTmpfsOverviewTab(any user_data, map event) + { + string device = (string) user_data; + y2milestone( "HandleTmpfsOverviewTab user_data:%1", user_data ); + + switch (Event::IsWidgetActivated(event)) + { + case `add: + EpAddTmpfsDevice(); + break; + case `delete: + EpDeleteTmpfsDevice(device); + break; + } + } + + + void CreateTmpfsPanel(any user_data) + { + string device = (string) user_data; + y2milestone( "CreateTmpfsPanel user_data:%1 device:%2", user_data, device ); + + map data = $[ `overview : $[ `create : CreateTmpfsOverviewTab, `handle : HandleTmpfsOverviewTab, `user_data : user_data ] + ]; + + UI::ReplaceWidget(`tree_panel, + Greasemonkey::Transform( + `VBox( + // heading + `IconAndHeading(sformat(_("Tmpfs mounted at %1"), device), StorageIcons::lvm_lv_icon), + `DumbTab(`id(`tab), [ + // push button text + `item(`id(`overview), _("&Overview")) + ], + `ReplacePoint(`id(`tab_panel), TabPanel::empty_panel) + ) + ) + ) + ); + + TabPanel::Init(data, `overview); + } + + + void HandleTmpfsPanel(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