ratchet 0.3.0

data/lib/ratchet/gtk/mainwindow.rb

@@ -0,0 +1,504 @@
+=begin
+	This file is part of the Ratchet project, a client for Icecap.
+    Copyright (C) 2005-6  Andrew Thompson
+
+    This program is free software; you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation; either version 2 of the License, or
+    (at your option) any later version.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with this program; if not, write to the Free Software
+    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+=end
+
+#### mainwindow.rb ####
+# The main window, a LOT of stuff is in here...
+####
+
+#TODO: move all but the GTK specific stuff into a more appropiate place
+
+module Ratchet
+	class MainWindow
+		attr_reader :currentbuffer, :buffers, :main, :config
+		include KeyBind
+		def initialize(main, confighash)
+			@main = main
+			@confighash = confighash
+			@config = @main.config
+
+			@glade = GladeXML.new("#{DATADIR}/glade/mainwindow.glade") {|handler| method(handler)}
+
+			@usernamebutton = @glade["username"]
+			@topic = @glade["topic"]
+			@messageinput = @glade["message_input"]
+			@messagescroll = @glade['message_scroll']
+			@messagevadjustment = @messagescroll.vadjustment
+
+			@tooltips = Gtk::Tooltips.new
+
+			@messageinput.grab_focus
+			@messageinput.signal_connect("key_press_event"){|widget, event| input_buttons(widget, event)}
+
+			@userlist = @glade['userlist']
+			@panel = @glade['hpaned1']
+			@vpanel = @glade['vpaned1']
+			@vpanel.hide
+			@mainbox = @glade['mainbox']
+			@messagebox = @glade['vbox2']
+			@preferencesbar = @glade['preferencesbar']
+			@usercount = @glade['usercount']
+			@currentbuffer = @serverlist
+
+			@glade['window1'].default_width = @confighash['width']
+			@glade['window1'].default_height = @confighash['height']
+
+			@usernamebutton.hide
+			@topic.hide
+
+			@messagescroll.set_size_request(0, -1)#magical diamond skill 7 hack to stop window resizing
+			args = [self]
+			if @confighash['console']
+				args.push(@main.console)
+			end
+			@buffers = BufferListController.new(*args)
+			redraw_channellist(true)
+
+			@glade['window1'].signal_connect('key_press_event') { |widget, event| window_buttons(widget, event)}
+
+			@me = self
+
+			@last = nil
+
+			@highlighted = []
+
+			@linkcursor = Gdk::Cursor.new(Gdk::Cursor::HAND2)
+			@normalcursor = Gdk::Cursor.new(Gdk::Cursor::LEFT_PTR)
+
+			@defaultmenu = Gtk::Menu.new
+			@defaultmenu.append(Gtk::MenuItem.new("thing1"))
+			@defaultmenu.append(Gtk::MenuItem.new("thing2"))
+
+			@bindable_functions = []
+			@bindable_functions.push({'name' => 'switchtab', 'arguments' => 1})
+			@bindable_functions.push({'name' => 'open_linkwindow', 'arguments' => 0})
+			@bindable_functions.push({'name' => 'open_preferences', 'arguments' => 0})
+			@bindable_functions.push({'name' => 'open_networks', 'arguments' => 0})
+			@bindable_functions.push({'name' => 'open_keybindings', 'arguments' => 0})
+			@bindable_functions.push({'name' => 'next_buffer', 'arguments' => 0})
+			@bindable_functions.push({'name' => 'prev_buffer', 'arguments' => 0})
+			#@keyintmap = {'q' => 11, 'w' => 12, 'e' => 13, 'r' => 14, 't'=> 15, 'y' => 16, 'u' => 17, 'i' => 18, 'o' => 19, 'p' => 20}
+		end
+
+		def draw_from_config(unhide=true)
+			puts 'drawing from config'
+			#~ return if $main.quitting
+			#~ #@serverlist.redraw
+			#~ redraw_channellist
+			#~ #resize the window if we have some saved sizes...
+			#~ x = -1
+			#~ y = -1
+
+			#~ x = $config['windowwidth'].to_i if $config['windowwidth']
+			#~ y = $config['windowheight'].to_i if $config['windowheight']
+
+			#~ @glade['window1'].default_width = x
+			#~ @glade['window1'].default_height = y
+			#~ @glade['window1'].resize(x, y)
+
+			#~ @panel.position = $config['panelposition'].to_i if $config['panelposition']
+
+			@font = Pango::FontDescription.new(@config['main_font'])
+
+			#~ update_view(@serverlist.view.view)
+			#~ @serverlist.servers.each do |server|
+			#~ update_view(server.view.view)
+			#~ server.channels.each {|channel| update_view(channel.view.view)}
+			#~ server.chats.each {|chat| update_view(chat.view.view)}
+			#~ end
+
+			#TODO - figure out how to set the cursor-color style var (its undocumented, might not be in ruby-gtk2)
+			#maybe use parse_string like for scwview
+			#@glade['window1'].resize(@confighash['width'], @confighash['height'])
+			@glade['window1'].move(@confighash['xpos'], @confighash['ypos'])
+			redraw_channellist
+			@glade['window1'].show_all
+			@glade['window1'].move(@confighash['xpos'], @confighash['ypos'])
+			@panel.position = @confighash['panelposition']
+			#@glade['window1'].resize(@confighash['width'], @confighash['height'])
+			@topic.hide unless @currentbuffer.respond_to? :topic
+			@usernamebutton.hide unless @currentbuffer.respond_to? :username
+			@messageinput.grab_focus
+		end
+
+		def redraw_channellist(force=false)
+			oldview = @buffers.view
+			@buffers.recreate
+			puts "switch channellist? #{oldview != @buffers.view} #{oldview} #{@buffers.view}"
+			if oldview != @buffers.view or force
+				@buffers.view.widget.show_all
+
+				if @config['tablisttype'] == 'button'
+					@vpanel.remove(@vpanel.child2)
+					@glade['v_top'].pack_start(@buffers.view.widget, false, false, 5)
+				elsif @config['tablisttype'] == 'treeview'
+					@glade['v_top'].remove(oldview.widget)
+					@vpanel.pack2(@buffers.view.widget, false, true)
+				end
+			end
+
+#         return
+
+#         if @buffers
+#             if @glade['h_top'].children.include?(@buffers.view.widget)
+#                 @glade['h_top'].remove(@buffers.view.widget)
+#             elsif @glade['v_top'].children.include?(@buffers.view.widget)
+#                 @glade['v_top'].remove(@buffers.view.widget)
+#             elsif @glade['u_pane'].children.include?(@buffers.view.widget)
+#                 @glade['u_pane'].remove(@buffers.view.widget)
+#             end
+#         end
+
+#         if $config['tablisttype'] == 'treeview'
+#             if $config['tablistposition'] != 'right' and $config['tablistposition'] != 'left' and $config['tablistposition'] != 'underuserlist'
+#                 $config['tablistposition'] = 'left'
+#             end
+#             unless @tablist.class == TreeTabList
+#                 $main.tabmodel.delete_observer(@tablist)
+#                 @tablist = TreeTabList.new($main.tabmodel)
+#             end
+#         else
+#             if $config['tablistposition'] == 'right' or $config['tablistposition'] == 'left' or $config['tablistposition'] == 'underuserlist'
+#                 unless @tablist.class == VBoxTabList
+#                     $main.tabmodel.delete_observer(@tablist)
+#                     @tablist = VBoxTabList.new($main.tabmodel)
+#                 end
+#             else
+#                 unless @tablist.class == HBoxTabList
+#                     $main.tabmodel.delete_observer(@tablist)
+#                     @tablist = HBoxTabList.new($main.tabmodel)
+#                 end
+#             end
+#         end
+
+#         $main.tabmodel.set_sort_and_structure(*$config.gettabmodelconfig)
+#         @tablist.renumber
+
+#         if $config['tablistposition'] == 'right'
+#             @glade['h_top'].pack_start(@tablist.widget, false, false, 5)
+#         elsif $config['tablistposition'] == 'left'
+#             @glade['h_top'].pack_start(@tablist.widget, false, false, 5)
+#             @glade['h_top'].reorder_child(@tablist.widget, 0)
+#         elsif $config['tablistposition'] == 'top'
+#             @glade['v_top'].pack_start(@tablist.widget, false, false, 5)
+#             @glade['v_top'].reorder_child(@tablist.widget, 0)
+#         elsif $config['tablistposition'] == 'bottom'
+#             @glade['v_top'].pack_start(@tablist.widget, false, false, 5)
+#         elsif $config['tablistposition'] == 'underuserlist'
+#             @glade['u_pane'].pack2(@tablist.widget, false, true)
+#         end
+			#@tablist.widget.show_all
+		end
+
+		def prev_buffer
+			@buffers.prev_buffer
+		end
+
+		def next_buffer
+			@buffers.next_buffer
+		end
+
+		def set_username
+			x = nil
+			label = Gtk::Label.new("New username")
+			entry = Gtk::Entry.new
+			entry.text = @currentbuffer.network.username
+			dialog = Gtk::Dialog.new("Username", nil,
+									Gtk::Dialog::MODAL | Gtk::Dialog::DESTROY_WITH_PARENT,
+									[Gtk::Stock::OK, Gtk::Dialog::RESPONSE_ACCEPT],
+									[Gtk::Stock::CANCEL, Gtk::Dialog::RESPONSE_REJECT])
+			dialog.vbox.add(label)
+			dialog.vbox.add(entry)
+			dialog.show_all
+			dialog.run do |response|
+				case response
+				when Gtk::Dialog::RESPONSE_ACCEPT
+					x = entry.text
+				end
+				dialog.destroy
+			end
+			@main.send_command('nick'+x, "presence change;#{@currentbuffer.network.identifier_string};name=#{x}") if x
+		end
+
+		def topic_change(widget)
+			if widget.text != @currentbuffer.topic and @currentbuffer.class == ChannelBuffer
+				@main.send_command('topicchange', 'channel change;network='+@currentbuffer.network.name+';mypresence='+@currentbuffer.presence+';channel='+@currentbuffer.name+';topic='+escape(widget.text))
+			end
+		end
+
+		#get the substring to use for tab completion.
+		def get_completion_substr
+			string = @messageinput.text
+			position = @messageinput.position
+			string = string[0, position]
+
+			#get the string between the end of the string and the last space (the fragment we use for matching)
+			name, whatever = string.reverse.split(' ', 2)
+
+			return nil unless name
+
+			name = name.reverse
+
+			return name
+		end
+
+		#function to do the nick replace for tab completion
+		def replace_completion_substr(substr, match)
+			string = @messageinput.text.strip
+			position = @messageinput.position
+
+			index = string.rindex(substr, position)
+			endindex = index+substr.length
+
+			replacement = match
+			
+			#append the tabcompletionsuffix if we're at the start of the line and it's not a command
+			if index == 0 and string[0, 1] != '/'
+				replacement += @config['tabcompletesuffix']
+			end
+			#pad the replacement string with a space if appropiate
+			if string[endindex, 1] != ' '
+				replacement += ' '
+			end
+			
+			#update the content of the entry
+			string[index, substr.length] = replacement
+			@messageinput.text = string
+			@messageinput.position = index+replacement.length
+		end
+
+		def switch_buffer(obj)
+			update_dimensions
+			@messagescroll.remove(@messagescroll.child) if @messagescroll.child
+			@vpanel.remove(@vpanel.child1) if @vpanel.child1
+			@commandbuffer.currentcommand = @messageinput.text if @commandbuffer
+			@currentbuffer.buffer.marklastread if @currentbuffer and @currentbuffer.buffer
+			@currentbuffer = obj
+			@commandbuffer = @currentbuffer.commandbuffer
+			@messageinput.text = @commandbuffer.currentcommand
+			@messageinput.position = -1 #puts the cursor position at the end
+			
+			if @currentbuffer.respond_to? :username
+				@usernamebutton.label = @currentbuffer.username.gsub('_', '__')
+				@usernamebutton.show
+			else
+				@usernamebutton.hide
+			end
+			if @currentbuffer.respond_to? :topic
+				update_topic
+				@topic.show
+			else
+				@topic.hide
+			end
+
+			if @currentbuffer.respond_to? :userlistview
+				@vpanel.show_all
+				@currentbuffer.userlistview.widget.show_all
+				@vpanel.pack1(@currentbuffer.userlistview.widget, false, false)
+				@panel.position = @confighash['panelposition'].to_i
+			elsif @config['tablisttype'] == 'treeview'
+				@panel.position = @confighash['panelposition'].to_i
+				@vpanel.remove(@vpanel.child1)
+			else
+				@vpanel.hide
+			end
+
+			@messagescroll.child = @currentbuffer.buffer.view
+			@currentbuffer.buffer.view.show 
+			@currentbuffer.buffer.view.scroll_to_end
+			set_title
+			@messageinput.grab_focus
+		end
+
+		def set_title
+			if @currentbuffer.respond_to? :network and @currentbuffer.network != @currentbuffer
+				if @currentbuffer.kind_of? ChatBuffer
+					@glade['window1'].title= "Query with #{@currentbuffer.name} on #{@currentbuffer.network.name} - Ratchet"
+				else
+					@glade['window1'].title= "#{@currentbuffer.name} on #{@currentbuffer.network.name} - Ratchet"
+				end
+			else
+				@glade['window1'].title = "#{@currentbuffer.name} - Ratchet"
+			end
+		end
+
+		def message_inputted
+			return if @messageinput.text.length == 0
+			@commandbuffer.add_command(@messageinput.text)
+
+			if @currentbuffer.respond_to? 'parent'
+				network = @currentbuffer.parent
+				presence = @currentbuffer.parent.presence
+			elsif @currentbuffer.respond_to? 'presence'
+				network = @currentbuffer
+				presence = @currentbuffer.presence
+			else
+
+			end
+
+			message = @messageinput.text
+			@main.queue_input([message, @currentbuffer])
+			@messageinput.text = ''
+		end
+
+		def get_username
+			@usernamebutton.label = @currentbuffer.username.gsub('_', '__')
+		end
+
+		def show_username
+			@usernamebutton.show
+		end
+
+		def update_dimensions
+#         puts 'updating dimensions'
+			width, height = @glade['window1'].size
+			xpos, ypos = @glade['window1'].position
+			@confighash['panelposition'] = @panel.position if @panel.child2.visible?
+			@confighash['width']=  width if width
+			@confighash['height'] = height if height
+			@confighash['xpos'] = xpos if xpos
+			@confighash['ypos'] = ypos if ypos
+		end
+
+		def update_topic
+			@topic.text = @currentbuffer.topic
+			@tooltips.set_tip(@topic, @currentbuffer.topic, '')
+		end
+
+		def whois(user)
+			return unless @currentbuffer.respond_to? :users
+			@main.send_command('whois'+user, "presence status;#{@currentbuffer.network.identifier_string};presence=#{user}")
+		end
+
+		def commandbuffer
+			@commandbuffer
+		end
+
+		def input_buttons(widget, event)
+			return unless event.class == Gdk::EventKey #ack, another guard against non EventKey events
+			if event.keyval == Gdk::Keyval.from_name('Tab')
+				substr = get_completion_substr
+				nick = @currentbuffer.tabcomplete(substr) if substr
+				replace_completion_substr(substr, nick) if nick
+				return true #block the signal
+			else
+				#if @currentbuffer.class == ChannelBuffer || @currentbuffer.class == ChatBuffer
+				@currentbuffer.clear_tabcomplete
+			end
+			
+			if event.keyval == Gdk::Keyval.from_name('Up')
+				@messageinput.text = commandbuffer.last_command if commandbuffer
+				return true
+			elsif event.keyval == Gdk::Keyval.from_name('Down')
+				@messageinput.text = commandbuffer.next_command if commandbuffer
+				return true
+			end
+			false
+		end
+
+		def window_buttons(widget, event)
+			return unless event.class == Gdk::EventKey #make sure we're only dealing with EventKeys
+			x = event_to_string(event)
+			unless x
+				key = Gdk::Keyval.to_name(event.keyval)
+				if key == "Page_Up"
+					scroll_up
+				elsif key == "Page_Down"
+					scroll_down
+				end
+			end
+			return unless x and @config['keybindings'][x]
+			command, args = @config['keybindings'][x].split('(', 2)
+			args ||= ''
+			args.chomp!(')')
+			args = args.split(',').map{|e| e.downcase}
+			if command and self.respond_to?(command)
+				self.send(command, *args)
+				return true #block any futher things
+			else
+				return false
+			end
+			#eval($config['keybindings'][x])
+			#~ if (event.state & Gdk::Window::MOD1_MASK) != 0
+			#~ puts 'pressed alt-'+Gdk::Keyval.to_name(event.keyval) if $args['debug']
+			#~ key = Gdk::Keyval.to_name(event.keyval)
+			#~ if key =~ /\d/
+			#~ key = 10 if key.to_i == 0
+			#~ tab = @serverlist.number2tab(key.to_i)
+			#~ switchchannel(tab)
+			#~ return true
+			#~ elsif key =~ /[qwertyuiop]+/
+			#~ tab = @serverlist.number2tab(@keyintmap[key].to_i)
+			#~ switchchannel(tab)
+			#~ return true
+			#~ elsif key == 'l'
+			#~ LinkWindow.new(@currentbuffer.links)
+			#~ end
+			#~ end
+		end
+
+		def on_window_focus(*args)
+			#puts 'focused window'
+			@messageinput.grab_focus# unless @messageinput.focus?
+			false
+		end
+
+		def scroll_up
+			adjustment = @messagescroll.vadjustment
+			adjustment.value =  adjustment.value - adjustment.page_increment
+		end
+
+		def scroll_down
+			adjustment = @messagescroll.vadjustment
+			x = adjustment.value + adjustment.page_increment
+			x= adjustment.upper-adjustment.page_size if x > adjustment.upper-adjustment.page_size
+			adjustment.value = x
+		end
+
+		def open_linkwindow
+#         LinkWindow.new(@currentbuffer.links)
+		end
+
+		def open_preferences
+			update_dimensions
+			configwindow = ConfigWindow.new(@main)
+			configwindow.show_all
+		end
+
+		def do_disconnect
+			@main.disconnect
+		end
+
+		def open_networks
+			@networkpresence = NetworkPresenceConf.new(@main, @main.networks, @main.protocols).show
+		end
+
+		def open_plugins
+			@pluginwindow = PluginWindow.new(@main).show
+		end
+
+		def open_keybindings
+			@keybindingwindow = KeyBindingWindow.new(@main, @config['keybindings'], @bindable_functions).show
+		end
+
+		def quit(notifymain=true)
+			update_dimensions
+			@main.quit if notifymain
+		end
+	end
+end