Permalink
Browse files

* obby/rudel-obby-state.el (header): fixed history

  (rudel-obby-document-handler::rudel-obby/obby_document): go through
  the connection object for now
* obby/rudel-obby-client.el
  (rudel-obby-client-state-idle::document-container-slot): 
  (rudel-obby-client-state-subscribing::document-container-slot): 
  (rudel-obby-client-state-document-synching::document-container-slot):
  set initial value to 'session
  • Loading branch information...
1 parent d9a4b85 commit 225021dada7a5f64b94fec037d0b7d349836827b @scymtym committed Dec 20, 2009
Showing with 31 additions and 19 deletions.
  1. +9 −0 ChangeLog
  2. +19 −17 obby/rudel-obby-client.el
  3. +3 −2 obby/rudel-obby-state.el
View
@@ -1,5 +1,14 @@
2009-12-20 Jan Moringen <scymtym@users.sourceforge.net>
+ * obby/rudel-obby-state.el (header): fixed history
+ (rudel-obby-document-handler::rudel-obby/obby_document): go
+ through the connection object for now
+ * obby/rudel-obby-client.el
+ (rudel-obby-client-state-idle::document-container-slot):
+ (rudel-obby-client-state-subscribing::document-container-slot):
+ (rudel-obby-client-state-document-synching::document-container-slot):
+ set initial value to 'session
+
* rudel.el (rudel-user::rudel-display-string): moved to
rudel-display.el
* rudel-display.el: new file; functions that create text
@@ -222,7 +222,7 @@ failure."))
(defclass rudel-obby-client-state-idle
(rudel-obby-client-connection-state
rudel-obby-document-handler)
- ()
+ ((document-container-slot :initform 'session))
"Default state of the connection.")
(defmethod rudel-obby/net6_client_join
@@ -628,10 +628,11 @@ failure."))
(defclass rudel-obby-client-state-subscribing
(rudel-obby-client-connection-state
rudel-obby-document-handler)
- ((document :initarg :document
- :type rudel-obby-document-child
- :documentation
- ""))
+ ((document-container-slot :initform 'session)
+ (document :initarg :document
+ :type rudel-obby-document-child
+ :documentation
+ ""))
"")
(defmethod rudel-enter ((this rudel-obby-client-state-subscribing)
@@ -666,18 +667,19 @@ failure."))
(defclass rudel-obby-client-state-document-synching
(rudel-obby-client-connection-state
rudel-obby-document-handler)
- ((document :initarg :document
- :type rudel-obby-document-child
- :documentation
- "")
- (all-bytes :initarg :all-bytes
- :type (integer 0)
- :documentation
- "")
- (remaining-bytes :initarg :remaining-bytes
- :type (integer 0)
- :documentation
- ""))
+ ((document-container-slot :initform 'session)
+ (document :initarg :document
+ :type rudel-obby-document-child
+ :documentation
+ "")
+ (all-bytes :initarg :all-bytes
+ :type (integer 0)
+ :documentation
+ "")
+ (remaining-bytes :initarg :remaining-bytes
+ :type (integer 0)
+ :documentation
+ ""))
"")
(defmethod rudel-enter ((this rudel-obby-client-state-document-synching)
@@ -30,7 +30,7 @@
;;; History:
;;
-;; 0.1 - Initial revision
+;; 0.1 - Initial version
;;; Code:
@@ -141,7 +141,8 @@ obby 'document' messages."
;; warn.
(with-parsed-arguments ((doc-id document-id))
;; Locate the document based on owner id and document id.
- (let* ((container (slot-value this (oref this document-container-slot)))
+ (let* ((container (slot-value (oref this :connection)
+ (oref this document-container-slot)))
(document (rudel-find-document container doc-id
#'equal #'rudel-both-ids)))
(if document

0 comments on commit 225021d

Please sign in to comment.