mirror of
https://github.com/rabbibotton/clog.git
synced 2026-02-06 07:42:01 -08:00
Added screen object as part of CLOG-Window
This commit is contained in:
David Botton
parent
35d2e40382
commit
9264c82668
3 changed files with 150 additions and 14 deletions
|
|
@ -196,6 +196,76 @@ window."))
|
|||
(defmethod pixel-ratio ((obj clog-window))
|
||||
(query obj "devicePixelRatio"))
|
||||
|
||||
;;;;;;;;;;;;;;;;;;
|
||||
;; screen-width ;;
|
||||
;;;;;;;;;;;;;;;;;;
|
||||
|
||||
(defgeneric screen-width (clog-window)
|
||||
(:documentation "Get screen width."))
|
||||
|
||||
(defmethod screen-width ((obj clog-window))
|
||||
(query obj "screen.width"))
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;
|
||||
;; screen-height ;;
|
||||
;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
(defgeneric screen-height (clog-window)
|
||||
(:documentation "Get screen height."))
|
||||
|
||||
(defmethod screen-height ((obj clog-window))
|
||||
(query obj "screen.height"))
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; screen-available-width ;;
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
(defgeneric screen-available-width (clog-window)
|
||||
(:documentation "Get available screen width."))
|
||||
|
||||
(defmethod screen-available-width ((obj clog-window))
|
||||
(query obj "screen.availWidth"))
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; screen-available-height ;;
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
(defgeneric screen-available-height (clog-window)
|
||||
(:documentation "Get available screen height."))
|
||||
|
||||
(defmethod screen-available-height ((obj clog-window))
|
||||
(query obj "screen.availHeight"))
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; screen-available-left ;;
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
(defgeneric screen-available-left (clog-window)
|
||||
(:documentation "Get available screen left."))
|
||||
|
||||
(defmethod screen-available-left ((obj clog-window))
|
||||
(query obj "screen.availLeft"))
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; screen-available-top ;;
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
(defgeneric screen-available-top (clog-window)
|
||||
(:documentation "Get available screen top."))
|
||||
|
||||
(defmethod screen-available-top ((obj clog-window))
|
||||
(query obj "screen.availTop"))
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; screen-color-depth ;;
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
(defgeneric screen-color-depth (clog-window)
|
||||
(:documentation "Get screen color depth."))
|
||||
|
||||
(defmethod screen-color-depth ((obj clog-window))
|
||||
(query obj "screen.colorDepth"))
|
||||
|
||||
;;;;;;;;;;;
|
||||
;; alert ;;
|
||||
;;;;;;;;;;;
|
||||
|
|
|
|||
28
clog.lisp
28
clog.lisp
|
|
@ -123,16 +123,23 @@ application."
|
|||
(clog-window class)
|
||||
|
||||
"CLOG-Window - Properties"
|
||||
(window-name generic-function)
|
||||
(inner-height generic-function)
|
||||
(inner-width generic-function)
|
||||
(outer-height generic-function)
|
||||
(outer-width generic-function)
|
||||
(x-offset generic-function)
|
||||
(y-offset generic-function)
|
||||
(left generic-function)
|
||||
(top generic-function)
|
||||
(pixel-ratio generic-function)
|
||||
(window-name generic-function)
|
||||
(inner-height generic-function)
|
||||
(inner-width generic-function)
|
||||
(outer-height generic-function)
|
||||
(outer-width generic-function)
|
||||
(x-offset generic-function)
|
||||
(y-offset generic-function)
|
||||
(left generic-function)
|
||||
(top generic-function)
|
||||
(pixel-ratio generic-function)
|
||||
(screen-width generic-function)
|
||||
(screen-height generic-function)
|
||||
(screen-available-width generic-function)
|
||||
(screen-available-height generic-function)
|
||||
(screen-available-top generic-function)
|
||||
(screen-available-left generic-function)
|
||||
(screen-color-depth generic-function)
|
||||
|
||||
"CLOG-Window - Methods"
|
||||
(alert generic-function)
|
||||
|
|
@ -182,6 +189,7 @@ application."
|
|||
"CLOG-Navigator - CLOG Navigator Objects"
|
||||
(clog-navigator class)
|
||||
|
||||
"CLOG-Navigator - Properties"
|
||||
(cookie-enabled generic-function)
|
||||
(language generic-function)
|
||||
(user-agent generic-function)
|
||||
|
|
|
|||
|
|
@ -711,6 +711,62 @@ window.</p></li>
|
|||
<p>Get device pixel ratio.</p></li>
|
||||
</ul>
|
||||
|
||||
<p><a id='x-28CLOG-3ASCREEN-WIDTH-20GENERIC-FUNCTION-29'></a></p>
|
||||
|
||||
<ul>
|
||||
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ASCREEN-WIDTH-20GENERIC-FUNCTION-29" >SCREEN-WIDTH</a></span></span> <span class="locative-args">CLOG-WINDOW</span></span></p>
|
||||
|
||||
<p>Get screen width.</p></li>
|
||||
</ul>
|
||||
|
||||
<p><a id='x-28CLOG-3ASCREEN-HEIGHT-20GENERIC-FUNCTION-29'></a></p>
|
||||
|
||||
<ul>
|
||||
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ASCREEN-HEIGHT-20GENERIC-FUNCTION-29" >SCREEN-HEIGHT</a></span></span> <span class="locative-args">CLOG-WINDOW</span></span></p>
|
||||
|
||||
<p>Get screen height.</p></li>
|
||||
</ul>
|
||||
|
||||
<p><a id='x-28CLOG-3ASCREEN-AVAILABLE-WIDTH-20GENERIC-FUNCTION-29'></a></p>
|
||||
|
||||
<ul>
|
||||
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ASCREEN-AVAILABLE-WIDTH-20GENERIC-FUNCTION-29" >SCREEN-AVAILABLE-WIDTH</a></span></span> <span class="locative-args">CLOG-WINDOW</span></span></p>
|
||||
|
||||
<p>Get available screen width.</p></li>
|
||||
</ul>
|
||||
|
||||
<p><a id='x-28CLOG-3ASCREEN-AVAILABLE-HEIGHT-20GENERIC-FUNCTION-29'></a></p>
|
||||
|
||||
<ul>
|
||||
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ASCREEN-AVAILABLE-HEIGHT-20GENERIC-FUNCTION-29" >SCREEN-AVAILABLE-HEIGHT</a></span></span> <span class="locative-args">CLOG-WINDOW</span></span></p>
|
||||
|
||||
<p>Get available screen height.</p></li>
|
||||
</ul>
|
||||
|
||||
<p><a id='x-28CLOG-3ASCREEN-AVAILABLE-TOP-20GENERIC-FUNCTION-29'></a></p>
|
||||
|
||||
<ul>
|
||||
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ASCREEN-AVAILABLE-TOP-20GENERIC-FUNCTION-29" >SCREEN-AVAILABLE-TOP</a></span></span> <span class="locative-args">CLOG-WINDOW</span></span></p>
|
||||
|
||||
<p>Get available screen top.</p></li>
|
||||
</ul>
|
||||
|
||||
<p><a id='x-28CLOG-3ASCREEN-AVAILABLE-LEFT-20GENERIC-FUNCTION-29'></a></p>
|
||||
|
||||
<ul>
|
||||
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ASCREEN-AVAILABLE-LEFT-20GENERIC-FUNCTION-29" >SCREEN-AVAILABLE-LEFT</a></span></span> <span class="locative-args">CLOG-WINDOW</span></span></p>
|
||||
|
||||
<p>Get available screen left.</p></li>
|
||||
</ul>
|
||||
|
||||
<p><a id='x-28CLOG-3ASCREEN-COLOR-DEPTH-20GENERIC-FUNCTION-29'></a></p>
|
||||
|
||||
<ul>
|
||||
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ASCREEN-COLOR-DEPTH-20GENERIC-FUNCTION-29" >SCREEN-COLOR-DEPTH</a></span></span> <span class="locative-args">CLOG-WINDOW</span></span></p>
|
||||
|
||||
<p>Get screen color depth.</p></li>
|
||||
</ul>
|
||||
|
||||
<p>CLOG-Window - Methods</p>
|
||||
|
||||
<p><a id='x-28CLOG-3AALERT-20GENERIC-FUNCTION-29'></a></p>
|
||||
|
|
@ -1141,10 +1197,12 @@ is nil unbind the event.</p></li>
|
|||
<p><a href="#x-28-22clog-22-20ASDF-2FSYSTEM-3ASYSTEM-29" title="(\"clog\" ASDF/SYSTEM:SYSTEM)"><code>CLOG</code></a> Navigator Objects encapsulate the navigator.</p></li>
|
||||
</ul>
|
||||
|
||||
<p>CLOG-Navigator - Properties</p>
|
||||
|
||||
<p><a id='x-28CLOG-3ACOOKIE-ENABLED-20GENERIC-FUNCTION-29'></a></p>
|
||||
|
||||
<ul>
|
||||
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ACOOKIE-ENABLED-20GENERIC-FUNCTION-29" >COOKIE-ENABLED</a></span></span> <span class="locative-args">CLOG-LOCATION</span></span></p>
|
||||
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ACOOKIE-ENABLED-20GENERIC-FUNCTION-29" >COOKIE-ENABLED</a></span></span> <span class="locative-args">CLOG-NAVIGATOR</span></span></p>
|
||||
|
||||
<p>Get if cookie enabled.</p></li>
|
||||
</ul>
|
||||
|
|
@ -1152,7 +1210,7 @@ is nil unbind the event.</p></li>
|
|||
<p><a id='x-28CLOG-3ALANGUAGE-20GENERIC-FUNCTION-29'></a></p>
|
||||
|
||||
<ul>
|
||||
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ALANGUAGE-20GENERIC-FUNCTION-29" >LANGUAGE</a></span></span> <span class="locative-args">CLOG-LOCATION</span></span></p>
|
||||
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3ALANGUAGE-20GENERIC-FUNCTION-29" >LANGUAGE</a></span></span> <span class="locative-args">CLOG-NAVIGATOR</span></span></p>
|
||||
|
||||
<p>Get user prefered language.</p></li>
|
||||
</ul>
|
||||
|
|
@ -1160,7 +1218,7 @@ is nil unbind the event.</p></li>
|
|||
<p><a id='x-28CLOG-3AUSER-AGENT-20GENERIC-FUNCTION-29'></a></p>
|
||||
|
||||
<ul>
|
||||
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3AUSER-AGENT-20GENERIC-FUNCTION-29" >USER-AGENT</a></span></span> <span class="locative-args">CLOG-LOCATION</span></span></p>
|
||||
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3AUSER-AGENT-20GENERIC-FUNCTION-29" >USER-AGENT</a></span></span> <span class="locative-args">CLOG-NAVIGATOR</span></span></p>
|
||||
|
||||
<p>Get user agent.</p></li>
|
||||
</ul>
|
||||
|
|
@ -1168,7 +1226,7 @@ is nil unbind the event.</p></li>
|
|||
<p><a id='x-28CLOG-3AVENDOR-20GENERIC-FUNCTION-29'></a></p>
|
||||
|
||||
<ul>
|
||||
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3AVENDOR-20GENERIC-FUNCTION-29" >VENDOR</a></span></span> <span class="locative-args">CLOG-LOCATION</span></span></p>
|
||||
<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-3AVENDOR-20GENERIC-FUNCTION-29" >VENDOR</a></span></span> <span class="locative-args">CLOG-NAVIGATOR</span></span></p>
|
||||
|
||||
<p>Get browser vendor.</p></li>
|
||||
</ul>
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue