Logtalk 2.15.0 release files.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@757 b08c6af1-5177-4d33-ba66-4b1c6b8b522a

Logtalk/examples/shapes/ph/shape.lgt

@@ -0,0 +1,35 @@
+:- object(shape).
+
+
+	:- info([
+		author is 'Paulo Moura',
+		version is 1.0,
+		date is 2003/2/3,
+		comment is 'Generic geometric shape.']).
+
+
+	:- public(color/1).
+
+	:- mode(color(?atom), zero_or_one).
+
+	:- info(color/1, [
+		comment is 'Shape color.',
+		argnames is ['Color']]).
+
+
+	:- public(position/2).
+
+	:- mode(position(?integer, ?integer), zero_or_one).
+
+	:- info(position/2, [
+		comment is 'Shape position.',
+		argnames is ['X', 'Y']]).
+
+
+	color(red).      % default shape color
+
+
+	position(0, 0).  % default shape position
+
+
+:- end_object.