Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
G
gendl
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
47
Issues
47
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
gendl
gendl
Commits
1fdce795
Commit
1fdce795
authored
Dec 08, 2013
by
Dave Cooper
Browse files
Options
Browse Files
Download
Plain Diff
Merge branch 'release/ql-2013-12'
parents
12f42a2f
56147d23
Changes
89
Expand all
Hide whitespace changes
Inline
Side-by-side
Showing
89 changed files
with
4316 additions
and
3741 deletions
+4316
-3741
.gitignore
.gitignore
+1
-0
apps/ta2/source/action-object.lisp
apps/ta2/source/action-object.lisp
+22
-0
apps/ta2/source/ajax.lisp
apps/ta2/source/ajax.lisp
+21
-0
apps/ta2/source/assembly.lisp
apps/ta2/source/assembly.lisp
+21
-0
apps/ta2/source/click-mode.lisp
apps/ta2/source/click-mode.lisp
+21
-0
apps/ta2/source/file-ordering.isc
apps/ta2/source/file-ordering.isc
+21
-0
apps/ta2/source/ignore-list.isc
apps/ta2/source/ignore-list.isc
+21
-0
apps/ta2/source/inspector.lisp
apps/ta2/source/inspector.lisp
+21
-0
apps/ta2/source/javascript.lisp
apps/ta2/source/javascript.lisp
+21
-0
apps/ta2/source/object-tree.lisp
apps/ta2/source/object-tree.lisp
+21
-0
apps/ta2/source/package.lisp
apps/ta2/source/package.lisp
+21
-0
apps/ta2/source/parameters.lisp
apps/ta2/source/parameters.lisp
+21
-0
apps/ta2/source/part-type-form.lisp
apps/ta2/source/part-type-form.lisp
+21
-0
apps/ta2/source/publish.lisp
apps/ta2/source/publish.lisp
+21
-0
apps/ta2/source/tests.lisp
apps/ta2/source/tests.lisp
+22
-0
apps/ta2/source/viewport.lisp
apps/ta2/source/viewport.lisp
+21
-0
apps/ta2/ta2.asd
apps/ta2/ta2.asd
+24
-9
apps/tasty/source/assembly.lisp
apps/tasty/source/assembly.lisp
+12
-3
apps/tasty/source/inspector.lisp
apps/tasty/source/inspector.lisp
+9
-8
apps/tasty/tasty.asd
apps/tasty/tasty.asd
+29
-12
apps/translators/translators.asd
apps/translators/translators.asd
+16
-5
apps/tree/source/newertree.lisp
apps/tree/source/newertree.lisp
+2
-2
apps/tree/tree.asd
apps/tree/tree.asd
+16
-5
apps/yadd/yadd.asd
apps/yadd/yadd.asd
+24
-10
base/base.asd
base/base.asd
+31
-13
base/macros/source/define-object.lisp
base/macros/source/define-object.lisp
+5
-0
base/rest/source/aggregate.lisp
base/rest/source/aggregate.lisp
+22
-0
base/rest/source/utilities.lisp
base/rest/source/utilities.lisp
+7
-1
base/rest/source/vanilla-mixin.lisp
base/rest/source/vanilla-mixin.lisp
+18
-5
base/source/package.lisp
base/source/package.lisp
+944
-943
base/source/parameters.lisp
base/source/parameters.lisp
+2
-1
cl-lite/cl-lite.asd
cl-lite/cl-lite.asd
+17
-6
demos/4bar/4bar.asd
demos/4bar/4bar.asd
+7
-5
demos/4bar/depends-on.isc
demos/4bar/depends-on.isc
+1
-1
demos/bus/bus.asd
demos/bus/bus.asd
+31
-13
demos/bus/depends-on.isc
demos/bus/depends-on.isc
+1
-1
demos/ledger/depends-on.isc
demos/ledger/depends-on.isc
+1
-1
demos/ledger/ledger.asd
demos/ledger/ledger.asd
+17
-6
demos/robot/depends-on.isc
demos/robot/depends-on.isc
+1
-1
demos/robot/robot.asd
demos/robot/robot.asd
+17
-6
demos/wire-world/depends-on.isc
demos/wire-world/depends-on.isc
+1
-1
demos/wire-world/wire-world.asd
demos/wire-world/wire-world.asd
+14
-4
documentation/training/depends-on.isc
documentation/training/depends-on.isc
+1
-1
documentation/training/g101/examples/source/file-io.lisp
documentation/training/g101/examples/source/file-io.lisp
+1
-1
documentation/training/g102-tud/examples/depends-on.isc
documentation/training/g102-tud/examples/depends-on.isc
+1
-1
documentation/training/g102-tud/examples/examples.asd
documentation/training/g102-tud/examples/examples.asd
+17
-6
documentation/training/g102/examples/city/source/assembly.lisp
...entation/training/g102/examples/city/source/assembly.lisp
+1
-1
documentation/training/g102/examples/city/source/package.lisp
...mentation/training/g102/examples/city/source/package.lisp
+1
-1
documentation/training/g102/examples/solids/source/web-page.lisp
...tation/training/g102/examples/solids/source/web-page.lisp
+1
-1
documentation/training/g102/solutions/ackermann/source/package.lisp
...ion/training/g102/solutions/ackermann/source/package.lisp
+1
-1
documentation/training/g102/solutions/city/source/assembly.lisp
...ntation/training/g102/solutions/city/source/assembly.lisp
+1
-1
documentation/training/g102/solutions/city/source/building.lisp
...ntation/training/g102/solutions/city/source/building.lisp
+34
-29
documentation/training/g102/solutions/city/source/package.lisp
...entation/training/g102/solutions/city/source/package.lisp
+1
-1
documentation/training/g105/examples/source/drilled-block.lisp
...entation/training/g105/examples/source/drilled-block.lisp
+9
-3
documentation/training/g108/examples/source/examples.lisp
documentation/training/g108/examples/source/examples.lisp
+0
-4
documentation/training/g108/source/package.lisp
documentation/training/g108/source/package.lisp
+2
-2
documentation/training/training.asd
documentation/training/training.asd
+1
-1
documentation/tutorial/source/assembly.lisp
documentation/tutorial/source/assembly.lisp
+50
-47
emacs/alert
emacs/alert
+1
-0
emacs/gdl.el
emacs/gdl.el
+28
-10
emacs/org-pomodoro
emacs/org-pomodoro
+1
-0
geom-base/geom-base.asd
geom-base/geom-base.asd
+53
-24
glisp/glisp.asd
glisp/glisp.asd
+16
-6
gwl-graphics/gwl-graphics.asd
gwl-graphics/gwl-graphics.asd
+21
-8
gwl-graphics/raphael/source/lenses.lisp
gwl-graphics/raphael/source/lenses.lisp
+19
-2
gwl/ajax/source/base-ajax-sheet.lisp
gwl/ajax/source/base-ajax-sheet.lisp
+485
-485
gwl/gwl-session/source/cleanup.lisp
gwl/gwl-session/source/cleanup.lisp
+146
-145
gwl/gwl.asd
gwl/gwl.asd
+35
-15
gwl/source/base-html-utils.lisp
gwl/source/base-html-utils.lisp
+363
-348
gwl/source/defparameters.lisp
gwl/source/defparameters.lisp
+135
-133
gwl/source/remote-object.lisp
gwl/source/remote-object.lisp
+40
-26
gwl/static/gwl/images/slack_in.gif
gwl/static/gwl/images/slack_in.gif
+0
-0
gwl/static/gwl/images/slack_out.gif
gwl/static/gwl/images/slack_out.gif
+0
-0
gwl/static/gwl/js/gdlajax-swap.js
gwl/static/gwl/js/gdlajax-swap.js
+0
-331
gwl/static/gwl/js/gdlajax1585.js
gwl/static/gwl/js/gdlajax1585.js
+0
-0
gwl/zzinit/source/initialize.lisp
gwl/zzinit/source/initialize.lisp
+3
-1
regression/data/round-trip.stp
regression/data/round-trip.stp
+858
-858
regression/regression.asd
regression/regression.asd
+85
-40
regression/source/separated-solid.lisp
regression/source/separated-solid.lisp
+8
-1
surf/source/3d-curve.lisp
surf/source/3d-curve.lisp
+80
-0
surf/source/b-spline-curve.lisp
surf/source/b-spline-curve.lisp
+25
-24
surf/source/boolean.lisp
surf/source/boolean.lisp
+84
-57
surf/source/brep.lisp
surf/source/brep.lisp
+13
-12
surf/source/file-ordering.isc
surf/source/file-ordering.isc
+1
-1
surf/source/methods.lisp
surf/source/methods.lisp
+6
-3
surf/source/native-reader.lisp
surf/source/native-reader.lisp
+5
-2
surf/source/region.lisp
surf/source/region.lisp
+1
-1
surf/source/shell.lisp
surf/source/shell.lisp
+1
-1
surf/surf.asd
surf/surf.asd
+94
-44
No files found.
.gitignore
View file @
1fdce795
...
...
@@ -4,6 +4,7 @@
*.fas
*.xfasl
*.dx64fsl
*.64xfasl
*.lib
bin
*~
...
...
apps/ta2/source/action-object.lisp
View file @
1fdce795
;;
;; Copyright 2013 Genworks International
;;
;; This source file is part of the General-purpose Declarative
;; Language project (GDL).
;;
;; This source file contains free software: you can redistribute it
;; and/or modify it under the terms of the GNU Affero General Public
;; License as published by the Free Software Foundation, either
;; version 3 of the License, or (at your option) any later version.
;;
;; This source file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; Affero General Public License for more details.
;;
;; You should have received a copy of the GNU Affero General Public
;; License along with this source file. If not, see
;; <http://www.gnu.org/licenses/>.
;;
(
in-package
:ta2
)
(
define-object
action-object
(
base-html-sheet
)
...
...
apps/ta2/source/ajax.lisp
View file @
1fdce795
;;
;; Copyright 2013 Genworks International
;;
;; This source file is part of the General-purpose Declarative
;; Language project (GDL).
;;
;; This source file contains free software: you can redistribute it
;; and/or modify it under the terms of the GNU Affero General Public
;; License as published by the Free Software Foundation, either
;; version 3 of the License, or (at your option) any later version.
;;
;; This source file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; Affero General Public License for more details.
;;
;; You should have received a copy of the GNU Affero General Public
;; License along with this source file. If not, see
;; <http://www.gnu.org/licenses/>.
;;
(
in-package
:ta2
)
...
...
apps/ta2/source/assembly.lisp
View file @
1fdce795
;;
;; Copyright 2013 Genworks International
;;
;; This source file is part of the General-purpose Declarative
;; Language project (GDL).
;;
;; This source file contains free software: you can redistribute it
;; and/or modify it under the terms of the GNU Affero General Public
;; License as published by the Free Software Foundation, either
;; version 3 of the License, or (at your option) any later version.
;;
;; This source file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; Affero General Public License for more details.
;;
;; You should have received a copy of the GNU Affero General Public
;; License along with this source file. If not, see
;; <http://www.gnu.org/licenses/>.
;;
(
in-package
:ta2
)
;;
...
...
apps/ta2/source/click-mode.lisp
View file @
1fdce795
;;
;; Copyright 2013 Genworks International
;;
;; This source file is part of the General-purpose Declarative
;; Language project (GDL).
;;
;; This source file contains free software: you can redistribute it
;; and/or modify it under the terms of the GNU Affero General Public
;; License as published by the Free Software Foundation, either
;; version 3 of the License, or (at your option) any later version.
;;
;; This source file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; Affero General Public License for more details.
;;
;; You should have received a copy of the GNU Affero General Public
;; License along with this source file. If not, see
;; <http://www.gnu.org/licenses/>.
;;
(
in-package
:ta2
)
...
...
apps/ta2/source/file-ordering.isc
View file @
1fdce795
;;
;; Copyright 2013 Genworks International
;;
;; This source file is part of the General-purpose Declarative
;; Language project (GDL).
;;
;; This source file contains free software: you can redistribute it
;; and/or modify it under the terms of the GNU Affero General Public
;; License as published by the Free Software Foundation, either
;; version 3 of the License, or (at your option) any later version.
;;
;; This source file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; Affero General Public License for more details.
;;
;; You should have received a copy of the GNU Affero General Public
;; License along with this source file. If not, see
;; <http://www.gnu.org/licenses/>.
;;
("package" "parameters" "javascript")
apps/ta2/source/ignore-list.isc
View file @
1fdce795
;;
;; Copyright 2013 Genworks International
;;
;; This source file is part of the General-purpose Declarative
;; Language project (GDL).
;;
;; This source file contains free software: you can redistribute it
;; and/or modify it under the terms of the GNU Affero General Public
;; License as published by the Free Software Foundation, either
;; version 3 of the License, or (at your option) any later version.
;;
;; This source file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; Affero General Public License for more details.
;;
;; You should have received a copy of the GNU Affero General Public
;; License along with this source file. If not, see
;; <http://www.gnu.org/licenses/>.
;;
("tests")
apps/ta2/source/inspector.lisp
View file @
1fdce795
;;
;; Copyright 2013 Genworks International
;;
;; This source file is part of the General-purpose Declarative
;; Language project (GDL).
;;
;; This source file contains free software: you can redistribute it
;; and/or modify it under the terms of the GNU Affero General Public
;; License as published by the Free Software Foundation, either
;; version 3 of the License, or (at your option) any later version.
;;
;; This source file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; Affero General Public License for more details.
;;
;; You should have received a copy of the GNU Affero General Public
;; License along with this source file. If not, see
;; <http://www.gnu.org/licenses/>.
;;
(
in-package
:ta2
)
...
...
apps/ta2/source/javascript.lisp
View file @
1fdce795
;;
;; Copyright 2013 Genworks International
;;
;; This source file is part of the General-purpose Declarative
;; Language project (GDL).
;;
;; This source file contains free software: you can redistribute it
;; and/or modify it under the terms of the GNU Affero General Public
;; License as published by the Free Software Foundation, either
;; version 3 of the License, or (at your option) any later version.
;;
;; This source file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; Affero General Public License for more details.
;;
;; You should have received a copy of the GNU Affero General Public
;; License along with this source file. If not, see
;; <http://www.gnu.org/licenses/>.
;;
(
in-package
:ta2
)
(
defparameter
*javascript-functions*
...
...
apps/ta2/source/object-tree.lisp
View file @
1fdce795
;;
;; Copyright 2013 Genworks International
;;
;; This source file is part of the General-purpose Declarative
;; Language project (GDL).
;;
;; This source file contains free software: you can redistribute it
;; and/or modify it under the terms of the GNU Affero General Public
;; License as published by the Free Software Foundation, either
;; version 3 of the License, or (at your option) any later version.
;;
;; This source file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; Affero General Public License for more details.
;;
;; You should have received a copy of the GNU Affero General Public
;; License along with this source file. If not, see
;; <http://www.gnu.org/licenses/>.
;;
(
in-package
:ta2
)
...
...
apps/ta2/source/package.lisp
View file @
1fdce795
;;
;; Copyright 2013 Genworks International
;;
;; This source file is part of the General-purpose Declarative
;; Language project (GDL).
;;
;; This source file contains free software: you can redistribute it
;; and/or modify it under the terms of the GNU Affero General Public
;; License as published by the Free Software Foundation, either
;; version 3 of the License, or (at your option) any later version.
;;
;; This source file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; Affero General Public License for more details.
;;
;; You should have received a copy of the GNU Affero General Public
;; License along with this source file. If not, see
;; <http://www.gnu.org/licenses/>.
;;
(
in-package
:gdl-user
)
...
...
apps/ta2/source/parameters.lisp
View file @
1fdce795
;;
;; Copyright 2013 Genworks International
;;
;; This source file is part of the General-purpose Declarative
;; Language project (GDL).
;;
;; This source file contains free software: you can redistribute it
;; and/or modify it under the terms of the GNU Affero General Public
;; License as published by the Free Software Foundation, either
;; version 3 of the License, or (at your option) any later version.
;;
;; This source file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; Affero General Public License for more details.
;;
;; You should have received a copy of the GNU Affero General Public
;; License along with this source file. If not, see
;; <http://www.gnu.org/licenses/>.
;;
(
in-package
:ta2
)
(
defvar
*debug?*
nil
)
...
...
apps/ta2/source/part-type-form.lisp
View file @
1fdce795
;;
;; Copyright 2013 Genworks International
;;
;; This source file is part of the General-purpose Declarative
;; Language project (GDL).
;;
;; This source file contains free software: you can redistribute it
;; and/or modify it under the terms of the GNU Affero General Public
;; License as published by the Free Software Foundation, either
;; version 3 of the License, or (at your option) any later version.
;;
;; This source file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; Affero General Public License for more details.
;;
;; You should have received a copy of the GNU Affero General Public
;; License along with this source file. If not, see
;; <http://www.gnu.org/licenses/>.
;;
(
in-package
:ta2
)
(
define-object
part-type-form
(
base-html-sheet
)
...
...
apps/ta2/source/publish.lisp
View file @
1fdce795
;;
;; Copyright 2013 Genworks International
;;
;; This source file is part of the General-purpose Declarative
;; Language project (GDL).
;;
;; This source file contains free software: you can redistribute it
;; and/or modify it under the terms of the GNU Affero General Public
;; License as published by the Free Software Foundation, either
;; version 3 of the License, or (at your option) any later version.
;;
;; This source file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; Affero General Public License for more details.
;;
;; You should have received a copy of the GNU Affero General Public
;; License along with this source file. If not, see
;; <http://www.gnu.org/licenses/>.
;;
(
in-package
:ta2
)
(
publish
:path
"/ta2"
...
...
apps/ta2/source/tests.lisp
View file @
1fdce795
;;
;; Copyright 2013 Genworks International
;;
;; This source file is part of the General-purpose Declarative
;; Language project (GDL).
;;
;; This source file contains free software: you can redistribute it
;; and/or modify it under the terms of the GNU Affero General Public
;; License as published by the Free Software Foundation, either
;; version 3 of the License, or (at your option) any later version.
;;
;; This source file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; Affero General Public License for more details.
;;
;; You should have received a copy of the GNU Affero General Public
;; License along with this source file. If not, see
;; <http://www.gnu.org/licenses/>.
;;
(
in-package
:gdl-user
)
...
...
apps/ta2/source/viewport.lisp
View file @
1fdce795
;;
;; Copyright 2013 Genworks International
;;
;; This source file is part of the General-purpose Declarative
;; Language project (GDL).
;;
;; This source file contains free software: you can redistribute it
;; and/or modify it under the terms of the GNU Affero General Public
;; License as published by the Free Software Foundation, either
;; version 3 of the License, or (at your option) any later version.
;;
;; This source file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; Affero General Public License for more details.
;;
;; You should have received a copy of the GNU Affero General Public
;; License along with this source file. If not, see
;; <http://www.gnu.org/licenses/>.
;;
(
in-package
:ta2
)
(
define-object
viewport
(
gwl:base-html-graphics-sheet
)
...
...
apps/ta2/ta2.asd
View file @
1fdce795
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:ta2
:description
(
asdf:defsystem
#:ta2
:description
"The Gendl™ (legacy) Testing and Tracking Utility, version 2 (using Ajax but pre-gdlAjax, and no JQuery or CSS)"
:author
"Dave Cooper and Genworks International"
:license
:author
"Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131023"
:depends-on
(
:gwl-graphics
)
:serial
t
:version
"20131207"
:depends-on
(
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
(
:file
"source/javascript"
)
(
:file
"source/action-object"
)
(
:file
"source/ajax"
)
(
:file
"source/assembly"
)
(
:file
"source/click-mode"
)
(
:file
"source/inspector"
)
(
:file
"source/object-tree"
)
(
:file
"source/part-type-form"
)
(
:file
"source/publish"
)
(
:file
"source/viewport"
)))
((
:file
"source/package"
)
(
:file
"source/parameters"
)
(
:file
"source/javascript"
)
(
:file
"source/action-object"
)
(
:file
"source/ajax"
)
(
:file
"source/assembly"
)
(
:file
"source/click-mode"
)
(
:file
"source/inspector"
)
(
:file
"source/object-tree"
)
(
:file
"source/part-type-form"
)
(
:file
"source/publish"
)
(
:file
"source/viewport"
)))
apps/tasty/source/assembly.lisp
View file @
1fdce795
...
...
@@ -391,7 +391,9 @@ The error was: ~a
((
:div
:class
"outer-west ui-widget pane"
)
((
:div
:class
"header ui-widget-header"
)
"Tree"
)
((
:div
:class
"ui-widget-content"
)(
str
(
the
tree
main-div
)))
((
:div
:class
"ui-widget-content"
:style
(
format
nil
"background-color: ~a"
(
or
(
getf
*colors-default*
:background
)
"#fafafa"
)))
(
str
(
the
tree
main-div
)))
((
:div
:class
"footer ui-widget-header"
)
"Click-mode:"
(
str
(
the
tree-status-object
main-div
)))
)
...
...
@@ -403,8 +405,15 @@ The error was: ~a
((
:div
:class
"outer-south ui-widget pane"
)
((
:div
:class
"footer ui-widget-header"
)
((
:span
:class
"fltrt"
)
"powered by "
((
:a
:href
"http://www.genworks.com"
:target
"_new"
)
"Genworks GDL"
)
"- empowered by "
((
:a
:href
"http://www.ke-works.com"
:target
"_new"
)
"KE-works"
))
"powered by "
((
:a
:href
"http://www.genworks.com"
:target
"_new"
)
"Genworks GDL"
)
(
str
(
if
(
glisp:featurep
:smlib
)
", "
" and "
))
((
:a
:href
"http://www.quicklisp.org"
:target
"_new"
)
"Quicklisp"
)
(
if
(
glisp:featurep
:smlib
)
(
progn
(
str
", and "
)
(
htm
((
:a
:href
"http://www.smlib.com"
:target
"_new"
)
"SMLib"
)))
""
))
((
:span
)
"GDL status: "
)
((
:span
:id
"gdlStatus"
)
"Done."
)
(
when
*tasty-developing?*
...
...
apps/tasty/source/inspector.lisp
View file @
1fdce795
...
...
@@ -197,17 +197,18 @@
(
:center
((
:span
:style
"font-style: italic; font-weight: bold;"
)
(
:p
"Inspecting: "
(
fmt
"\"~a\""
(
the
node
strings-for-display
))
:br
"root-path: "
(
esc
(
format
nil
"~s"
(
cons
'the
(
reverse
(
butlast
(
the
node-root-path
))))))
(
unless
(
butlast
(
the
node-root-path
))
(
htm
" [the root object]"
)))
(
:p
" of type: "
((
:span
:style
"color: blue; cursor: pointer;"
:onclick
(
the
(
gdl-ajax-call
:function-key
:visit-definition-in-emacs
:arguments
(
list
(
format
nil
"~s"
(
the
node
type
)))))
)
(
esc
(
format
nil
"~s"
(
the
node
type
)))))))
(
htm
" [the root object]"
))
:br
" type: "
((
:span
:style
"color: blue; cursor: pointer;"
:onclick
(
the
(
gdl-ajax-call
:function-key
:visit-definition-in-emacs
:arguments
(
list
(
format
nil
"~s"
(
the
node
type
))))))
(
esc
(
format
nil
"~s"
(
the
node
type
)))))))
((
:table
:class
"inspector-table"
:border
1
)
(
:tr
(
:td
"Settables"
)
(
:td
(
str
(
the
settables-form
control-view
))))
...
...
apps/tasty/tasty.asd
View file @
1fdce795
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:tasty
:description
"The Gendl™ Web-based Development Environment (tasty)"
:author
"Dave Cooper and Genworks International"
:license
(
asdf:defsystem
#:tasty
:description
"The Gendl™ Web-based Development Environment (tasty)"
:author
"Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131023"
:depends-on
(
:tree
:gwl-graphics
)
:serial
t
:version
"20131207"
:depends-on
(
:tree
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
(
:file
"source/assembly"
)
(
:file
"source/initialize"
)
(
:file
"source/inspector"
)
(
:file
"source/menu"
)
(
:file
"source/new-inspector"
)
(
:file
"source/newer-inspector"
)
(
:file
"source/part-type-form"
)
(
:file
"source/publish"
)
(
:file
"source/status-object"
)
(
:file
"source/test-part"
)
(
:file
"source/test-part2"
)
(
:file
"source/two-viewports"
)
(
:file
"source/viewport"
)
(
:file
"source/zzinit"
)))
((
:file
"source/package"
)
(
:file
"source/parameters"
)
(
:file
"source/assembly"
)
(
:file
"source/initialize"
)
(
:file
"source/inspector"
)
(
:file
"source/menu"
)
(
:file
"source/new-inspector"
)
(
:file
"source/newer-inspector"
)
(
:file
"source/part-type-form"
)
(
:file
"source/publish"
)
(
:file
"source/status-object"
)
(
:file
"source/test-part"
)
(
:file
"source/test-part2"
)
(
:file
"source/two-viewports"
)
(
:file
"source/viewport"
)
(
:file
"source/zzinit"
)))
apps/translators/translators.asd
View file @
1fdce795
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:translators
:description
(
asdf:defsystem
#:translators
:description
"The Gendl™ Translators to/from XML and potentially other high-level KBE and Knowledge formats"
:author
"Dave Cooper and Genworks International"
:license
:author
"Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131023"
:depends-on
(
:gwl
)
:serial
t
:version
"20131207"
:depends-on
(
:gwl
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"xml/source/package"
)
(
:file
"xml/source/genworks"
)
(
:file
"xml/source/definition-tree"
)
(
:file
"xml/source/gdl2xml"
)
((
:file
"xml/source/package"
)
(
:file
"xml/source/genworks"
)
(
:file
"xml/source/definition-tree"
)
(
:file
"xml/source/gdl2xml"
)
(
:file
"xml/source/xml2gdl"
)))
apps/tree/source/newertree.lisp
View file @
1fdce795
...
...
@@ -160,8 +160,8 @@ Converting to a string to avoid error."
((
<
(
the
tatu-line-thickness
)
1
)
(
*
400
(
the
tatu-line-thickness
)))
((
<=
(
the
tatu-line-thickness
)
3
)
(
*
300
(
the
tatu-line-thickness
)))
(
t
900
))))
(
if
font-weight
(
format
nil
" font-weight: ~a; "
font-weight
)
""
))))
(
format
nil
" font-weight: ~a; "
font-weight
))))
:onclick
(
when
(
the
onclick-function
)
(
funcall
(
the
onclick-function
)
(
the
target-object
))))
...
...
apps/tree/tree.asd
View file @
1fdce795
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:tree
:description
(
asdf:defsystem
#:tree
:description
"The Gendl™ Tree component used by Tasty and potentially as a UI component on its own"
:author
"Dave Cooper and Genworks International"
:license
:author
"Genworks International"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial
t
:version
"20131023"
:depends-on
(
:gwl-graphics
)
:serial
t
:version
"20131207"
:depends-on
(
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
(
:file
"source/ajax"
)
(
:file
"source/assembly"
)
((
:file
"source/package"
)
(
:file
"source/parameters"
)
(
:file
"source/ajax"
)
(
:file
"source/assembly"
)
(
:file
"source/newertree"
)))
apps/yadd/yadd.asd
View file @
1fdce795
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:yadd
:description
"The Gendl™ Yet Another Definition Documenter (yadd)"
:author
"Dave Cooper and Genworks International"
:license
(
asdf:defsystem