Skip to content
GitLab
Explore
Sign in
Register
Primary navigation
Search or go to…
Project
cmucl
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
Package Registry
Model registry
Operate
Environments
Terraform modules
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
Carl Shapiro
cmucl
Commits
cd1bc37f
Commit
cd1bc37f
authored
32 years ago
by
garland
Browse files
Options
Downloads
Patches
Plain Diff
Replaced uses of Motif gadgets with corresponding widgets.
parent
cfa32fc4
No related branches found
No related tags found
No related merge requests found
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
interface/interface.lisp
+19
-19
19 additions, 19 deletions
interface/interface.lisp
with
19 additions
and
19 deletions
interface/interface.lisp
+
19
−
19
View file @
cd1bc37f
...
@@ -132,12 +132,12 @@
...
@@ -132,12 +132,12 @@
(
dolist
(
entry
menu-spec
)
(
dolist
(
entry
menu-spec
)
(
if
(
and
entry
(
listp
entry
))
(
if
(
and
entry
(
listp
entry
))
(
let
((
widget
(
create-push-button
-gadget
pulldown
"menuEntry"
(
let
((
widget
(
create-push-button
pulldown
"menuEntry"
:label-string
(
car
entry
))))
:label-string
(
car
entry
))))
(
when
(
cdr
entry
)
(
when
(
cdr
entry
)
(
apply
#'
add-callback
widget
:activate-callback
(
cdr
entry
)))
(
apply
#'
add-callback
widget
:activate-callback
(
cdr
entry
)))
(
push
widget
widgets
))
(
push
widget
widgets
))
(
let
((
widget
(
create-separator
-gadget
pulldown
"menuSeparator"
)))
(
let
((
widget
(
create-separator
pulldown
"menuSeparator"
)))
(
push
widget
widgets
))))
(
push
widget
widgets
))))
(
apply
#'
manage-children
widgets
)
(
apply
#'
manage-children
widgets
)
cascade
))
cascade
))
...
@@ -149,7 +149,7 @@
...
@@ -149,7 +149,7 @@
(
create-interface-menu
menu-bar
name
menu-spec
))
(
create-interface-menu
menu-bar
name
menu-spec
))
(
defun
create-highlight-button
(
parent
name
label
)
(
defun
create-highlight-button
(
parent
name
label
)
(
create-push-button
-gadget
parent
name
(
create-push-button
parent
name
:label-string
label
:label-string
label
:highlight-on-enter
t
:highlight-on-enter
t
:shadow-thickness
0
))
:shadow-thickness
0
))
...
@@ -180,14 +180,14 @@
...
@@ -180,14 +180,14 @@
:margin-height
0
:margin-height
0
:margin-width
0
:margin-width
0
:orientation
:horizontal
))
:orientation
:horizontal
))
(
label
(
create-label
-gadget
rc
"valueLabel"
(
label
(
create-label
rc
"valueLabel"
:font-list
*header-font*
:font-list
*header-font*
:label-string
name
))
:label-string
name
))
(
button
(
if
activep
(
button
(
if
activep
(
create-highlight-button
rc
"valueObject"
(
create-highlight-button
rc
"valueObject"
(
print-for-widget-display
(
print-for-widget-display
"~S"
value
))
"~S"
value
))
(
create-label
-gadget
rc
"valueObject"
(
create-label
rc
"valueObject"
:font-list
*italic-font*
:font-list
*italic-font*
:label-string
:label-string
(
format
nil
"~A"
value
)))))
(
format
nil
"~A"
value
)))))
...
@@ -205,13 +205,13 @@
...
@@ -205,13 +205,13 @@
(
defun
set-value-box
(
vbox
name
value
&key
callback
client-data
)
(
defun
set-value-box
(
vbox
name
value
&key
callback
client-data
)
(
with-widget-children
(
child
vbox
)
(
with-widget-children
(
child
vbox
)
(
:push-button
-gadget
(
:push-button
(
set-values
child
:label-string
(
set-values
child
:label-string
(
print-for-widget-display
"~S"
value
))
(
print-for-widget-display
"~S"
value
))
(
remove-all-callbacks
child
:activate-callback
)
(
remove-all-callbacks
child
:activate-callback
)
(
when
callback
(
when
callback
(
add-callback
child
:activate-callback
callback
(
or
client-data
value
))))
(
add-callback
child
:activate-callback
callback
(
or
client-data
value
))))
(
:label
-gadget
(
:label
(
set-values
child
:label-string
name
))))
(
set-values
child
:label-string
name
))))
...
@@ -442,7 +442,7 @@
...
@@ -442,7 +442,7 @@
(
text-set-string
widget
""
)
(
text-set-string
widget
""
)
(
multiple-value-bind
(
form
shell
)
(
multiple-value-bind
(
form
shell
)
(
create-form-dialog
pane
"aproposDialog"
)
(
create-form-dialog
pane
"aproposDialog"
)
(
let*
((
done
(
create-push-button
-gadget
form
"aproposDone"
(
let*
((
done
(
create-push-button
form
"aproposDone"
:left-attachment
:attach-form
:left-attachment
:attach-form
:right-attachment
:attach-form
:right-attachment
:attach-form
:label-string
"Done"
))
:label-string
"Done"
))
...
@@ -526,12 +526,12 @@
...
@@ -526,12 +526,12 @@
(
c::cookie-cspeed
cookie
)))
(
c::cookie-cspeed
cookie
)))
(
brevity
(
create-policy
rc
"Inhibit Warnings"
(
brevity
(
create-policy
rc
"Inhibit Warnings"
(
c::cookie-brevity
cookie
)))
(
c::cookie-brevity
cookie
)))
(
sep
(
create-separator
-gadget
form
"separator"
(
sep
(
create-separator
form
"separator"
:top-attachment
:attach-widget
:top-attachment
:attach-widget
:top-widget
rc
:top-widget
rc
:left-attachment
:attach-form
:left-attachment
:attach-form
:right-attachment
:attach-form
))
:right-attachment
:attach-form
))
(
done
(
create-push-button
-gadget
form
"done"
(
done
(
create-push-button
form
"done"
:label-string
"Done"
:label-string
"Done"
:top-attachment
:attach-widget
:top-attachment
:attach-widget
:top-widget
sep
:top-widget
sep
...
@@ -593,7 +593,7 @@
...
@@ -593,7 +593,7 @@
:bottom-attachment
:attach-form
:bottom-attachment
:attach-form
:right-attachment
:attach-position
:right-attachment
:attach-position
:right-position
50
))
:right-position
50
))
(
prompt
(
create-label
-gadget
form
"inspectPrompt"
(
prompt
(
create-label
form
"inspectPrompt"
:top-attachment
:attach-widget
:top-attachment
:attach-widget
:top-widget
menu-bar
:top-widget
menu-bar
:font-list
*header-font*
:font-list
*header-font*
...
@@ -606,7 +606,7 @@
...
@@ -606,7 +606,7 @@
:left-attachment
:attach-form
:left-attachment
:attach-form
:right-attachment
:attach-widget
:right-attachment
:attach-widget
:right-widget
vsep
))
:right-widget
vsep
))
(
hlabel
(
create-label
-gadget
form
"inspectHistoryLabel"
(
hlabel
(
create-label
form
"inspectHistoryLabel"
:top-attachment
:attach-widget
:top-attachment
:attach-widget
:top-widget
entry
:top-widget
entry
:font-list
*header-font*
:font-list
*header-font*
...
@@ -622,7 +622,7 @@
...
@@ -622,7 +622,7 @@
:right-attachment
:attach-widget
:right-attachment
:attach-widget
:right-widget
vsep
:right-widget
vsep
:bottom-attachment
:attach-form
))
:bottom-attachment
:attach-form
))
(
flabel
(
create-label
-gadget
form
"filesLabel"
(
flabel
(
create-label
form
"filesLabel"
:left-attachment
:attach-widget
:left-attachment
:attach-widget
:left-widget
vsep
:left-widget
vsep
:top-attachment
:attach-widget
:top-attachment
:attach-widget
...
@@ -638,13 +638,13 @@
...
@@ -638,13 +638,13 @@
:top-widget
flabel
:top-widget
flabel
:right-attachment
:attach-form
:right-attachment
:attach-form
:right-offset
4
))
:right-offset
4
))
(
add
(
create-push-button
-gadget
frc
"fileAdd"
(
add
(
create-push-button
frc
"fileAdd"
:label-string
"Add File"
))
:label-string
"Add File"
))
(
remove
(
create-push-button
-gadget
frc
"fileRemove"
(
remove
(
create-push-button
frc
"fileRemove"
:label-string
"Remove Files"
))
:label-string
"Remove Files"
))
(
load
(
create-push-button
-gadget
frc
"fileLoad"
(
load
(
create-push-button
frc
"fileLoad"
:label-string
"Load Files"
))
:label-string
"Load Files"
))
(
compile
(
create-push-button
-gadget
frc
"fileCompile"
(
compile
(
create-push-button
frc
"fileCompile"
:label-string
"Compile Files"
))
:label-string
"Compile Files"
))
(
apropos
(
create-text
form
"apropos"
(
apropos
(
create-text
form
"apropos"
:left-attachment
:attach-widget
:left-attachment
:attach-widget
...
@@ -654,14 +654,14 @@
...
@@ -654,14 +654,14 @@
:left-offset
4
:left-offset
4
:right-offset
4
:right-offset
4
:bottom-offset
4
))
:bottom-offset
4
))
(
alabel
(
create-label
-gadget
form
"aproposLabel"
(
alabel
(
create-label
form
"aproposLabel"
:label-string
"Apropos:"
:label-string
"Apropos:"
:font-list
*header-font*
:font-list
*header-font*
:left-attachment
:attach-widget
:left-attachment
:attach-widget
:left-widget
vsep
:left-widget
vsep
:bottom-attachment
:attach-widget
:bottom-attachment
:attach-widget
:bottom-widget
apropos
))
:bottom-widget
apropos
))
(
hsep
(
create-separator
-gadget
form
"separator"
(
hsep
(
create-separator
form
"separator"
:left-attachment
:attach-widget
:left-attachment
:attach-widget
:left-widget
vsep
:left-widget
vsep
:right-attachment
:attach-form
:right-attachment
:attach-form
...
...
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