[yast-commit] r45531 - in /branches/tmp/aschnell/part-redesign/storage/src: include/ep-log.ycp include/ep-main.ycp include/ep-settings.ycp modules/TabPanel.ycp modules/TreePanel.ycp
Author: aschnell
Date: Mon Mar 17 15:04:53 2008
New Revision: 45531
URL: http://svn.opensuse.org/viewcvs/yast?rev=45531&view=rev
Log:
- automatically update log
Modified:
branches/tmp/aschnell/part-redesign/storage/src/include/ep-log.ycp
branches/tmp/aschnell/part-redesign/storage/src/include/ep-main.ycp
branches/tmp/aschnell/part-redesign/storage/src/include/ep-settings.ycp
branches/tmp/aschnell/part-redesign/storage/src/modules/TabPanel.ycp
branches/tmp/aschnell/part-redesign/storage/src/modules/TreePanel.ycp
Modified: branches/tmp/aschnell/part-redesign/storage/src/include/ep-log.ycp
URL: http://svn.opensuse.org/viewcvs/yast/branches/tmp/aschnell/part-redesign/storage/src/include/ep-log.ycp?rev=45531&r1=45530&r2=45531&view=diff
==============================================================================
--- branches/tmp/aschnell/part-redesign/storage/src/include/ep-log.ycp (original)
+++ branches/tmp/aschnell/part-redesign/storage/src/include/ep-log.ycp Mon Mar 17 15:04:53 2008
@@ -9,38 +9,39 @@
textdomain "storage";
- // TODO: use yast2/library/log/src/LogView.ycp (but need modification)
-
-
- void RefreshLog()
- {
- // TODO: limit number of lines
- // TODO: jump to last line / keep position
- string file_content = (string) SCR::Read (.target.string, "/var/log/messages");
- UI::ChangeWidget (`id(`log), `Value, file_content);
- }
+ import "LogViewCore";
void CreateLogPanel(any user_data)
{
+ string file = "/var/log/messages";
+ integer max_lines = 100;
+
UI::ReplaceWidget(`tree_panel,
`VBox(
- `Left(`Heading("Log")),
- `LogView(`id(`log), "/var/log/messages", 10, 0),
- `PushButton(`id(`refresh), "Refresh")
+ `Left(`Heading(_("Log"))),
+ `LogView(`id(`log), sformat(_("Content of %1:"), file), 10, max_lines)
));
- RefreshLog();
+ Wizard::RestoreHelp("Log help TODO");
- Wizard::RestoreHelp("Log help");
+ LogViewCore::Start($[ "widget" : `log,
+ "file" : file,
+ "max_lines" : max_lines ]);
}
void HandleLogPanel(any user_data, any widget)
{
- if (widget == `refresh)
+ if (widget == `timeout)
{
- RefreshLog();
+ LogViewCore::Update();
}
}
+
+
+ void DestroyLogPanel(any user_data)
+ {
+ LogViewCore::Stop();
+ }
}
Modified: branches/tmp/aschnell/part-redesign/storage/src/include/ep-main.ycp
URL: http://svn.opensuse.org/viewcvs/yast/branches/tmp/aschnell/part-redesign/storage/src/include/ep-main.ycp?rev=45531&r1=45530&r2=45531&view=diff
==============================================================================
--- branches/tmp/aschnell/part-redesign/storage/src/include/ep-main.ycp (original)
+++ branches/tmp/aschnell/part-redesign/storage/src/include/ep-main.ycp Mon Mar 17 15:04:53 2008
@@ -69,8 +69,8 @@
`dm : $[ `create : CreateDmMainPanel, `handle : HandleDmMainPanel ],
`nfs : $[ `create : CreateNfsMainPanel, `handle : HandleNfsMainPanel ],
`unused : $[ `create : CreateUnusedPanel, `handle : HandleUnusedPanel ],
- `settings : $[ `create : CreateSettingsPanel, `save : SaveSettingsPanel ],
- `log : $[ `create : CreateLogPanel, `handle : HandleLogPanel ] ];
+ `settings : $[ `create : CreateSettingsPanel, `destroy : DestroySettingsPanel ],
+ `log : $[ `create : CreateLogPanel, `handle : HandleLogPanel, `destroy : DestroyLogPanel ] ];
map
participants (1)
-
aschnell@svn.opensuse.org