You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
tdebindings/korundum/rubylib/examples/uisampler.rb

239 lines
9.3 KiB

=begin
This is a ruby version of Jim Bublitz's pytde program, translated by Richard Dale
=end
13 years ago
require 'Korundum'
13 years ago
require 'uimodules/uiwidgets.rb'
require 'uimodules/uidialogs.rb'
require 'uimodules/uimenus.rb'
require 'uimodules/uimisc.rb'
require 'uimodules/uixml.rb'
$listItems = {"Dialogs" =>
{"KDE::AboutDialog" => ["KDE::AboutApplication", "KDE::AboutContainer", "KDE::ImageTrackLabel",
"KDE::AboutContainerBase", "KDE::AboutContributor", "KDE::AboutWidget"],
"KDE::AboutKDE" => [],
"KDE::BugReport" => [],
"KDE::ColorDialog" => [],
"KDE::Dialog" => [],
"KDE::DialogBase" => ["KDE::DialogBaseButton", "KDE::DialogBase::SButton", "KDE::DialogBaseTile"],
"KDE::FontDialog" => [],
"KDE::KeyDialog" => [],
"KDE::InputDialog" => [],
"KDE::MessageBox" => [],
"KDE::PasswordDialog" => [],
"KDE::Wizard" => []},
"Widgets" =>
{"KDE::AnimWidget" => [],
"KDE::AuthIcon" => ["KDE::RootPermsIcon", "KDE::WritePermsIcon"],
"KDE::ButtonBox" => [],
"KDE::CharSelect" => ["KDE::CharSelectTable"],
"KDE::ColorButton" => [],
"KDE::ColorCells" => [],
"KDE::ColorCombo" => [],
"KDE::ColorPatch" => [],
"KDE::ComboBox" => [],
"KDE::CompletionBox" => [],
"KDE::ContainerLayout" => ["KDE::ContainerLayout::KContainerLayoutItem"],
"KDE::Cursor" => [],
"KDE::DatePicker" => ["KDE::DateInternalMonthPicker", "KDE::DateInternalYearSelector"],
"KDE::DateTable" => [],
"KDE::DualColorButton" => [],
"KDE::EditListBox" => [],
"KDE::FontChooser" => [],
"KDE::HSSelector" => [],
"KDE::IconView" => [],
"KDE::JanusWidget" => ["KDE::JanusWidget::IconListBox"],
"KDE::KeyChooser" => [],
"KDE::Led" => [],
"KDE::LineEdit" => [],
"KDE::ListBox" => [],
"KDE::ListView" => [],
"KDE::NumInput" => ["KDE::DoubleNumInput", "KDE::IntNumInput"],
"KDE::PaletteTable" => [],
"KDE::PasswordEdit" => [],
"KDE::Progress" => [],
"KDE::RootPixmap" => [],
"KDE::MainWindow" => [],
"KDE::RestrictedLine" => [],
"KDE::Ruler" => [],
"KDE::Selector" => ["KDE::GradientSelector", "KDE::ValueSelector", "KDE::HSSelector", "KDE::XYSelector"],
"KDE::Separator" => [],
"KDE::SqueezedTextLabel" => [],
"KDE::TabCtl" => [],
"KDE::TextBrowser" => [],
"KDE::TextEdit" => ["KDE::EdFind", "KDE::EdGotoLine", "KDE::EdReplace"],
"KDE::URLLabel" => []},
"XML" =>
{"KDE::ActionCollection" => [],
"KDE::EditToolbar" => [],
"KDE::EditToolbarWidget" => [],
"KDE::XMLGUIBuilder" => [],
"KDE::XMLGUIClient" => ["KDE::XMLGUIClient::DocStruct"],
"KDE::XMLGUIFactory" => []},
"Menus/Toolbars" =>
{"KDE::AccelMenu" => [],
"KDE::Action" => ["KDE::FontAction", "KDE::FontSizeAction", "KDE::ListAction", "KDE::RecentFilesAction", "KDE::RadioAction",
"KDE::SelectAction", "KDE::ToggleAction"],
"KDE::ActionMenu" => [],
"KDE::ActionSeparator" => [],
"KDE::ContextMenuManager" => [],
"KDE::DCOPActionProxy" => [],
"KDE::HelpMenu" => [],
"KDE::MenuBar" => [],
"KDE::PanelApplet" => [],
"KDE::PanelExtension" => [],
"KDE::PanelMenu" => [],
"KDE::PopupFrame" => [],
"KDE::PopupMenu" => [],
"KDE::PopupTitle" => [],
"KDE::StatusBar" => [],
"KDE::StatusBarLabel" => [],
"KDE::StdAction" => [],
"KDE::ToolBar" => ["KDE::ToolBarButton", "KDE::ToolBarButtonList", "KDE::ToolBarPopupAction",
"KDE::ToolBarRadioGroup", "KDE::ToolBarSeparator"],
"KDE::WindowListMenu" => []},
"Other" =>
{"KDE::AlphaPainter" => [],
"KDE::CModule" => [],
"KDE::Color" => [],
"KDE::ColorDrag" => [],
"KDE::Command" => ["KDE::MacroCommand"],
"KDE::CommandHistory" => [],
"KDE::DateValidator" => [],
"KDE::DockWindow" => ["KDE::DockButton_Private - KPanelMenu", "KDE::DockButton_Private",
"KDE::DockSplitter", "KDE::DockTabCtl_PrivateStruct", "KDE::DockWidgetAbstractHeader",
"KDE::DockWidgetAbstractHeaderDrag", "KDE::DockWidgetHeader",
"KDE::DockWidgetHeaderDrag", "KDE::DockWidgetPrivate"],
"KDE::DoubleValidator" => [],
"KDE::IntValidator" => [],
"KDE::PixmapIO" => [],
"KDE::SharedPixmap" => [],
"KDE::SystemTray" => [],
"KDE::ThemeBase" => ["KDE::ThemeCache", "KDE::ThemePixmap", "KDE::ThemeStyle"],
"TQXEmbed" => []}}
BLANK_MSG = <<END_OF_STRING
<b>UISampler</b> - provides examples of <b>Korundum</b> widgets<p>
Select a dialog/widget/menu/etc example from the tree at left
END_OF_STRING
class MainWin < KDE::MainWindow
TREE_WIDTH = 220
slots 'lvClicked(TQListViewItem*)'
attr_accessor :edit, :currentPageObj
def initialize(*args)
super
setCaption("Samples of Korundum widget usage")
# The following leave about 375 x 390 for the rt hand panel
mainGeom = TQt::Rect.new(0, 0, 640, 500)
setGeometry(mainGeom)
# create the main view - list view on the left and an
# area to display frames on the right
@mainView = TQt::Splitter.new(self, "main view")
@tree = KDE::ListView.new(@mainView, "tree")
@page = TQt::WidgetStack.new(@mainView, "page")
blankPage = TQt::Widget.new(@page, "blank")
blankPage.setGeometry(0, 0, 375, 390)
blankPage.setBackgroundMode(TQt::Widget::PaletteBase)
blankLbl = TQt::Label.new(BLANK_MSG, blankPage)
blankLbl.setGeometry(40, 10, 380, 150)
blankLbl.setBackgroundMode(TQt::Widget::PaletteBase)
blankPM = TQt::Pixmap.new("rbtestimage.png")
pmLbl = TQt::Label.new("", blankPage)
pmLbl.setPixmap(blankPM)
pmLbl.setGeometry(40, 160, 300, 200)
pmLbl.setBackgroundMode(TQt::Widget::PaletteBase)
@page.addWidget(blankPage, 1)
@page.raiseWidget(1)
setCentralWidget(@mainView)
initListView()
connect(@tree, SIGNAL("clicked(TQListViewItem*)"), self, SLOT('lvClicked(TQListViewItem*)'))
@edit = nil
@currentPageObj = nil
@prefix = {"Dialogs" => "UIDialogs::dlg", "Widgets" => "UIWidgets::wid", "XML" => "UIXML::xml",
"Menus/Toolbars" => "UIMenus::menu", "Other" => "UIMisc::misc"}
end
def initListView()
@tree.addColumn("Category", TREE_WIDTH - 21)
# tree.setMaximumWidth(treeWidth)
@mainView.setSizes([TREE_WIDTH, 375])
@tree.setRootIsDecorated(true)
@tree.setVScrollBarMode(TQt::ScrollView::AlwaysOn)
topLevel = $listItems.keys()
topLevel.each do |item_1|
parent = TQt::ListViewItem.new(@tree, String.new(item_1))
secondLevel = $listItems[item_1].keys()
secondLevel.each do |item_2|
child = TQt::ListViewItem.new(parent, String.new(item_2))
$listItems[item_1][item_2].each do |item_3|
TQt::ListViewItem.new(child, String.new(item_3))
end
end
end
end
def lvClicked(lvItem)
if lvItem.nil?
return
end
if $listItems.keys().include?(lvItem.text(0))
return
end
p = lvItem.parent()
if $listItems.keys().include?(p.text(0))
pfx = @prefix[p.text(0)]
funcCall = pfx + lvItem.text(0).sub("KDE::","K") + "(self)"
else
pfx = @prefix[p.parent().text(0)]
funcCall = pfx + lvItem.parent().text(0).sub("KDE::","K") + "(self)"
end
eval funcCall
end
def addPage()
@edit = nil
@currentPageObj = nil
current = @page.widget(2)
if !current.nil?
@page.removeWidget(current)
current.dispose
end
newPage = TQt::Widget.new(@page)
newPage.setGeometry(0, 0, 375, 390)
# newPage.setBackgroundMode(TQWidget.PaletteBase)
@page.addWidget(newPage, 2)
@page.raiseWidget(2)
return newPage
end
end
#-------------------- main ------------------------------------------------
appName = "UISampler"
about = KDE::AboutData.new("uisampler", appName, "0.1")
KDE::CmdLineArgs.init(ARGV, about)
app = KDE::Application.new()
mainWindow = MainWin.new(nil, "main window")
mainWindow.show
app.exec