diff --git a/Logtalk/wenv/source-highlight/NOTES b/Logtalk/wenv/source-highlight/NOTES
new file mode 100644
index 000000000..60ebbd527
--- /dev/null
+++ b/Logtalk/wenv/source-highlight/NOTES
@@ -0,0 +1,45 @@
+=================================================================
+Logtalk - Object oriented extension to Prolog
+Release 2.27.0
+
+Copyright (c) 1998-2006 Paulo Moura.  All Rights Reserved.
+=================================================================
+
+
+This directory contains files that provide support for using version 2.0 
+or later of the source-highlight package by Lorenzo Bettini with Logtalk 
+source files.  A detailed description on the source-highlight package is 
+available from:
+
+	http://www.gnu.org/software/src-highlite/
+
+In order to check if your source-highlight installation already includes 
+support for Logtalk, use the following command:
+
+	% source-highlight --lang-list
+
+If support for Logtalk is not included or if it is outdated, copy the file
+"logtalk.lang" to the folder:
+
+	$prefix/share/source-highlight
+
+where $prefix is the source-highlight installation directory (by default, 
+/usr/local) and then edit, if necessary, the file:
+
+	$prefix/share/source-highlight/lang.map
+
+and add the entry:
+
+	lgt = logtalk.lang
+
+Usage example for a "foo.lgt" Logtalk source file:
+
+	% source-highlight --out-format xhtml --input foo.lgt --output foo.html
+
+Usually, Logtalk files are formatted using four-spaces tabs. You may want to 
+use the "--tab=4"option to keep you source code formatting choices.
+
+You may also use the "logtalk.lang" file with plain Prolog files by using 
+the "--src-lang" option. For example:
+
+	% source-highlight --src-lang lgt --out-format xhtml --input foo.pl --output foo.html
diff --git a/Logtalk/wenv/source-highlight/logtalk.lang b/Logtalk/wenv/source-highlight/logtalk.lang
new file mode 100644
index 000000000..746d3851c
--- /dev/null
+++ b/Logtalk/wenv/source-highlight/logtalk.lang
@@ -0,0 +1,77 @@
+
+comment start "%"
+comment delim "/*" "*/" multiline nested
+
+string delim "\"" "\"" escape "\\"
+string delim "'" "'"  escape "\\"
+
+keyword =	'\<(abolish|c(urrent|reate))_(object|protocol|category)(?=\()',
+			'\<(object|protocol|category)_property(?=\()',
+			'\<extends_(object|protocol)(?=\()',
+			'\<imp(lements_protocol|orts_category)(?=\()',
+			'\<(instantiates|specializes)_class(?=\()',
+			'\<(current_event|(abolish|define)_events)(?=\()',
+			'\<(current|set)_logtalk_flag(?=\()',
+			'\<logtalk_(compile|l(oad|ibrary_path))(?=\()'
+
+keyword =	'\<(after|before)(?=\()',
+			'\<(parameter|this|se(lf|nder))(?=\()',
+			'\<(current_predicate|predicate_property)(?=\()',
+			'\<(expand_term|phrase)(?=\()',
+			'\<(clause|retract(all)?)(?=\()',
+			'\<a(bolish|ssert(a|z))(?=\()',
+			'\<(ca(ll|tch)|throw)(?=\()',
+			'\<((bag|set)of|f(ind|or)all)(?=\()',
+			'\<unify_with_occurs_check(?=\()',
+			'\<(functor|arg|copy_term)(?=\()',
+			'\<(rem|mod|abs|sign)(?=\()',
+			'\<(float_(integer|fractional)_part|float)(?=\()',
+			'\<(floor|truncate|round|ceiling)(?=\()',
+			'\<(cos|atan|exp|log|s(in|qrt))(?=\()',
+			'\<(var|atom(ic)?|integer|float|compound|n(onvar|umber))(?=\()',
+			'\<current_(in|out)put(?=\()',
+			'\<set_(in|out)put(?=\()',
+			'\<(open|close)(?=\()',
+			'\<flush_output(?=\()',
+			'\<flush_output\>',
+			'\<(stream_property|at_end_of_stream|set_stream_position)(?=\()',
+			'\<(get|p(eek|ut))_(byte|c(har|ode))(?=\()',
+			'\<nl(?=\()', '\<(nl)\>',
+			'\<(read(_term)?)(?=\()',
+			'\<(write(q|_(canonical|term))?)(?=\()',
+			'\<(op|current_op)(?=\()',
+			'\<((current_)?char_conversion)(?=\()',
+			'\<atom_(length|c(hars|o(ncat|des)))(?=\()',
+			'\<(char_code|sub_atom)(?=\()',
+			'\<number_(c(hars|odes))(?=\()',
+			'\<(set|current)_prolog_flag(?=\()',
+			'\<halt(?=\()', '\<(halt)\>',
+			'\<once(?=\()',
+			'\<(true|fail|repeat)\>',
+			'\<(is|rem|mod)\>'
+
+
+variable =	'\<[A-Z_][A-Za-z0-9_]*'
+
+cbracket =	"{|}"
+
+preproc =	'^[[:blank:]]*:-[[:blank:]](ca(lls|tegory) | p(ublic|r(ot(ocol|ected)|ivate)) | e(ncoding|xports) | in(fo|itialization) | alias | d(ynamic|iscontiguous) | meta_predicate | m(etapredicate|od(e|ule)|ultifile) | o(bject|p) | use(s|_module))(?=\()',
+			'^[[:blank:]]*:-[[:blank:]](end_(category|object|protocol) | dynamic)\.'
+
+preproc =	'\<(extends|i(nstantiates|mp(lements|orts))|specializes)(?=\()'
+
+normal =	'\<[a-z][A-Za-z0-9_]*'
+
+number =	'0\'[A-Za-z0-9] | 0b[0-1]+ | 0o[0-7]+ | 0x[0-9a-fA-F]+ | [0-9]+(\.[0-9]+)?([eE]([-+])?[0-9]+)?'
+
+symbol =	"::", "^^",
+			">>", "<<", "/\\", "\\/", "\\",
+			"=:=", "=\\=", "<", "=<", ">", ">=",
+			"=..",
+			"\\==", "==", "@=<", "@<", "@>=", "@>",
+			"=", "\\=",
+			"+", "-", "**", "*", "//", "/",
+			"-->",
+			"!", "->", ";", "\\+",
+			"?", "@",
+			":-"
diff --git a/Logtalk/wenv/textmate/Logtalk.tmbundle/Preferences/Miscellaneous.plist b/Logtalk/wenv/textmate/Logtalk.tmbundle/Preferences/Miscellaneous.plist
new file mode 100644
index 000000000..aafbc2701
--- /dev/null
+++ b/Logtalk/wenv/textmate/Logtalk.tmbundle/Preferences/Miscellaneous.plist
@@ -0,0 +1,55 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+	<key>name</key>
+	<string>Miscellaneous</string>
+	<key>scope</key>
+	<string>source.logtalk</string>
+	<key>settings</key>
+	<dict>
+		<key>highlightPairs</key>
+		<array>
+			<array>
+				<string>(</string>
+				<string>)</string>
+			</array>
+			<array>
+				<string>{</string>
+				<string>}</string>
+			</array>
+			<array>
+				<string>[</string>
+				<string>]</string>
+			</array>
+		</array>
+		<key>increaseIndentPattern</key>
+		<string>:-$</string>
+		<key>smartTypingPairs</key>
+		<array>
+			<array>
+				<string>"</string>
+				<string>"</string>
+			</array>
+			<array>
+				<string>(</string>
+				<string>)</string>
+			</array>
+			<array>
+				<string>{</string>
+				<string>}</string>
+			</array>
+			<array>
+				<string>[</string>
+				<string>]</string>
+			</array>
+			<array>
+				<string>'</string>
+				<string>'</string>
+			</array>
+		</array>
+	</dict>
+	<key>uuid</key>
+	<string>B25054C4-CAA1-4F80-9864-0F5E12B5E741</string>
+</dict>
+</plist>