Key

Not instrumented

Conditionalized out

Executed

Not executed

Both branches taken

One branch taken

Neither branch taken

1

;;; var.lisp --- GUI Variables

2

3

;;

4

5

;;; Code:

6

(in-package :gui/core)

7

8

(defvar *default-application-class* nil

9

"The current default application class (a symbol). Used as a default by

10

application launchers such as GUI/CLIM/APP:RUN-APP.")

11

(defvar *application* nil

12

"The currently running gui application or NIL.")

13

(defparameter *gui-backend-list* '(:gtk :tk :mcclim))

14

(defparameter *gui-backend* nil)