keepyourhead 0.2.0

data/lib/Keepyourhead/gui/WindowEditActions.rb

@@ -0,0 +1,440 @@
+#	Copyright 2008 Burghard Oliver
+#
+#	This file is part of KeepYourHead.
+#
+#	KeepYourHead 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 3 of the License, or
+#	(at your option) any later version.
+#
+#	KeepYourHead 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 KeepYourHead.  If not, see <http://www.gnu.org/licenses/>.
+
+
+module KeepYourHead
+class WindowEdit
+	def initActions
+		@actions = {}
+		Actions.each { |name, procExecuteable|
+			action = Action.new self, name
+			action.procExecuteable = procExecuteable
+
+			name2 = name.gsub( /[A-Z]/ ) { |s| "_" + s.downcase }[1..-1]
+			
+			menuItem = @glade.get_widget("menuitem_#{name2}")
+			toolButton = @glade.get_widget("toolbutton_#{name2}")
+
+#			print "not found menuItem for #{name2}" unless menuItem
+#			print "not found toolButton for #{name2}" unless toolButton
+
+			action.addActivator menuItem if menuItem
+			action.addActivator toolButton if toolButton
+
+			@actions[name] = action
+		}
+	end
+
+	def callAction(name, *args)
+		assert @actions[name.to_s] and @actions[name.to_s].executeable?
+
+		@actions[name.to_s].activate( *args )
+	end
+
+	MapNameToClass = {
+		"flashcard" => Database::Flashcard,
+		"topic" => Database::Topic,
+		"collection" => Database::Collection,
+	}
+		AcceptStrict = { 
+			Database::Database => [Database::File],
+			Database::File => [Database::Collection],
+			Database::Collection => [Database::Topic, Database::Flashcard],
+			Database::Topic => [Database::Topic, Database::Flashcard],
+			Database::Flashcard => []
+		}
+	def self.canInsertStrict(parent, other)
+		return false unless parent and other
+		
+		type = 
+			case other
+			when String
+				MapNameToClass[other.downcase]
+			when REXML::Element
+				MapNameToClass[other.name.downcase]
+			when Class
+				other
+			else
+				throw ExceptionNotImplemented.new
+			end
+
+		assert AcceptStrict[parent.class]
+
+		AcceptStrict[parent.class].include? type
+	end
+
+	def self.canInsertInterpreted( parent, other )
+		return false unless parent and other
+		canInsertStrict( parent, other ) or ( MyAdaptor.parent(parent) and canInsertInterpreted( MyAdaptor.parent(parent), other ) )
+	end
+
+	def self.insertStrictAfter( parent, node, after )
+		assert node
+		assert node.kind_of?(REXML::Element)
+		assert canInsertStrict( parent, node.name )
+		MyAdaptor.insertAfter( parent, node, after )
+	end
+
+	def self.insertInterpretedAfter( parent, node, after )
+		assert node
+		assert node.kind_of?(REXML::Element)
+		assert canInsertInterpreted( parent, node.name)
+
+		if canInsertStrict( parent, node ) then
+			insertStrictAfter( parent, node, after )
+		else
+			assert MyAdaptor.parent(parent)
+			insertInterpretedAfter( MyAdaptor.parent(parent), node, parent )
+		end
+	end
+
+
+
+
+
+	Actions = [ 
+		[ "New", proc { true } ],
+		[ "Open", proc { true } ],
+		[ "Save", proc { |obj|
+			obj.selected && [Database::File, Database::Collection, Database::Topic,Database::Flashcard].include?(obj.selected.class) && 
+				obj.selected.file.changed
+		} ],
+		[ "SaveAs", proc { |obj|
+			obj.selected && [Database::File, Database::Collection, Database::Topic,Database::Flashcard].include?(obj.selected.class)
+		} ],
+		[ "SaveAll", proc { |obj|
+			true
+		} ],
+		[ "Close", proc { |obj|
+			obj.selected && [Database::File, Database::Collection, Database::Topic,Database::Flashcard].include?(obj.selected.class)
+		} ],
+		
+		[ "Paste", proc { |obj|
+			text = Gtk::Clipboard.get(Gdk::Selection::CLIPBOARD).wait_for_text
+			
+			dom = REXML::Document.new text
+			node = dom.root
+
+			node && canInsertInterpreted( obj.selected, node.name )
+		} ],
+		[ "Copy", proc { |obj|
+			obj.selected && [Database::Collection, Database::Topic,Database::Flashcard].include?(obj.selected.class)
+		} ],
+		[ "Cut", proc { |obj|
+			obj.selected && [Database::Collection, Database::Topic,Database::Flashcard].include?(obj.selected.class)
+		} ],
+		[ "AddTopic", proc { |obj|
+			obj.selected && canInsertInterpreted( obj.selected, Database::Topic)
+		}],
+		[ "AddFlashcard", proc { |obj|
+			obj.selected && canInsertInterpreted( obj.selected, Database::Flashcard)
+		}],
+		[ "AddCollection", proc { |obj|
+			obj.selected && canInsertInterpreted( obj.selected, Database::Collection)
+		}],
+		[ "Delete", proc { |obj|
+			obj.selected && [Database::Collection, Database::Topic, Database::Flashcard].include?(obj.selected.class)
+		}],
+		[ "Left", proc { |obj|
+			if obj.selected then
+				parent = MyAdaptor.parent(obj.selected)	
+				if parent then
+					parent2 = MyAdaptor.parent(parent)
+					if parent2 then
+						return canInsertStrict( parent2, obj.selected.class)
+					end
+				end
+			end
+			false
+		}],
+		[ "Right", proc { |obj|
+			if obj.selected then
+				parent = MyAdaptor.nextSibling(obj.selected)	
+				if parent then
+					return canInsertStrict( parent, obj.selected.class)
+				end
+			end
+			false
+		}],
+		[ "Up", proc { |obj|
+			if obj.selected && [Database::File, Database::Collection, Database::Topic, Database::Flashcard].include?(obj.selected.class) then
+				other = MyAdaptor.previousSibling obj.selected
+				if other then
+					return true
+				end
+			end
+			false
+		}],
+		[ "Down", proc { |obj|
+			if obj.selected && [Database::File, Database::Collection, Database::Topic, Database::Flashcard].include?(obj.selected.class) then
+				other = MyAdaptor.nextSibling obj.selected
+				if other then
+					return true
+				end
+			end
+			false
+		}],
+		[ "Train", proc { |obj|
+			true
+		}],
+		[ "About", proc { |obj|
+			true
+		}],
+		[ "RemoveStatistics", proc { |obj|
+			obj.selected && [Database::File, Database::Collection, Database::Topic, Database::Flashcard].include?(obj.selected.class)
+		}],
+		[ "Quit", proc { |obj|
+			true
+		}],
+	]
+
+		
+		
+		
+	def actionBefore
+	end
+	def actionAfter
+		updateView
+	end
+
+	def onActionNew
+		self.database.fileNew
+	end
+	def onActionOpen
+		dialog = Gtk::FileChooserDialog.new("Open File",
+																			@window,
+																			Gtk::FileChooser::ACTION_OPEN,
+																			nil,
+																			[Gtk::Stock::CANCEL, Gtk::Dialog::RESPONSE_CANCEL],
+																			[Gtk::Stock::OPEN, Gtk::Dialog::RESPONSE_ACCEPT])	
+
+#		dialog.current_folder = ::File.expand_path "~"
+
+		filter = Gtk::FileFilter.new
+		filter.name = "Flashcards (*.xfc)"
+		filter.add_pattern "*.xfc"
+		dialog.add_filter( filter )
+		filter = Gtk::FileFilter.new
+		filter.name = "all"
+		filter.add_pattern "*"
+		dialog.add_filter( filter )
+		
+		if dialog.run == Gtk::Dialog::RESPONSE_ACCEPT
+			filename = ::File.expand_path dialog.filename
+			self.database.fileOpen( filename )
+		end
+		dialog.destroy
+	end
+	
+	def onActionSaveAll
+		database.files.each { |file|
+			fileSave file if file.changed
+		}
+	end
+
+	def fileSaveAs(file)
+		dialog = Gtk::FileChooserDialog.new("Save File",
+																		@window,
+																		Gtk::FileChooser::ACTION_SAVE,
+																		nil,
+																		[Gtk::Stock::CANCEL, Gtk::Dialog::RESPONSE_CANCEL],
+																		[Gtk::Stock::SAVE, Gtk::Dialog::RESPONSE_ACCEPT])	
+	
+#		dialog.current_folder = ::File.expand_path "~"
+
+		filter = Gtk::FileFilter.new
+		filter.name = "Flashcards (*.xfc)"
+		filter.add_pattern "*.xfc"
+		dialog.add_filter( filter )
+		filter = Gtk::FileFilter.new
+		filter.name = "all"
+		filter.add_pattern "*"
+		dialog.add_filter( filter )
+
+		dialog.current_name = "unnamed.xfc"
+
+		response = dialog.run
+		filename = dialog.filename
+		dialog.destroy
+		
+		if response == Gtk::Dialog::RESPONSE_ACCEPT
+			file.saveAs filename
+			true
+		else
+			false
+		end
+	end
+	def fileSave(file)
+		if file.filename then
+			file.save
+		else
+			fileSaveAs file
+		end
+	end
+	def filePrepareToClose( file )
+		if file.changed then
+			dialog = Gtk::MessageDialog.new( 
+															@window, Gtk::Dialog::MODAL, Gtk::MessageDialog::WARNING, 
+															Gtk::MessageDialog::BUTTONS_NONE, 
+															"Save changes ?" )
+			dialog.add_button( "Ja", Gtk::Dialog::RESPONSE_YES )
+			dialog.add_button( "Nein", Gtk::Dialog::RESPONSE_NO )
+			dialog.add_button( "Abbrechen", Gtk::Dialog::RESPONSE_CANCEL )
+
+			response = dialog.run
+			dialog.destroy
+
+			case response
+			when Gtk::Dialog::RESPONSE_YES
+				fileSave file
+				not file.changed
+			when Gtk::Dialog::RESPONSE_NO
+				true
+			when Gtk::Dialog::RESPONSE_CANCEL, 
+					Gtk::Dialog::RESPONSE_DELETE_EVENT
+				false
+			else
+				false
+			end
+
+		else
+			true
+		end
+	end
+
+	def onActionSave
+		fileSave self.selected.file
+	end
+	def onActionSaveAs
+		fileSaveAs self.selected.file
+	end
+	def onActionClose
+		if filePrepareToClose( self.selected.file ) then
+			database.fileClose self.selected.file
+		end
+	end
+	
+	def onActionPaste
+		Gtk::Clipboard.get(Gdk::Selection::CLIPBOARD).request_text{ |clipboard, text|
+			dom = REXML::Document.new text
+			node = dom.root
+
+			self.class.insertInterpretedAfter self.selected, node, MyAdaptor.lastChild(self.selected)
+		}
+	end
+	def onActionCut
+		text = ""
+		REXML::Formatters::Default.new.write @selected.node, text
+		
+		Gtk::Clipboard.get(Gdk::Selection::CLIPBOARD).text = text
+		MyAdaptor.remove self.selected
+	end
+	def onActionCopy
+		text = ""
+		REXML::Formatters::Default.new.write @selected.node, text
+		Gtk::Clipboard.get(Gdk::Selection::CLIPBOARD).text = text
+	end
+
+	def onActionAddTopic
+		self.class.insertInterpretedAfter self.selected, Database::Topic.createNode(self.selected.file), MyAdaptor.lastChild(self.selected)
+	end
+	def onActionAddFlashcard
+		self.class.insertInterpretedAfter self.selected, Database::Flashcard.createNode(self.selected.file), MyAdaptor.lastChild(self.selected)
+	end
+	def onActionAddCollection
+		self.class.insertInterpretedAfter self.selected, Database::Collection.createNode(self.selected.file), MyAdaptor.lastChild(self.selected)
+	end
+	def onActionDelete
+		MyAdaptor.remove self.selected
+	end
+	def onActionLeft
+		parent = MyAdaptor.parent(self.selected)	
+		parent2 = MyAdaptor.parent(parent)
+		other = MyAdaptor.previousSibling( parent )
+		node = MyAdaptor.remove( self.selected )
+		self.class.insertStrictAfter( parent2, node, other)
+	end
+	def onActionRight
+		parent = MyAdaptor.nextSibling(self.selected)	
+		node = MyAdaptor.remove( self.selected )
+		self.class.insertStrictAfter( parent, node, nil)
+	end
+	def onActionUp
+		if @selected.class == Database::File then
+			database.moveUp @selected
+		else
+			parent = MyAdaptor.parent @selected
+			other = MyAdaptor.previousSibling @selected
+			other = MyAdaptor.previousSibling other
+
+			node = MyAdaptor.remove @selected
+			MyAdaptor.insertAfter parent, node, other
+		end
+	end
+	def onActionDown
+		if @selected.class == Database::File then
+			database.moveDown @selected
+		else
+			parent = MyAdaptor.parent @selected
+			other = MyAdaptor.nextSibling @selected
+
+			node = MyAdaptor.remove @selected
+			MyAdaptor.insertAfter parent, node, other
+		end
+	end
+	def onActionTrain
+		dialog = DialogQuestionStart.new
+		if dialog.run then 
+			max_questions, max_minutes = dialog.max_questions, dialog.max_minutes
+			dialog.destroy
+
+			training = FlashcardTraining.new(database, max_questions, max_minutes * 60)
+			WindowQuestion.new(self, training)
+		else
+			dialog.destroy
+		end
+	end
+	def onActionAbout
+#		aboutDialog = Gtk::AboutDialog.new
+		Gtk::AboutDialog.show @window, {
+#			:artists => nil,
+			:authors => [Project::AUTHOR_WITH_EMAIL],
+			:comments => Project::SUMMARY,
+			:copyright => Project::COPYRIGHT,
+			:license => Project::LICENSE,
+			:name => Project::NAME,
+			:version => Project::VERSION,
+			:website => Project::HOMEPAGE,
+			"program-name" => Project::NAME,
+		}
+	end
+	def onActionRemoveStatistics
+		@selected.removeStatistics
+	end
+	def onActionQuit
+		ret = true
+
+		database.files.inject(true) { |ret, file|
+			ret &&= filePrepareToClose( file )
+		}
+
+		@window.destroy if ret
+	end
+end
+end
+
+

data/lib/Keepyourhead/gui/WindowEditAdapters.rb

@@ -0,0 +1,329 @@
+#	Copyright 2008 Burghard Oliver
+#
+#	This file is part of KeepYourHead.
+#
+#	KeepYourHead 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 3 of the License, or
+#	(at your option) any later version.
+#
+#	KeepYourHead 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 KeepYourHead.  If not, see <http://www.gnu.org/licenses/>.
+
+
+module KeepYourHead
+class Adaptor
+	def name(object)
+		throw ExceptionNotImplimented.new
+	end
+
+	def parent(object)
+		throw ExceptionNotImplimented.new
+	end
+	def firstChild(object)
+		throw ExceptionNotImplimented.new
+	end
+	def nextSibling(object)
+		throw ExceptionNotImplimented.new
+	end
+	def previousSibling(object)
+		throw ExceptionNotImplimented.new
+	end
+
+	def createChild(parent)
+		throw ExceptionNotImplimented.new
+	end
+	def insertAfter(parent,item,other)
+		throw ExceptionNotImplimented.new
+	end
+	def remove(item)
+		throw ExceptionNotImplimented.new
+	end
+	
+	def realization(object)
+		throw ExceptionNotImplimented.new
+	end
+end
+
+class AdaptorDatabase < Adaptor
+	def name(object)
+		throw ExceptionNotImplimented.new
+	end
+
+	def parent(object)
+		nil
+	end
+	def firstChild(object)
+		object.files[0]
+	end
+	def nextSibling(object)
+		nil
+	end
+	def previousSibling(object)
+		nil
+	end
+
+	def createChild(parent)
+		throw ExceptionNotImplimented.new
+	end
+	def insertAfter(parent,item,other)
+		throw ExceptionNotImplimented.new
+	end
+	def remove(item)
+		throw ExceptionNotImplimented.new
+	end
+	
+	def realization(object)
+		object
+	end
+end
+
+class AdaptorFile < Adaptor
+	def name(object)
+		object.filename ? ::File.basename(object.filename) : "(unbenannt)"
+	end
+
+	def parent(object)
+		object.database
+	end
+	def firstChild(object)
+		object.root.collections[0]
+	end
+	def nextSibling(object)
+		files = object.database.files
+		idx = files.index object
+		if idx == files.length - 1 then
+			nil
+		else
+			files[idx+1]
+		end
+	end
+	def previousSibling(object)
+		files = object.database.files
+		idx = files.index object
+		if idx == 0 then
+			nil
+		else
+			files[idx-1]
+		end
+	end
+
+	def insertAfter(parent,item,other)
+		if other then
+			parent.root.collectionInsertAfter(item,other)
+		else
+			parent.root.collectionInsertFirst(item)
+		end
+	end
+	def remove(item)
+		throw ExceptionNotImplimented.new
+	end
+	def realization(object)
+		object
+	end
+end
+
+class AdaptorCollection < Adaptor
+	def name(object)
+		object.name
+	end
+
+	def parent(object)
+		object.file
+	end
+	def firstChild(object)
+		object.items[0]
+	end
+	def nextSibling(object)
+		object.parent.collectionNext(object)
+	end
+	def previousSibling(object)
+		object.parent.collectionPrevious(object)
+	end
+
+	def insertAfter(parent,item,other)
+		if other then
+			parent.itemInsertAfter(item,other)
+		else
+			parent.itemInsertFirst(item)
+		end
+	end
+	def remove(item)
+		item.parent.collectionRemove item
+	end
+	def realization(object)
+		object.node
+	end
+end
+
+class AdaptorTopic < Adaptor
+	def name(object)
+		object.name
+	end
+
+	def parent(object)
+		object.parent
+	end
+	def firstChild(object)
+		object.items[0]
+	end
+	def nextSibling(object)
+		object.parent.itemNext object
+	end
+	def previousSibling(object)
+		object.parent.itemPrevious object
+	end
+
+	def createChild(parent)
+	end
+	def insertAfter(parent,item,other)
+		if other then
+			parent.itemInsertAfter(item,other)
+		else
+			parent.itemInsertFirst(item)
+		end
+	end
+	def remove(item)
+		item.parent.itemRemove item
+	end
+	def realization(object)
+		object.node
+	end
+end
+
+class AdaptorFlashcard < Adaptor
+	def name(object)
+		object.name
+	end
+
+	def parent(object)
+		object.parent
+	end
+	def firstChild(object)
+		nil
+	end
+	def nextSibling(object)
+		object.parent.itemNext object
+	end
+	def previousSibling(object)
+		object.parent.itemPrevious object
+	end
+
+	def createChild(parent)
+	end
+	def insertAfter(parent,item,other)
+		if other then
+			parent.itemInsertAfter(item,other)
+		else
+			parent.itemInsertFirst(item)
+		end
+	end
+	def remove(item)
+		item.parent.itemRemove item
+	end
+	def realization(object)
+		object.node
+	end
+end
+
+class AdaptorHandler
+	Adaptors = {
+		Database::Database => AdaptorDatabase.new,
+		Database::File => AdaptorFile.new,
+		Database::Collection => AdaptorCollection.new,
+		Database::Topic => AdaptorTopic.new,
+		Database::Flashcard => AdaptorFlashcard.new,
+	}
+	
+	def name(object)
+		Adaptors[object.class].name object
+	end
+
+	def parent(object)
+		Adaptors[object.class].parent object
+	end
+	def firstChild(object)
+		Adaptors[object.class].firstChild object
+	end
+	def nextSibling(object)
+		Adaptors[object.class].nextSibling object
+	end
+	def previousSibling(object)
+		Adaptors[object.class].previousSibling object
+	end
+
+	def createChild(parent)
+		Adaptors[object.class].createChild object
+	end
+	def insertAfter(parent,item,other)
+		Adaptors[parent.class].insertAfter parent, item, other
+	end
+	def remove(object)
+		Adaptors[object.class].remove object
+	end
+
+	def realization(object)
+		Adaptors[object.class].realization object
+	end
+
+#for better use
+	
+	def insertLast(parent, item)
+		insertAfter(parent, item, lastChild(parent) )
+	end
+	def lastChild(parent)
+		c = firstChild(parent)
+
+		return nil unless c
+
+		while o = nextSibling(c)
+			c = o
+		end
+		c
+	end
+	def children(parent)
+		children = []
+		c = firstChild(parent)
+		while c do
+			children << c
+			c = nextSibling(c)
+		end
+		children
+	end
+
+
+	def moveUp(item)
+		if item.class == Database::File then
+			item.database.moveUp item
+		else
+			parent = self.parent item
+			other = self.previousSibling item
+			other = self.previousSibling other
+
+			node = self.remove item
+			self.insertAfter parent, node, other
+		end
+	end
+	def moveDown(item)
+		if item.class == Database::File then
+			item.database.moveDown item
+		else
+			parent = self.parent item
+			other = self.nextSibling item
+
+			node = self.remove item
+			self.insertAfter parent, node, other
+		end
+	end
+end
+
+	
+MyAdaptor = AdaptorHandler.new
+
+
+end