renamed 'property' to 'attribute'

init/init.scm

@@ -9,7 +9,7 @@
 (import (language define-interface))
 (import (language define-type))
 (import (language define-object))
-(import (language define-property))
+(import (language attributes))
 (import (language define-cache))
 (import (language define-parameter))
 (import (language fundamental))

init/literki.scm

@@ -9,7 +9,7 @@
 (import (language define-interface))
 (import (language define-type))
 (import (language define-object))
-(import (language define-property))
+(import (language attributes))
 (import (language define-cache))
 (import (language define-parameter))
 (import (language fundamental))

src/editor/document/cursor.scm

@@ -5,7 +5,7 @@
 (import (language define-interface))
 (import (language define-type))
 (import (language define-cache))
-(import (language define-property))
+(import (language attributes))
 (import (language define-parameter))
 (import (language keyword-arguments))
 (import (language infix))

src/editor/document/document-operations.scm

@@ -7,7 +7,7 @@
 (import (language match))
 (import (language examples))
 (import (language infix))
-(import (language define-property))
+(import (language attributes))
 (import (language fundamental))
 (import (language keyword-arguments))
 (import (language for))

src/editor/document/documents.scm

@@ -3,7 +3,7 @@
 (import (language define-type))
 (import (language define-object))
 (import (language define-parameter))
-(import (language define-property))
+(import (language attributes))
 (import (language infix))
 (import (language match))
 (import (srfi :11))

src/editor/document/history-tracking.scm

@@ -7,7 +7,7 @@
 (import (language define-interface))
 (import (language define-type))
 (import (language define-object))
-(import (language define-property))
+(import (language attributes))
 (import (language define-parameter))
 (import (language keyword-arguments))
 (import (language mapping))
@@ -540,9 +540,12 @@
 				  (car fronts)))))
     ))
 
-(define-property+ (history document::pair)::History
+(define-attribute+ (history document::pair)::History
   (History document))
 
+(define-attribute (last-save-point document)::list
+  '())
+
 (define/kw (last-operation document::pair := (the-document))::Edit
   (or (and-let* ((history ::History (history document))
 		 (`(,front . ,_) history:fronts)

src/editor/document/parse.scm

@@ -5,7 +5,7 @@
 (import (language define-interface))
 (import (language define-object))
 (import (utils hash-table))
-(import (language define-property))
+(import (language attributes))
 (import (language define-type))
 (import (language keyword-arguments))
 (import (language fundamental))

src/editor/input/document-editor.scm

@@ -1,7 +1,7 @@
 (module-name (editor input document-editor))
 
 (import (language define-object))
-(import (language define-property))
+(import (language attributes))
 (import (language define-type))
 (import (language define-parameter))
 
@@ -433,7 +433,7 @@
     (transform:outside-in x y))
 
   (define previously-edited
-    (property (document::Document)
+    (attribute (document::Document)
       ::Document
       (or (and-let* ((`(,_ ,next . ,_)
 		      (first-cell (is (car _) eq? document)
@@ -445,7 +445,7 @@
 	  document)))
 
   (define editing-context
-    (property+ (document::Document)
+    (attribute+ (document::Document)
       ::DocumentEditingContext
       (DocumentEditingContext)))
 

src/editor/input/evaluation.scm

@@ -6,7 +6,7 @@
 (import (language define-object))
 (import (language define-type))
 (import (language define-interface))
-(import (language define-property))
+(import (language attributes))
 (import (language define-parameter))
 (import (language define-cache))
 (import (language keyword-arguments))
@@ -42,7 +42,7 @@
 		 (isnt (x:value) symbol?))
 	       #t))))
 
-(define-property (preserve-identity? item::Tile)::boolean
+(define-attribute (preserve-identity? item::Tile)::boolean
   #f)
 
 (define-object (EvaluationContext)

src/editor/input/gestures.scm

@@ -2,7 +2,7 @@
 
 (import (language define-type))
 (import (language define-parameter))
-(import (language define-property))
+(import (language attributes))
 (import (language define-cache))
 (import (language fundamental))
 (import (editor interfaces painting))

src/editor/input/pop-ups.scm

@@ -1,7 +1,7 @@
 (module-name (editor input pop-ups))
 
 (import (language define-object))
-(import (language define-property))
+(import (language attributes))
 (import (language define-type))
 (import (language define-parameter))
 (import (language fundamental))

src/editor/input/screen.scm

@@ -1,6 +1,6 @@
 (module-name (editor input screen))
 
-(import (language define-property))
+(import (language attributes))
 (import (language define-syntax-rule))
 (import (language assert))
 (import (language define-interface))
@@ -50,7 +50,7 @@
     (($bracket-apply$ ArrayList Layer)))
 
   (define cursor ::(maps (Layer) to: Cursor)
-    (property+ (layer::Layer)::Cursor
+    (attribute+ (layer::Layer)::Cursor
 	       (cursor-climb-front '() layer)))
 
   (define (render!)::void

src/editor/input/splits.scm

@@ -1,7 +1,7 @@
 (module-name (editor input splits))
 
 (import (language define-object))
-(import (language define-property))
+(import (language attributes))
 (import (language define-type))
 (import (language define-parameter))
 

src/editor/interfaces/elements.scm

@@ -5,7 +5,7 @@
 (import (language define-interface))
 (import (language define-type))
 (import (language define-object))
-(import (language define-property))
+(import (language attributes))
 (import (language define-parameter))
 (import (language keyword-arguments))
 (import (language match))
@@ -21,10 +21,10 @@
 (import (language fundamental))
 (import (editor interfaces painting))
 
-(define-property (extent-cached? tile::Tile)::boolean
+(define-attribute (extent-cached? tile::Tile)::boolean
   #f)
 
-(define-property+ (cached-extent tile::Tile)::Extent
+(define-attribute+ (cached-extent tile::Tile)::Extent
   (Extent width: 0 height: 0))
 
 (define (extent+ tile::Tile)::Extent

src/editor/types/extensions/extensions.scm

@@ -2,7 +2,7 @@
 
 (import (language define-syntax-rule))
 (import (language define-interface))
-(import (language define-property))
+(import (language attributes))
 (import (language define-type))
 (import (language define-object))
 (import (language keyword-arguments))
@@ -334,4 +334,4 @@
 	     (WARN "no extension for "keyword)
 	     #f)))
 
-(define-property (origin enchanted) enchanted)
+(define-attribute (origin enchanted) enchanted)

src/editor/types/extensions/visual-stepper.scm

@@ -5,7 +5,7 @@
 (import (language define-object))
 (import (language define-type))
 (import (language define-interface))
-(import (language define-property))
+(import (language attributes))
 (import (language define-parameter))
 (import (language define-cache))
 (import (language keyword-arguments))
@@ -198,7 +198,7 @@
 	    at: level::int := 0
 	    into:
 	    measurements::(!maps (Element) to: Position)
-	    := (property+ (element ::Element)::Position
+	    := (attribute+ (element ::Element)::Position
 			  (Position left: 0 top: 0)))
   ::(maps (Element) to: Position)
   (let* ((p ::Position (measurements expression))
@@ -254,7 +254,7 @@
   (define (extent) ::Extent maximum-extent)
 
   (define shift ::(maps (Element) to: Position)
-    (property+ (element::Element)::Position
+    (attribute+ (element::Element)::Position
 	       (Position left: 0 top: 0)))
 
   (define (draw! context::Cursor)::void
@@ -283,11 +283,11 @@
 (define (reduce expression
 		#!optional
 		(origin::(!maps (Element) to: (list-of Element))
-			 (property (e)::(list-of Element)
-				   (recons e '())))
+			 (attribute (e)::(list-of Element)
+			   (recons e '())))
 		(progeny::(!maps (Element) to: (list-of Element))
-			  (property (e)::(list-of Element)
-				    (recons e '())))
+			  (attribute (e)::(list-of Element)
+			    (recons e '())))
 		#!key
 		(context::EvaluationContext (default-context)))
 
@@ -557,10 +557,10 @@
 
 (define-mapping (morph-to expression::Tile)::Morph
   (Morph expression expression
-	 (property (e::Element)::(list-of Element)
-		   (recons e '()))
-	 (property (e::Element)::(list-of Element)
-				    (recons e '()))))
+	 (attribute (e::Element)::(list-of Element)
+	   (recons e '()))
+	 (attribute (e::Element)::(list-of Element)
+	   (recons e '()))))
 
 (define/memoized (morph-from expression::Tile)::Morph
   (let*-values (((reduced origins progenies) (reduce expression))

src/editor/types/primitive.scm

@@ -6,7 +6,7 @@
 (import (language define-interface))
 (import (language define-type))
 (import (language define-object))
-(import (language define-property))
+(import (language attributes))
 (import (language define-cache))
 (import (language define-parameter))
 (import (language keyword-arguments))
@@ -27,7 +27,7 @@
 (import (utils conversions))
 (import (editor types texts))
 
-(define-property+ (id x)::int
+(define-attribute+ (id x)::int
   (override-size id))
 
 ;; we override Pair with Object's default equality and hash functions

src/editor/types/spaces.scm

@@ -4,7 +4,7 @@
 (import (language assert))
 (import (language define-type))
 (import (language define-interface))
-(import (language define-property))
+(import (language attributes))
 (import (language define-object))
 (import (language define-cache))
 (import (language keyword-arguments))
@@ -631,7 +631,7 @@
   (HeadTailSeparator)
   (set! width width0))
 
-(define-property+ (horizontal-bar width)
+(define-attribute+ (horizontal-bar width)
   (HorizontalBar (as real width)))
 
 (define-object (VerticalBar height0::real)::Tile
@@ -657,10 +657,10 @@
   (HeadTailSeparator)
   (set! height height0))
 
-(define-property+ (vertical-bar height)
+(define-attribute+ (vertical-bar height)
     (VerticalBar (as real height)))
 
-(define-property (head-tail-separator cell)
+(define-attribute (head-tail-separator cell)
   head/tail-separator)
 
 (define (empty? x)::boolean

src/editor/types/texts.scm

@@ -5,7 +5,7 @@
 (import (language define-interface))
 (import (language define-type))
 (import (language define-object))
-(import (language define-property))
+(import (language attributes))
 (import (language define-cache))
 (import (language match))
 (import (language examples))

src/grasp-android.scm

@@ -3,7 +3,7 @@
 (import (language define-interface))
 (import (language define-type))
 (import (language define-object))
-(import (language define-property))
+(import (language attributes))
 (import (language define-cache))
 (import (language define-parameter))
 (import (language keyword-arguments))
@@ -1566,7 +1566,7 @@
 (define-object (GRASP)::Keeper
 
   (define reaction-to-request-response
-    (property (request-code::int)::(maps (Object) to: void)
+    (attribute (request-code::int)::(maps (Object) to: void)
       nothing))
 
   (define last-request-code ::int 0)

src/grasp-desktop.scm

@@ -7,7 +7,7 @@
 (import (language define-interface))
 (import (language define-type))
 (import (language define-object))
-(import (language define-property))
+(import (language attributes))
 (import (language define-cache))
 (import (language define-parameter))
 (import (language mapping))

src/grasp-terminal.scm

@@ -3,7 +3,7 @@
 
 (import (language define-syntax-rule))
 (import (language define-interface))
-(import (language define-property))
+(import (language attributes))
 (import (language define-type))
 (import (language define-object))
 (import (language define-cache))