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.
83 lines
2.7 KiB
83 lines
2.7 KiB
require 'Korundum'
|
|
|
|
class MainWindow < KDE::MainWindow
|
|
slots 'changeLocation()',
|
|
'openURLRequest(const KURL &, const KParts::URLArgs & )',
|
|
'bookLocation()'
|
|
|
|
def initialize( name )
|
|
super(nil, name)
|
|
setCaption("KDE Tutorial - p5")
|
|
|
|
filemenu = TQt::PopupMenu.new
|
|
filemenu.insertItem( i18n( "&Quit" ), $kapp, SLOT( 'quit()' ) )
|
|
about =
|
|
i18n("p5 1.0\n\n" +
|
|
"(C) 1999-2002 Antonio Larrosa Jimenez\n" +
|
|
"larrosa@kde.org\t\tantlarr@supercable.es\n" +
|
|
"Malaga (Spain)\n\n" +
|
|
"Simple KDE Tutorial\n" +
|
|
"This tutorial comes with ABSOLUTELY NO WARRANTY \n" +
|
|
"This is free software, and you are welcome to redistribute it\n" +
|
|
"under certain conditions\n");
|
|
|
|
helpmenu = helpMenu(about)
|
|
menu = menuBar()
|
|
menu.insertItem( i18n( "&File" ), filemenu)
|
|
menu.insertSeparator()
|
|
menu.insertItem(i18n("&Help"), helpmenu)
|
|
|
|
vbox = TQt::VBox.new( self )
|
|
|
|
@location = TQt::LineEdit.new( vbox )
|
|
@location.setText( "http://localhost" )
|
|
|
|
connect( @location , SIGNAL( 'returnPressed()' ),
|
|
self, SLOT( 'changeLocation()' ) )
|
|
|
|
split = TQt::Splitter.new( vbox )
|
|
split.setOpaqueResize()
|
|
|
|
bookmark = TQt::PushButton.new( i18n("Add to Bookmarks"), split );
|
|
|
|
connect( bookmark, SIGNAL( 'clicked()' ), self, SLOT( 'bookLocation()' ) )
|
|
|
|
@browser = KDE::HTMLPart.new( split )
|
|
@browser.openURL( KDE::URL.new(@location.text()) )
|
|
|
|
connect( @browser.browserExtension(),
|
|
SIGNAL( 'openURLRequest( const KURL &, const KParts::URLArgs & )' ),
|
|
self, SLOT( 'openURLRequest(const KURL &, const KParts::URLArgs & )' ) )
|
|
setCentralWidget(vbox)
|
|
end
|
|
|
|
|
|
def changeLocation()
|
|
@browser.openURL( KDE::URL.new(@location.text()) )
|
|
end
|
|
|
|
def openURLRequest(url, part)
|
|
@location.text = url.url()
|
|
changeLocation()
|
|
end
|
|
|
|
def bookLocation()
|
|
dcopRef = KDE::DCOPRef.new("p6", "BookMarkList")
|
|
if ! dcopRef.add(@location.text())
|
|
tqWarning("Error with DCOP\n")
|
|
end
|
|
end
|
|
end
|
|
|
|
about = KDE::AboutData.new("p5", "Tutorial - p5", "0.1")
|
|
KDE::CmdLineArgs.init(ARGV, about)
|
|
a = KDE::Application.new()
|
|
|
|
window = MainWindow.new( "Tutorial - p5" )
|
|
window.resize( 300, 200 )
|
|
|
|
a.mainWidget = window
|
|
window.show
|
|
|
|
a.exec
|