Permalink
Browse files

Context interface: add sharing capability

  • Loading branch information...
Shinmera committed Aug 5, 2017
1 parent 6c78a4c commit a27f2666f506c651a6b0b9382f81b0d7e8652956
Showing with 4 additions and 1 deletion.
  1. +3 −1 context.lisp
  2. +1 −0 package.lisp
View
@@ -37,7 +37,8 @@
(lock :initform (bt:make-lock "Context lock") :reader context-lock)
(wait-lock :initform (bt:make-lock "Context wait lock") :reader context-wait-lock)
(assets :initform (make-hash-table :test 'eq) :accessor assets)
(handler :initarg :handler :accessor handler))
(handler :initarg :handler :accessor handler)
(shared-with :initarg :share-with :reader shared-with))
(:default-initargs
:title "Trial"
:width 800
@@ -47,6 +48,7 @@
:double-buffering T
:stereo-buffer NIL
:vsync :off
:share-with NIL
:handler NIL))
(defmethod print-object ((context context) stream)
View
@@ -93,6 +93,7 @@
#:context-wait-lock
#:assets
#:handler
#:shared-with
#:create-context
#:destroy-context
#:valid-p

0 comments on commit a27f266

Please sign in to comment.