JEditorPaneでswingブラウザを作ってみましたが。。。
JEditorPaneを覚えたので、ちょー簡易ブラウザを作ってみました。
require 'rubeus' Rubeus::Swing.irb JFrame.new "swing browser" do |f| f.layout = BoxLayout.new :Y_AXIS JPanel.new do |p| p.layout = BoxLayout.new :X_AXIS JLabel.new "Site: " @url_field = JTextField.new "http://www.yahoo.co.jp" JButton.new "go" do @view.page = @url_field.text end end JScrollPane.new :preferred_size => "800x600" do @view = JEditorPane.new @view.editable = false @view.listen :hyperlink do |e| if e.event_type == javax.swing.event.HyperlinkEvent::EventType::ACTIVATED @view.page = e.url @url_field.text = e.url.to_s end end end f.location_relative_to = nil f.pack f.visible = true end
表示はできたんですが、なんていうかスタイル崩れたり色がおかしいかったりです。
これって設定がおかしいのでしょうか。
でも、30行で作れちゃんですからそこは感動です。
とりあえず、ここまで。