Skip to content
GitLab
Explore
Sign in
Register
Primary navigation
Search or go to…
Project
C
clim-tos
Manage
Activity
Members
Labels
Plan
Issues
Issue boards
Milestones
Wiki
Code
Merge requests
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Snippets
Build
Pipelines
Jobs
Pipeline schedules
Artifacts
Deploy
Releases
Container Registry
Model registry
Operate
Environments
Monitor
Incidents
Service Desk
Analyze
Value stream analytics
Contributor analytics
CI/CD analytics
Repository analytics
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Terms and privacy
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
Alastair Bridgewater
clim-tos
Commits
fad1e054
Commit
fad1e054
authored
31 years ago
by
colin
Browse files
Options
Downloads
Patches
Plain Diff
see changelog for Fri Sep 17 11:34:06 PDT 1993
parent
45e413b4
No related branches found
No related tags found
No related merge requests found
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
ChangeLog.n
+9
-0
9 additions, 0 deletions
ChangeLog.n
demo/demo-activity.lisp
+2
-2
2 additions, 2 deletions
demo/demo-activity.lisp
demo/demo-driver.lisp
+18
-16
18 additions, 16 deletions
demo/demo-driver.lisp
with
29 additions
and
18 deletions
ChangeLog.n
+
9
−
0
View file @
fad1e054
from colin: Fri Sep 17 11:34:06 PDT 1993
demo/demo-driver.lisp
demo/demo-activity.lisp fixed problem activity demo
-------------------------------------------------------------------------------
Thu Sep 16 22:26:58 1993 Duane Rettig (duane at clay)
Thu Sep 16 22:26:58 1993 Duane Rettig (duane at clay)
* Makefile.defs: Parameterize composer CL_SRC directory
* Makefile.defs: Parameterize composer CL_SRC directory
...
@@ -12,6 +19,8 @@ Thu Sep 16 22:26:58 1993 Duane Rettig (duane at clay)
...
@@ -12,6 +19,8 @@ Thu Sep 16 22:26:58 1993 Duane Rettig (duane at clay)
* misc/dev-load-1.lisp: Set update-entry-points to nil for speed
* misc/dev-load-1.lisp: Set update-entry-points to nil for speed
-------------------------------------------------------------------------------
from colin: Thu Sep 16 17:17:55 PDT 1993
from colin: Thu Sep 16 17:17:55 PDT 1993
clim/completer.lisp fix to clim2bug600
clim/completer.lisp fix to clim2bug600
...
...
This diff is collapsed.
Click to expand it.
demo/demo-activity.lisp
+
2
−
2
View file @
fad1e054
;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Package: CLIM-DEMO; Base: 10; Lowercase: Yes -*-
;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Package: CLIM-DEMO; Base: 10; Lowercase: Yes -*-
;; $fiHeader: demo-activity.lisp,v 1.
7
1993/0
6/04 16:06
:2
9
c
er
Exp $
;; $fiHeader: demo-activity.lisp,v 1.
8
1993/0
9/17 00:20
:2
8
c
olin
Exp $
(
in-package
:clim-demo
)
(
in-package
:clim-demo
)
...
@@ -71,4 +71,4 @@
...
@@ -71,4 +71,4 @@
(
define-demo
"Activity Demo"
activity
-frame
)
(
define-demo
"Activity Demo"
demo-
activity
)
This diff is collapsed.
Click to expand it.
demo/demo-driver.lisp
+
18
−
16
View file @
fad1e054
;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Package: CLIM-DEMO; Base: 10; Lowercase: Yes -*-
;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Package: CLIM-DEMO; Base: 10; Lowercase: Yes -*-
;; $fiHeader: demo-driver.lisp,v 1.2
4
1993/0
7/27 01:45:21
colin Exp $
;; $fiHeader: demo-driver.lisp,v 1.2
5
1993/0
9/17 00:20:30
colin Exp $
(
in-package
:clim-demo
)
(
in-package
:clim-demo
)
...
@@ -16,10 +16,10 @@
...
@@ -16,10 +16,10 @@
(
defmacro
define-demo
(
name
class
&rest
initargs
)
(
defmacro
define-demo
(
name
class
&rest
initargs
)
(
let
((
do-name
(
clim-utils:fintern
"~A-~A"
'do
class
)))
(
let
((
do-name
(
clim-utils:fintern
"~A-~A"
'do
class
)))
`
(
let
((
demo
(
make-instance
'demo
:name
,
name
`
(
let
((
demo
(
make-instance
'demo
:class
',class
:initargs
',initargs
)))
:name
,
name
:class
',class
:initargs
',initargs
)))
(
clim-utils:push-unique
demo
(
clim-utils:push-unique
demo
*demos*
:test
#'
string-equal
:key
#'
demo-name
)
*demos*
:test
#'
string-equal
:key
#'
demo-name
)
(
defun
,
do-name
(
&rest
args
)
(
defun
,
do-name
(
&rest
args
)
(
apply
#'
run-demo
demo
args
)))))
(
apply
#'
run-demo
demo
args
)))))
...
@@ -66,25 +66,27 @@
...
@@ -66,25 +66,27 @@
(
defun
run-demo
(
demo
&key
(
port
(
find-port
))
force
)
(
defun
run-demo
(
demo
&key
(
port
(
find-port
))
force
)
(
let*
((
entry
(
assoc
port
(
demo-frames
demo
)))
(
let*
((
entry
(
assoc
port
(
demo-frames
demo
)))
(
frame
(
cdr
entry
)))
(
frame
(
cdr
entry
))
(
activity-p
(
subtypep
(
demo-class
demo
)
'activity
)))
(
when
(
or
force
(
null
frame
))
(
when
(
or
force
(
null
frame
))
(
setq
frame
(
apply
#'
make-application-frame
(
setq
frame
(
apply
(
if
activity-p
#'
make-instance
#'
make-application-frame
)
(
demo-class
demo
)
(
demo-class
demo
)
:frame-manager
(
find-frame-manager
:port
port
)
:frame-manager
(
find-frame-manager
:port
port
)
(
demo-initargs
demo
))))
(
demo-initargs
demo
))))
(
if
entry
(
if
entry
(
setf
(
cdr
entry
)
frame
)
(
setf
(
cdr
entry
)
frame
)
(
push
(
cons
port
frame
)
(
demo-frames
demo
)))
(
push
(
cons
port
frame
)
(
demo-frames
demo
)))
(
case
(
frame-state
frame
)
(
if
(
slot-value
frame
'clim-internals::top-level-process
)
((
:enabled
:shrunk
)
(
unless
activity-p
(
note-frame-deiconified
(
frame-manager
frame
)
frame
)
(
note-frame-deiconified
(
frame-manager
frame
)
frame
)
(
raise-frame
frame
))
(
raise-frame
frame
))
(
t
(
run-frame-top-level
frame
))))
(
run-frame-top-level
frame
)))))
(
let
((
demo
(
make-instance
'demo
(
let
((
demo
(
make-instance
'demo
:name
"Demo Driver"
:name
"Demo Driver"
:class
'demo-driver
:class
'demo-driver
:initargs
'
(
:left
0
:top
0
))))
:initargs
'
(
:left
0
:top
0
))))
(
defun
start-demo
(
&rest
args
)
(
defun
start-demo
(
&rest
args
)
(
apply
#'
run-demo
demo
args
)))
(
apply
#'
run-demo
demo
args
)))
...
...
This diff is collapsed.
Click to expand it.
Preview
0%
Loading
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Save comment
Cancel
Please
register
or
sign in
to comment