├── SK8_UserGuide.pdf ├── Sources ├── Build Part 1 │ ├── Create MCL for SK8 build.lisp │ ├── Patches to base MCL │ │ ├── MCLcreator-patch.lisp │ │ ├── MCLmenu.lisp │ │ ├── MCLmetapoint.lisp │ │ ├── Patches to MCL3.0 │ │ │ └── fixnum-conditional-patch.pfsl │ │ ├── Utilities.lisp │ │ ├── appleevent-toolkit.lisp │ │ ├── apropos.lisp │ │ ├── boolean.lisp │ │ ├── ccl-menus.lisp │ │ ├── dialogs.lisp │ │ ├── encapsulate.lisp │ │ ├── hash-set.lisp │ │ ├── macptr-termination.lisp │ │ ├── resources.lisp │ │ ├── time-utilities.lisp │ │ ├── trace-print.lisp │ │ └── wrapper-inspection.lisp │ ├── Real Build P1 Work.lisp │ └── Resource patches │ │ └── various resource patches ├── SK8's Build Procedure ├── SK8 │ ├── 02-Object System │ │ ├── 01-obj.lisp │ │ ├── 02-creation-relation.lisp │ │ ├── 03-new-and-init.lisp │ │ ├── 04-bootstrap.lisp │ │ ├── 05-basic-obj-api.lisp │ │ ├── 06-obj.lisp │ │ ├── 07-creat-relat-api.lisp │ │ ├── 08-leftovers.lisp │ │ ├── 09-WriteObject.lisp │ │ ├── Trap Library │ │ │ ├── Components.lisp │ │ │ ├── Files.lisp │ │ │ ├── GestaltEqu.lisp │ │ │ ├── Memory.lisp │ │ │ ├── Menus.lisp │ │ │ ├── Misc.lisp │ │ │ ├── Movies Traps.lisp │ │ │ ├── OSUtils.lisp │ │ │ ├── QDOffScreen.lisp │ │ │ ├── QuickDraw.lisp │ │ │ ├── Resources.lisp │ │ │ ├── Scrap.lisp │ │ │ ├── Script.lisp │ │ │ ├── SoundInput.lisp │ │ │ └── trapsToPreload.lisp │ │ ├── Trap Support │ │ │ ├── Records.lisp │ │ │ ├── Utilities.lisp │ │ │ ├── gcosptr.lisp │ │ │ ├── macros-traps.lisp │ │ │ └── osptr-sk8Object.lisp │ │ ├── copy resources.lisp │ │ ├── globals.lisp │ │ ├── initialize-bogus-project.lisp │ │ ├── load object system.lisp │ │ ├── new multivalue stuff.lisp │ │ ├── object-creation-macros.lisp │ │ └── systemlog.lisp │ ├── 03-Graphics System │ │ ├── Export.lisp │ │ ├── GraphicsSystem.lisp │ │ ├── Import.lisp │ │ ├── Kernel │ │ │ ├── CLOS-glue.lisp │ │ │ ├── Dynamic Linking.lisp │ │ │ ├── Fixed Point Package.lisp │ │ │ ├── Globals.lisp │ │ │ ├── Let+.lisp │ │ │ ├── Macros.lisp │ │ │ ├── Recycle Mechanism.lisp │ │ │ ├── Save-Image.lisp │ │ │ ├── Structures.lisp │ │ │ ├── hidemenubar.lisp │ │ │ ├── pixmap-caching.lisp │ │ │ ├── public utilities.lisp │ │ │ ├── region-macros.lisp │ │ │ ├── shaped-window.lisp │ │ │ ├── splash window.lisp │ │ │ ├── theBackgroundWindow.lisp │ │ │ ├── toolbox-extensions.lisp │ │ │ └── utility-functions.lisp │ │ ├── MCL Patches │ │ │ ├── Fred 3.0 Patch │ │ │ │ ├── Frec does GWorlds.lisp │ │ │ │ ├── Pristine Fred 3.0 Source │ │ │ │ │ ├── fredenv.lisp │ │ │ │ │ └── l1-edfrec.lisp │ │ │ │ └── load-fred-patch.lisp │ │ │ ├── MCLcmd-key.lisp │ │ │ ├── MCLmenus.lisp │ │ │ └── MCLwindows-patch.lisp │ │ └── WDEFs │ │ │ └── Blank WDEF │ │ │ ├── BlankWDEF PPC │ │ │ ├── BlankWDEF.c │ │ │ ├── BlankWDEFDefines.h │ │ │ └── BlankWDEFPPC.π │ ├── 04-Store │ │ ├── Code Generator Class.lisp │ │ ├── Fasl Concatenate.lisp │ │ ├── Generic CodeGen.lisp │ │ ├── Load Store.lisp │ │ ├── Make-load-form.lisp │ │ ├── Old Store Utilities.lisp │ │ ├── Project Parent Order.lisp │ │ ├── Project Walker.lisp │ │ ├── Runtime Utilities.lisp │ │ ├── SS:FASL CodeGen.lisp │ │ ├── Save.lisp │ │ ├── Simple Queue.lisp │ │ ├── Source Dumper.lisp │ │ └── split-lfun.lisp │ ├── 05-SK8Script │ │ ├── Collections │ │ │ ├── Aliased Protocol.lisp │ │ │ ├── Array Protocol.lisp │ │ │ ├── Collection Protocol.lisp │ │ │ ├── List Protocol.lisp │ │ │ ├── Load Collections.lisp │ │ │ ├── Stream Protocol.lisp │ │ │ ├── Table Protocol.lisp │ │ │ ├── Text Protocol.lisp │ │ │ ├── Vector Protocol.lisp │ │ │ └── WriteObject Collections.lisp │ │ ├── Editor │ │ │ ├── ExpressionWatcher.lisp │ │ │ ├── Sk8ScriptEditor.lisp │ │ │ └── editorInterface.lisp │ │ ├── Load SK8Script Runtime.lisp │ │ ├── Load SK8Script.lisp │ │ ├── Runtime │ │ │ ├── Load Runtime.lisp │ │ │ ├── characters.lisp │ │ │ ├── coercion.lisp │ │ │ ├── comparator-handlers.lisp │ │ │ ├── library-functions.lisp │ │ │ ├── lists-&-sequences.lisp │ │ │ ├── math.lisp │ │ │ ├── operators.lisp │ │ │ └── predicates.lisp │ │ ├── SK8Script Tests.lisp │ │ ├── SK8Script to SKIL │ │ │ ├── Command Parser.lisp │ │ │ ├── Compiler Interfaces.lisp │ │ │ ├── Debugging.lisp │ │ │ ├── Expression Parser.lisp │ │ │ ├── Lex.lisp │ │ │ ├── Load Compiler.lisp │ │ │ └── Parser Basics.lisp │ │ ├── SKIL │ │ │ ├── Collection Mappers.lisp │ │ │ ├── Collection Mappers.sk8 │ │ │ ├── JAVA SKIL Compiler.lisp │ │ │ ├── Java Indentor.lisp │ │ │ ├── Load SKIL Compiler.lisp │ │ │ ├── Load SKIL Runtime.lisp │ │ │ ├── SK8Script Primitives.lisp │ │ │ ├── ScriptX SKIL Compiler.lisp │ │ │ ├── Skil Compiler.lisp │ │ │ └── Type Inference.lisp │ │ └── Store │ │ │ ├── Load Script File.lisp │ │ │ └── RAM Store.lisp │ ├── 06-Globals │ │ ├── Function Library │ │ │ ├── ActorToPrinter.lisp │ │ │ ├── Completion Functions.lisp │ │ │ ├── EditTextSearchAndReplace.lisp │ │ │ ├── GetShapeFromUser.lisp │ │ │ ├── Layout Functions.Lisp │ │ │ ├── RecordSound.lisp │ │ │ ├── Selection Detection.lisp │ │ │ ├── SlowStripCopy.lisp │ │ │ ├── Strings And Chars.lisp │ │ │ ├── User Dialogs.lisp │ │ │ └── Zoom Rects.lisp │ │ └── Load Globals.lisp │ ├── 07-Objects │ │ ├── 02-Object System Core │ │ │ ├── Apple Events.lisp │ │ │ ├── AppleScript Object.lisp │ │ │ ├── Built ins.lisp │ │ │ ├── Builtin handlers.lisp │ │ │ ├── Devices.lisp │ │ │ ├── File.lisp │ │ │ ├── Ports.lisp │ │ │ ├── Processes.lisp │ │ │ ├── Project.lisp │ │ │ ├── SK8-error-system.lisp │ │ │ ├── SpecialStorage.lisp │ │ │ ├── System.lisp │ │ │ ├── Virtual Types.lisp │ │ │ └── proxy.lisp │ │ ├── 03-Graphics System Core │ │ │ ├── ActorMixins.lisp │ │ │ ├── Clipboard.lisp │ │ │ ├── Event Modes.lisp │ │ │ ├── ImageRenderer.lisp │ │ │ ├── Media Types.lisp │ │ │ ├── PenAndMask.lisp │ │ │ ├── Renderer.lisp │ │ │ ├── Standard Renderers.lisp │ │ │ ├── Standard Resources.lisp │ │ │ ├── Translator.lisp │ │ │ ├── actor.lisp │ │ │ ├── drag.lisp │ │ │ ├── dragOnStage.lisp │ │ │ ├── graphic.lisp │ │ │ ├── menus.lisp │ │ │ └── rectangle.lisp │ │ ├── Browser Components │ │ │ ├── Browser Components.lisp │ │ │ ├── PropertyValueData.lisp │ │ │ ├── SimplePropertyEditor.lisp │ │ │ └── UndoableSetLog.lisp │ │ ├── Browsers │ │ │ ├── FileChooser.lisp │ │ │ ├── ResourceChooser.lisp │ │ │ ├── SK8AboutBox.lisp │ │ │ └── TreeBrowser.lisp │ │ ├── Clocks │ │ │ ├── AbstractClock.lisp │ │ │ ├── Clock.lisp │ │ │ ├── DateTime.lisp │ │ │ ├── DateTimeIndirect.lisp │ │ │ ├── MinutesClock.lisp │ │ │ ├── RealTimeClock.lisp │ │ │ ├── SecondsClock.lisp │ │ │ └── SlaveClock.lisp │ │ ├── Dialogs │ │ │ ├── DialogBox.lisp │ │ │ ├── File Dialogs.lisp │ │ │ ├── GetAnswerFromUser.lisp │ │ │ ├── GetContentFromUser.lisp │ │ │ ├── GetFromUser.lisp │ │ │ ├── GetListFromUser.lisp │ │ │ ├── GetNewNumberFromUser.lisp │ │ │ ├── GetNewObjectFromUser.lisp │ │ │ ├── GetNewRGBColorFromUser.lisp │ │ │ ├── GetNewStringFromUser.lisp │ │ │ ├── GetNewSymbolFromUser.lisp │ │ │ ├── GetRendererFromUser.lisp │ │ │ ├── MessageToUserDialogBox.lisp │ │ │ ├── ModalDialogMode.lisp │ │ │ ├── ObjectSystemDialogs.lisp │ │ │ ├── SelectFromCollectionDialog.lisp │ │ │ └── YesOrNoDialogBox.lisp │ │ ├── EditText │ │ │ ├── EditText.lisp │ │ │ ├── EditorScriptEditText.lisp │ │ │ ├── Indent SK8Script.lisp │ │ │ ├── ScriptEditText.lisp │ │ │ └── TextField.lisp │ │ ├── Effects │ │ │ ├── BevelRenderer.lisp │ │ │ ├── ComplexGradient.lisp │ │ │ ├── ComplexRGBColor.lisp │ │ │ ├── DynamicRenderer.lisp │ │ │ ├── Gradient.lisp │ │ │ ├── Hatch.lisp │ │ │ ├── LoneRangerRenderer.lisp │ │ │ ├── MultiRenderer.lisp │ │ │ ├── SketchRenderer.lisp │ │ │ ├── SwatchRenderer.lisp │ │ │ ├── TBSketchRenderer.lisp │ │ │ └── VisualEffects.lisp │ │ ├── Import:Export │ │ │ ├── BWPatternToPATTranslator.lisp │ │ │ ├── ColorCursorRSRCTocrsrTrans.lisp │ │ │ ├── ColorPatternToppatTrans.lisp │ │ │ ├── CursorRSRCTocursTranslator.lisp │ │ │ ├── IconRSRCTocicnTranslator.lisp │ │ │ ├── ImageRendererToPATTrans.lisp │ │ │ ├── ImageRendererToPICTTrans.lisp │ │ │ ├── ImageRendererTocicnTrans.lisp │ │ │ ├── ImageRendererToppatTrans.lisp │ │ │ ├── IndirectTranslator.lisp │ │ │ ├── PixelMapToPICTTranslator.lisp │ │ │ ├── QDPictureToPICTTranslator.lisp │ │ │ ├── SoundRSRCTosndTranslator.lisp │ │ │ └── SoundTosndTranslator.lisp │ │ ├── Load Objects.lisp │ │ ├── MacWidgets │ │ │ ├── 0-MacWidget.sk8 │ │ │ ├── 1-MacButtons.sk8 │ │ │ ├── 2-MacScrollbars.sk8 │ │ │ ├── 3-MacDialogs.sk8 │ │ │ ├── 4-MacPopups.sk8 │ │ │ ├── 5-MacIndicators.sk8 │ │ │ ├── 6-MacArrows.sk8 │ │ │ ├── 8-MacScrollingLists.sk8 │ │ │ └── load-MacWidgets.lisp │ │ ├── Media │ │ │ ├── AnimatedCursor.lisp │ │ │ ├── ColorCursor.lisp │ │ │ └── Sound.lisp │ │ ├── Movies │ │ │ ├── MovieRectangle.lisp │ │ │ ├── ObjectID.lisp │ │ │ ├── QT-CallBack.lisp │ │ │ ├── QT-Media.lisp │ │ │ ├── QT-Movie.lisp │ │ │ ├── QT-PictRenderer.lisp │ │ │ ├── QT-Renderer.lisp │ │ │ ├── QT-TimeBase.lisp │ │ │ ├── QT-Track.lisp │ │ │ ├── QT-TrackCollection.lisp │ │ │ ├── QT-Translators.lisp │ │ │ ├── QuickTime.lisp │ │ │ └── main.lisp │ │ ├── Palettes │ │ │ └── DrawPalette.lisp │ │ ├── Pickers │ │ │ ├── ColorPicker.lisp │ │ │ ├── HierarchicalPicker.lisp │ │ │ ├── IconTextPicker.lisp │ │ │ ├── LinearTextPicker.lisp │ │ │ ├── MultiLinePicker.lisp │ │ │ ├── Picker.lisp │ │ │ ├── SelectByRowTPAddOn.lisp │ │ │ ├── StyledPicker.lisp │ │ │ ├── TablePicker.lisp │ │ │ ├── TablePickerEditorAddOn.lisp │ │ │ └── TextList.lisp │ │ ├── Shapes │ │ │ ├── Arrow.lisp │ │ │ ├── Halo.lisp │ │ │ ├── LineSegment.lisp │ │ │ ├── MaskedActor.lisp │ │ │ ├── Oval.lisp │ │ │ ├── Polygon.lisp │ │ │ ├── RoundRect.lisp │ │ │ └── SelectionDots.lisp │ │ └── Widgets │ │ │ ├── CheckBox.lisp │ │ │ ├── Connector.lisp │ │ │ ├── DirectionalConnector.lisp │ │ │ ├── Label.lisp │ │ │ ├── MultiObjectStateCheckBox.lisp │ │ │ ├── ObjectDataRect.lisp │ │ │ ├── PaintField.lisp │ │ │ ├── PickerMenu.lisp │ │ │ ├── RadioButton.lisp │ │ │ ├── Scroller.lisp │ │ │ ├── Slider.lisp │ │ │ └── Splitter.lisp │ ├── 08-UI │ │ ├── Dialogs │ │ │ ├── DialogBox.lisp │ │ │ ├── ErrorInspectorDialog.lisp │ │ │ └── Layout Dialog.lisp │ │ ├── Screen Objects │ │ │ ├── Draw Palette.lisp │ │ │ ├── Edit Modes.lisp │ │ │ ├── Finder.lisp │ │ │ ├── Handler Tracer.lisp │ │ │ ├── HandlerCallMessage.lisp │ │ │ ├── Help Window.lisp │ │ │ ├── Inheritance Viewer.lisp │ │ │ ├── Menu Builder.Lisp │ │ │ ├── MessageBox.lisp │ │ │ ├── Object Editor.lisp │ │ │ ├── Preferences Dialogs.lisp │ │ │ ├── Project Editor.lisp │ │ │ ├── Property Editor.lisp │ │ │ ├── Renderer Editors.lisp │ │ │ ├── Save As Editor.lisp │ │ │ ├── ScriptWarningsWindow.lisp │ │ │ ├── Selection Keys.lisp │ │ │ ├── Selection Mode.lisp │ │ │ ├── Selection.lisp │ │ │ ├── Stage Overviewer.lisp │ │ │ ├── Swatches and Updates.lisp │ │ │ ├── SystemBrowser.lisp │ │ │ ├── UI Menubar.lisp │ │ │ ├── UI Preferences.lisp │ │ │ ├── UI Renderers.lisp │ │ │ ├── UI Script Editor.lisp │ │ │ ├── UIWindowWidgets.lisp │ │ │ ├── UIwindow.lisp │ │ │ └── mediaBrowser.lisp │ │ ├── UI-project.lisp │ │ ├── Utilities │ │ │ ├── Handler Tracing.lisp │ │ │ ├── Layout Functions.Lisp │ │ │ ├── Menu Components.lisp │ │ │ ├── PortConnectors.lisp │ │ │ ├── Simple Property Editors.lisp │ │ │ ├── Swatch Renderer.lisp │ │ │ └── popUpPalette.lisp │ │ └── make.lisp │ ├── 09-Development Utilities │ │ ├── 2-d-utils.lisp │ │ ├── Documentation │ │ │ ├── Text->Wood-DB │ │ │ │ ├── Build Online Docs.lisp │ │ │ │ ├── Doc Macros.lisp │ │ │ │ ├── Doc Parser.lisp │ │ │ │ ├── Documentation Status.lisp │ │ │ │ ├── New Doc Parser.lisp │ │ │ │ ├── Object Definitions.lisp │ │ │ │ └── Parsed Docs->RTF.lisp │ │ │ ├── Wood-DB->FrameMaker │ │ │ │ ├── 01-preTables.text │ │ │ │ ├── 02-afterTables.text │ │ │ │ ├── 03-trailer.text │ │ │ │ └── wood->framemaker.lisp │ │ │ ├── Wood-DB │ │ │ │ ├── DBase-definitions.lisp │ │ │ │ └── on-line Help.lisp │ │ │ ├── fred-doc-utilities.lisp │ │ │ └── load-documentation.lisp │ │ ├── General │ │ │ ├── Documentation Utilities.lisp │ │ │ ├── fred-sk8script-commands.lisp │ │ │ ├── general-utils.lisp │ │ │ ├── list-callers.lisp │ │ │ └── space-timer.lisp │ │ ├── LispObject.lisp │ │ ├── Thermometer.lisp │ │ ├── Toolbox Lookup.lisp │ │ ├── TreeShake.lisp │ │ ├── development-package-utils.lisp │ │ ├── lisp-dev-utils.lisp │ │ ├── load-development-utils.lisp │ │ ├── make-transcript.lisp │ │ └── map-dynamic-space.lisp │ ├── 10-Resources │ │ ├── ProjectBuilder.rsrc │ │ ├── SK8.rsrc │ │ └── UserReports.rsrc │ ├── Preload │ │ ├── SK8-preload.lisp │ │ ├── SK8CaseSavedSyms.lisp │ │ ├── SK8OverriddenSyms.lisp │ │ ├── SK8PrivateSyms.lisp │ │ ├── SK8PublicSyms.lisp │ │ ├── SK8Script-symbols-tools.lisp │ │ ├── SK8SharedSyms.lisp │ │ ├── SK8SpecialSyms.lisp │ │ ├── UIPrivateSyms.lisp │ │ ├── UIPublicSyms.lisp │ │ ├── UISharedSyms.lisp │ │ ├── UISpecialSyms.lisp │ │ ├── exporting.lisp │ │ ├── file-scanner-read-stubs.lisp │ │ ├── file-scanner.lisp │ │ ├── mf-exports.lisp │ │ ├── sk8OptionSyms.lisp │ │ └── sk8script-preloads.lisp │ ├── Recompile Required Timestamp │ └── Release Notes ├── SourceServer Source │ ├── Projector │ │ ├── 2923321258.tem │ │ ├── compare.lisp │ │ ├── find-folder.lisp │ │ ├── merge.lisp │ │ ├── mpw-command.lisp │ │ ├── mpw-project.lisp │ │ ├── projector-menus.lisp │ │ ├── projector-ui.lisp │ │ ├── projector-utilities.lisp │ │ ├── projector.lisp │ │ ├── read-only.lisp │ │ └── sublaunch.lisp │ ├── Source-server-readme │ ├── load-SourceServer.lisp │ ├── plot-icon.lisp │ ├── sourceserver-command.lisp │ └── ui-utilities.lisp ├── sk8-init.lisp └── sk8-load.lisp └── sk8_license.pdf /SK8_UserGuide.pdf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/SK8_UserGuide.pdf -------------------------------------------------------------------------------- /Sources/Build Part 1/Create MCL for SK8 build.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/Build Part 1/Create MCL for SK8 build.lisp -------------------------------------------------------------------------------- /Sources/Build Part 1/Patches to base MCL/MCLcreator-patch.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/Build Part 1/Patches to base MCL/MCLcreator-patch.lisp -------------------------------------------------------------------------------- /Sources/Build Part 1/Patches to base MCL/MCLmenu.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/Build Part 1/Patches to base MCL/MCLmenu.lisp -------------------------------------------------------------------------------- /Sources/Build Part 1/Patches to base MCL/MCLmetapoint.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/Build Part 1/Patches to base MCL/MCLmetapoint.lisp -------------------------------------------------------------------------------- /Sources/Build Part 1/Patches to base MCL/Patches to MCL3.0/fixnum-conditional-patch.pfsl: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/Build Part 1/Patches to base MCL/Patches to MCL3.0/fixnum-conditional-patch.pfsl -------------------------------------------------------------------------------- /Sources/Build Part 1/Patches to base MCL/Utilities.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/Build Part 1/Patches to base MCL/Utilities.lisp -------------------------------------------------------------------------------- /Sources/Build Part 1/Patches to base MCL/appleevent-toolkit.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/Build Part 1/Patches to base MCL/appleevent-toolkit.lisp -------------------------------------------------------------------------------- /Sources/Build Part 1/Patches to base MCL/apropos.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/Build Part 1/Patches to base MCL/apropos.lisp -------------------------------------------------------------------------------- /Sources/Build Part 1/Patches to base MCL/boolean.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/Build Part 1/Patches to base MCL/boolean.lisp -------------------------------------------------------------------------------- /Sources/Build Part 1/Patches to base MCL/ccl-menus.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/Build Part 1/Patches to base MCL/ccl-menus.lisp -------------------------------------------------------------------------------- /Sources/Build Part 1/Patches to base MCL/dialogs.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/Build Part 1/Patches to base MCL/dialogs.lisp -------------------------------------------------------------------------------- /Sources/Build Part 1/Patches to base MCL/encapsulate.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/Build Part 1/Patches to base MCL/encapsulate.lisp -------------------------------------------------------------------------------- /Sources/Build Part 1/Patches to base MCL/hash-set.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/Build Part 1/Patches to base MCL/hash-set.lisp -------------------------------------------------------------------------------- /Sources/Build Part 1/Patches to base MCL/macptr-termination.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/Build Part 1/Patches to base MCL/macptr-termination.lisp -------------------------------------------------------------------------------- /Sources/Build Part 1/Patches to base MCL/resources.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/Build Part 1/Patches to base MCL/resources.lisp -------------------------------------------------------------------------------- /Sources/Build Part 1/Patches to base MCL/time-utilities.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/Build Part 1/Patches to base MCL/time-utilities.lisp -------------------------------------------------------------------------------- /Sources/Build Part 1/Patches to base MCL/trace-print.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/Build Part 1/Patches to base MCL/trace-print.lisp -------------------------------------------------------------------------------- /Sources/Build Part 1/Patches to base MCL/wrapper-inspection.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/Build Part 1/Patches to base MCL/wrapper-inspection.lisp -------------------------------------------------------------------------------- /Sources/Build Part 1/Real Build P1 Work.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/Build Part 1/Real Build P1 Work.lisp -------------------------------------------------------------------------------- /Sources/Build Part 1/Resource patches/various resource patches: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/Build Part 1/Resource patches/various resource patches -------------------------------------------------------------------------------- /Sources/SK8's Build Procedure: -------------------------------------------------------------------------------- 1 | Instructions for building SK8 1.1 2 | 3 | 0. General notes on the build procedure: 4 | 5 | See the installation instructions that come with MCL 4.0 (for PowerPC) or 6 | MCL 3.1 (for 68K) to make sure that any files that you need in your system 7 | folder or elsewhere to run MCL are properly installed. 8 | 9 | SK8 requires the Espy fonts to be installed on your system. We have 10 | included a file named "Espy Family" which should be dropped on your System 11 | Folder to install it. 12 | 13 | SK8 has been developed in a research environment and has never been handed 14 | over to Apple's production configuration management group for 15 | manufacturing. The build procedure that is outlined here will work, but 16 | there will be some evidence of the evolutionary path that the development 17 | followed and some dead ends that were not pruned before this code was 18 | archived. Here's some explanation of what you will find: 19 | 20 | The SK8 development team used SourceServer for version control and 21 | configuration management of the sources. A Lisp interface to SourceServer 22 | was made part of the SK8 build, and the build process provides options for 23 | updating sources from a SourceServer project database. The build procedure 24 | reflects this history by presenting you with options to build a developer or 25 | user version which includes or excludes the interface to SourceServer. 26 | 27 | This document explains how to build SK8 from the source files that are on 28 | the CDROM archive, and does not make use of the SourceServer interface, but 29 | the interface will still be part of the developer version of the resulting 30 | SK8 build. 31 | 32 | 1. Creating the build folder: 33 | 34 | If you are building SK8 for the PowerPC, use MCL 4.0. If you are building 35 | SK8 for 68K, use MCL 3.1. 36 | 37 | Create your build folder. For the purposes of these instructions it will be 38 | assumed to be named "SK8 1.1", but any name will do. 39 | 40 | Copy into the folder the following files from the MCL installation: The MCL 41 | application (MCL 4.0 or MCL 3.1) and the entire Library folder. For the 42 | PowerPC version, you must also either copy the three files 43 | pmcl-compiler-4.0, pmcl-kernel-4.0, and pmcl-library-4.0 in to the build 44 | folder, or else place aliases to those files with the same names in the 45 | Extensions folder of the System folder. You may wish to also copy the two 46 | MCL Help files if you intend to be doing any work in Lisp. 47 | 48 | Copy the SK8 sources into the build folder. If you have done this 49 | correctly, the build folder will contain the following files and folders: 50 | 51 | 52 | FIles in SK8 1.1 folder: 53 | 54 | MCL 4.0 or MCL 3.1 55 | MCL Help (optional) 56 | MCL Help Map.pfsl or MCL Help Map.fasl (optional) 57 | pmcl-compiler-4.0 (PPC only) 58 | pmcl-kernel-4.0 (PPC only) 59 | pmcl-library-4.0 (PPC only) 60 | 61 | sk8-init.lisp 62 | sk8-load.lisp 63 | 64 | Folders in SK8 1.1 folder: 65 | 66 | Library 67 | 68 | Build Part 1 69 | SK8 70 | SourceServer Source 71 | 72 | During the build process, an additional folder, named "SK8 Temporary Files" 73 | will be created. This folder is used for temporary files and is emptied 74 | automatically. 75 | 76 | 2. Running Part 1 of the build procedure: 77 | 78 | Part 1 builds a version of MCL that is then used for the main part of the 79 | SK8 build. It is a little less automated than Part 2. 80 | 81 | Step 1. 82 | 83 | Launch the MCL application from the build folder. 84 | 85 | Select File | Load File from the menu (or type command-Y), navigate to the 86 | "Build Part 1" folder and select, the file "Create MCL for SK8 Build.lisp" 87 | and double-click on it or click on the Load button. 88 | 89 | A dialog will appear with button choices labeled "Developer", "User", and 90 | "Cancel". Click on "Developer" this time, even if you intend to produce a User 91 | build. 92 | 93 | A dialog will appear asking you to "Enter a name for the saved image file" 94 | with a text entry field that is initialized to something like "MCL 4.0 SK8 95 | 1.1". This will be the name of the file that is generated by this part of 96 | the build. In less you have a reason to name the file differently, simply 97 | click on the OK button to accept the default, otherwise edit the name and 98 | then click OK. 99 | 100 | This part of the build takes less than two minutes on a PowerMac 9500/132 101 | if every file needs to be compiled. When the build is finished, MCL exits 102 | to the finder, leaving you with two files, one with the name you gave for 103 | the saved image file and one with same name appended by ".log" that 104 | contains a log of the messages sent to the Listener window during the build. 105 | 106 | Step 2. 107 | 108 | Repeat Step 1, this time specifying that you want a "Developer" or "User" build. 109 | The Developer build produces an MCL image that includes the interface to 110 | SourceServer and which can be used to build any of the SK8 Developer, Release 111 | or Runtime verions. The User build produces an MCL image that does not include 112 | the interface to SourceServer and that cannot be used to produce a Developer 113 | version of SK8. 114 | 115 | This step will rebuild the image from the already compiled files 116 | that were created during Step 1, and insures that the resulting image does 117 | not have anything extra in it that was needed only to compile the sources. 118 | If Step 1 was run when the compiled files were not available, such as the 119 | first time you build after copying the sources from CDROM, then Step 2 will 120 | be much faster than Step 1. 121 | 122 | That completes Part 1 of the SK8 build. You only have to repeat a Part 1 123 | build if you change any of the files in the Build Part 1 folder or the 124 | SourceServer Sources folder, or if you change the underlying MCL version. 125 | 126 | 3. Running Part 2 of the build procedure to produce a full SK8: 127 | 128 | Part 2 uses the MCL image that was produced in Part 1 to build SK8 or a SK8 129 | runtime image. 130 | 131 | Step 1 132 | 133 | Launch the application file that was produced by Build Part 1, e.g., "MCL 134 | 4.0 SK8 1.1". 135 | 136 | Select File | Load File from the menu (or type command-Y), navigate to the 137 | build folder if you need to and select, the file "sk8-init.lisp" and 138 | double-click on it or click on the Load button. 139 | 140 | A dialog will appear. There will be a text edit field that contains the 141 | default version for the SK8 image you are building, "1.1 PPC" or "1.1 68K". 142 | You can edit this if you want, or accept the default. The result of the 143 | build will be a named "SK8" followed by the contents of that text edit 144 | field, and a log file with the same name followed by ".log". There are also 145 | several check boxes and radio buttons in the dialog. The default settings 146 | are the proper ones for building the SK8 image, but here is an explanation 147 | of each of them: 148 | 149 | Update all projects - This can only be used with the SourceServer 150 | version control interface, which is not documented in this instruction 151 | file. Leave it unchecked. 152 | 153 | Recompile Everything - If this box is not checked, then the build 154 | process will check internal time/version stamps in each object file to see 155 | if it was compiled from the existing copy of the source file, and will not 156 | recompile any file that is in synch. Checking the box will force all files 157 | to be recompiled. You would want to recompile everything if you have 158 | changed the definition of a macro in one file that could affect compilation 159 | of other files, if you are using a new version of MCL, or if you have fixed 160 | a bug in the MCL compiler. Normally you would leave this box unchecked for 161 | the fastest build speed. 162 | 163 | Save when done - If this box is checked, then the SK8 application file is 164 | written out at the end of the build process and the build exits to the 165 | Finder. You would only want to uncheck this box if you need to prevent the 166 | exit to Finder to debug the build process. 167 | 168 | Produce log file - A log of files loaded, compiled, and compiler warnings 169 | is written to a text file if this box is checked, which is the default. 170 | 171 | Runtime/Release/Development - These are radio buttons, i.e., you can only 172 | choose one of them. Development, causes the build to produce a 173 | full SK8 application. Release produces a full SK8 without the MCL development 174 | environment and some utilities that the SK8 development team used for 175 | generating documentation and some other development activities. 176 | 177 | IMPORTANT: The Development build of SK8 includes the Lisp development 178 | environment of MCL. If you make a Development build of SK8, your use of it is 179 | subject to the terms of the license agreement you have with Digitool for the 180 | use of your copy of MCL. You may only give Release or Runtime versions of SK8 181 | to people who do not already have a legitimate licensed copy of MCL. 182 | 183 | Runtime causes the build to produce a runtime image, which is described a little 184 | later in this document. 185 | 186 | The first time you build SK8, every file needs to be compiled to object 187 | form. The resulting object files have the extension "pfsl" on the PowerPC 188 | and "fasl" on 68K. This stage of the build takes about 20 minutes on a PPC 189 | 9500/132. 190 | 191 | Step 2 192 | 193 | Repeat Step 1. The build process should not recompile the files, instead 194 | just loading the object files created by Step 1. This step takes about 5 195 | minutes on a PPC 9500/132. Like the repetition in Part 1, this produces an 196 | application image that is free from leftovers of the compilation process. 197 | 198 | 4. Running Part 2 of the build procedure to produce a runtime version of SK8: 199 | 200 | Repeat Step 1 of the previous section's instructions, but this time select 201 | the Runtime radio button. This will produce a file named "SK8 runtime1.1 202 | PPC" or "SK8 runtime1.1 68K" (if you use the default version names). 203 | Because the files were already compiled in the previous steps, there is no 204 | need to do this step twice. 205 | 206 | 5. Creating the SK8 development folder: 207 | 208 | The environment you need for developing SK8 applications is a folder that 209 | contains the files in the SK8 build folder after the final build step is 210 | completed except for the files SK8-init.lisp, SK8-load.lisp, and the folder 211 | named "SK8". You can either move those somewhere else, or copy everything 212 | except them from the SK8 build folder to another folder that you will be 213 | using for SK8 development. 214 | 215 | -------------------------------------------------------------------------------- /Sources/SK8/02-Object System/01-obj.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/02-Object System/01-obj.lisp -------------------------------------------------------------------------------- /Sources/SK8/02-Object System/02-creation-relation.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/02-Object System/02-creation-relation.lisp -------------------------------------------------------------------------------- /Sources/SK8/02-Object System/03-new-and-init.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/02-Object System/03-new-and-init.lisp -------------------------------------------------------------------------------- /Sources/SK8/02-Object System/04-bootstrap.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/02-Object System/04-bootstrap.lisp -------------------------------------------------------------------------------- /Sources/SK8/02-Object System/05-basic-obj-api.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/02-Object System/05-basic-obj-api.lisp -------------------------------------------------------------------------------- /Sources/SK8/02-Object System/06-obj.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/02-Object System/06-obj.lisp -------------------------------------------------------------------------------- /Sources/SK8/02-Object System/07-creat-relat-api.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/02-Object System/07-creat-relat-api.lisp -------------------------------------------------------------------------------- /Sources/SK8/02-Object System/08-leftovers.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/02-Object System/08-leftovers.lisp -------------------------------------------------------------------------------- /Sources/SK8/02-Object System/09-WriteObject.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/02-Object System/09-WriteObject.lisp -------------------------------------------------------------------------------- /Sources/SK8/02-Object System/Trap Library/Components.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/02-Object System/Trap Library/Components.lisp -------------------------------------------------------------------------------- /Sources/SK8/02-Object System/Trap Library/Files.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/02-Object System/Trap Library/Files.lisp -------------------------------------------------------------------------------- /Sources/SK8/02-Object System/Trap Library/GestaltEqu.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/02-Object System/Trap Library/GestaltEqu.lisp -------------------------------------------------------------------------------- /Sources/SK8/02-Object System/Trap Library/Memory.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/02-Object System/Trap Library/Memory.lisp -------------------------------------------------------------------------------- /Sources/SK8/02-Object System/Trap Library/Menus.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/02-Object System/Trap Library/Menus.lisp -------------------------------------------------------------------------------- /Sources/SK8/02-Object System/Trap Library/Misc.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/02-Object System/Trap Library/Misc.lisp -------------------------------------------------------------------------------- /Sources/SK8/02-Object System/Trap Library/Movies Traps.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/02-Object System/Trap Library/Movies Traps.lisp -------------------------------------------------------------------------------- /Sources/SK8/02-Object System/Trap Library/OSUtils.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/02-Object System/Trap Library/OSUtils.lisp -------------------------------------------------------------------------------- /Sources/SK8/02-Object System/Trap Library/QDOffScreen.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/02-Object System/Trap Library/QDOffScreen.lisp -------------------------------------------------------------------------------- /Sources/SK8/02-Object System/Trap Library/QuickDraw.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/02-Object System/Trap Library/QuickDraw.lisp -------------------------------------------------------------------------------- /Sources/SK8/02-Object System/Trap Library/Resources.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/02-Object System/Trap Library/Resources.lisp -------------------------------------------------------------------------------- /Sources/SK8/02-Object System/Trap Library/Scrap.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/02-Object System/Trap Library/Scrap.lisp -------------------------------------------------------------------------------- /Sources/SK8/02-Object System/Trap Library/Script.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/02-Object System/Trap Library/Script.lisp -------------------------------------------------------------------------------- /Sources/SK8/02-Object System/Trap Library/SoundInput.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/02-Object System/Trap Library/SoundInput.lisp -------------------------------------------------------------------------------- /Sources/SK8/02-Object System/Trap Library/trapsToPreload.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/02-Object System/Trap Library/trapsToPreload.lisp -------------------------------------------------------------------------------- /Sources/SK8/02-Object System/Trap Support/Records.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/02-Object System/Trap Support/Records.lisp -------------------------------------------------------------------------------- /Sources/SK8/02-Object System/Trap Support/Utilities.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/02-Object System/Trap Support/Utilities.lisp -------------------------------------------------------------------------------- /Sources/SK8/02-Object System/Trap Support/gcosptr.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/02-Object System/Trap Support/gcosptr.lisp -------------------------------------------------------------------------------- /Sources/SK8/02-Object System/Trap Support/macros-traps.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/02-Object System/Trap Support/macros-traps.lisp -------------------------------------------------------------------------------- /Sources/SK8/02-Object System/Trap Support/osptr-sk8Object.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/02-Object System/Trap Support/osptr-sk8Object.lisp -------------------------------------------------------------------------------- /Sources/SK8/02-Object System/copy resources.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/02-Object System/copy resources.lisp -------------------------------------------------------------------------------- /Sources/SK8/02-Object System/globals.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/02-Object System/globals.lisp -------------------------------------------------------------------------------- /Sources/SK8/02-Object System/initialize-bogus-project.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/02-Object System/initialize-bogus-project.lisp -------------------------------------------------------------------------------- /Sources/SK8/02-Object System/load object system.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/02-Object System/load object system.lisp -------------------------------------------------------------------------------- /Sources/SK8/02-Object System/new multivalue stuff.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/02-Object System/new multivalue stuff.lisp -------------------------------------------------------------------------------- /Sources/SK8/02-Object System/object-creation-macros.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/02-Object System/object-creation-macros.lisp -------------------------------------------------------------------------------- /Sources/SK8/02-Object System/systemlog.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/02-Object System/systemlog.lisp -------------------------------------------------------------------------------- /Sources/SK8/03-Graphics System/Export.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/03-Graphics System/Export.lisp -------------------------------------------------------------------------------- /Sources/SK8/03-Graphics System/GraphicsSystem.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/03-Graphics System/GraphicsSystem.lisp -------------------------------------------------------------------------------- /Sources/SK8/03-Graphics System/Import.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/03-Graphics System/Import.lisp -------------------------------------------------------------------------------- /Sources/SK8/03-Graphics System/Kernel/CLOS-glue.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/03-Graphics System/Kernel/CLOS-glue.lisp -------------------------------------------------------------------------------- /Sources/SK8/03-Graphics System/Kernel/Dynamic Linking.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/03-Graphics System/Kernel/Dynamic Linking.lisp -------------------------------------------------------------------------------- /Sources/SK8/03-Graphics System/Kernel/Fixed Point Package.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/03-Graphics System/Kernel/Fixed Point Package.lisp -------------------------------------------------------------------------------- /Sources/SK8/03-Graphics System/Kernel/Globals.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/03-Graphics System/Kernel/Globals.lisp -------------------------------------------------------------------------------- /Sources/SK8/03-Graphics System/Kernel/Let+.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/03-Graphics System/Kernel/Let+.lisp -------------------------------------------------------------------------------- /Sources/SK8/03-Graphics System/Kernel/Macros.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/03-Graphics System/Kernel/Macros.lisp -------------------------------------------------------------------------------- /Sources/SK8/03-Graphics System/Kernel/Recycle Mechanism.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/03-Graphics System/Kernel/Recycle Mechanism.lisp -------------------------------------------------------------------------------- /Sources/SK8/03-Graphics System/Kernel/Save-Image.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/03-Graphics System/Kernel/Save-Image.lisp -------------------------------------------------------------------------------- /Sources/SK8/03-Graphics System/Kernel/Structures.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/03-Graphics System/Kernel/Structures.lisp -------------------------------------------------------------------------------- /Sources/SK8/03-Graphics System/Kernel/hidemenubar.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/03-Graphics System/Kernel/hidemenubar.lisp -------------------------------------------------------------------------------- /Sources/SK8/03-Graphics System/Kernel/pixmap-caching.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/03-Graphics System/Kernel/pixmap-caching.lisp -------------------------------------------------------------------------------- /Sources/SK8/03-Graphics System/Kernel/public utilities.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/03-Graphics System/Kernel/public utilities.lisp -------------------------------------------------------------------------------- /Sources/SK8/03-Graphics System/Kernel/region-macros.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/03-Graphics System/Kernel/region-macros.lisp -------------------------------------------------------------------------------- /Sources/SK8/03-Graphics System/Kernel/shaped-window.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/03-Graphics System/Kernel/shaped-window.lisp -------------------------------------------------------------------------------- /Sources/SK8/03-Graphics System/Kernel/splash window.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/03-Graphics System/Kernel/splash window.lisp -------------------------------------------------------------------------------- /Sources/SK8/03-Graphics System/Kernel/theBackgroundWindow.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/03-Graphics System/Kernel/theBackgroundWindow.lisp -------------------------------------------------------------------------------- /Sources/SK8/03-Graphics System/Kernel/toolbox-extensions.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/03-Graphics System/Kernel/toolbox-extensions.lisp -------------------------------------------------------------------------------- /Sources/SK8/03-Graphics System/Kernel/utility-functions.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/03-Graphics System/Kernel/utility-functions.lisp -------------------------------------------------------------------------------- /Sources/SK8/03-Graphics System/MCL Patches/Fred 3.0 Patch/Frec does GWorlds.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/03-Graphics System/MCL Patches/Fred 3.0 Patch/Frec does GWorlds.lisp -------------------------------------------------------------------------------- /Sources/SK8/03-Graphics System/MCL Patches/Fred 3.0 Patch/Pristine Fred 3.0 Source/fredenv.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/03-Graphics System/MCL Patches/Fred 3.0 Patch/Pristine Fred 3.0 Source/fredenv.lisp -------------------------------------------------------------------------------- /Sources/SK8/03-Graphics System/MCL Patches/Fred 3.0 Patch/Pristine Fred 3.0 Source/l1-edfrec.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/03-Graphics System/MCL Patches/Fred 3.0 Patch/Pristine Fred 3.0 Source/l1-edfrec.lisp -------------------------------------------------------------------------------- /Sources/SK8/03-Graphics System/MCL Patches/Fred 3.0 Patch/load-fred-patch.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/03-Graphics System/MCL Patches/Fred 3.0 Patch/load-fred-patch.lisp -------------------------------------------------------------------------------- /Sources/SK8/03-Graphics System/MCL Patches/MCLcmd-key.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/03-Graphics System/MCL Patches/MCLcmd-key.lisp -------------------------------------------------------------------------------- /Sources/SK8/03-Graphics System/MCL Patches/MCLmenus.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/03-Graphics System/MCL Patches/MCLmenus.lisp -------------------------------------------------------------------------------- /Sources/SK8/03-Graphics System/MCL Patches/MCLwindows-patch.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/03-Graphics System/MCL Patches/MCLwindows-patch.lisp -------------------------------------------------------------------------------- /Sources/SK8/03-Graphics System/WDEFs/Blank WDEF/BlankWDEF PPC: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/03-Graphics System/WDEFs/Blank WDEF/BlankWDEF PPC -------------------------------------------------------------------------------- /Sources/SK8/03-Graphics System/WDEFs/Blank WDEF/BlankWDEF.c: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/03-Graphics System/WDEFs/Blank WDEF/BlankWDEF.c -------------------------------------------------------------------------------- /Sources/SK8/03-Graphics System/WDEFs/Blank WDEF/BlankWDEFDefines.h: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/03-Graphics System/WDEFs/Blank WDEF/BlankWDEFDefines.h -------------------------------------------------------------------------------- /Sources/SK8/03-Graphics System/WDEFs/Blank WDEF/BlankWDEFPPC.π: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/03-Graphics System/WDEFs/Blank WDEF/BlankWDEFPPC.π -------------------------------------------------------------------------------- /Sources/SK8/04-Store/Code Generator Class.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/04-Store/Code Generator Class.lisp -------------------------------------------------------------------------------- /Sources/SK8/04-Store/Fasl Concatenate.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/04-Store/Fasl Concatenate.lisp -------------------------------------------------------------------------------- /Sources/SK8/04-Store/Generic CodeGen.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/04-Store/Generic CodeGen.lisp -------------------------------------------------------------------------------- /Sources/SK8/04-Store/Load Store.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/04-Store/Load Store.lisp -------------------------------------------------------------------------------- /Sources/SK8/04-Store/Make-load-form.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/04-Store/Make-load-form.lisp -------------------------------------------------------------------------------- /Sources/SK8/04-Store/Old Store Utilities.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/04-Store/Old Store Utilities.lisp -------------------------------------------------------------------------------- /Sources/SK8/04-Store/Project Parent Order.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/04-Store/Project Parent Order.lisp -------------------------------------------------------------------------------- /Sources/SK8/04-Store/Project Walker.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/04-Store/Project Walker.lisp -------------------------------------------------------------------------------- /Sources/SK8/04-Store/Runtime Utilities.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/04-Store/Runtime Utilities.lisp -------------------------------------------------------------------------------- /Sources/SK8/04-Store/SS:FASL CodeGen.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/04-Store/SS:FASL CodeGen.lisp -------------------------------------------------------------------------------- /Sources/SK8/04-Store/Save.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/04-Store/Save.lisp -------------------------------------------------------------------------------- /Sources/SK8/04-Store/Simple Queue.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/04-Store/Simple Queue.lisp -------------------------------------------------------------------------------- /Sources/SK8/04-Store/Source Dumper.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/04-Store/Source Dumper.lisp -------------------------------------------------------------------------------- /Sources/SK8/04-Store/split-lfun.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/04-Store/split-lfun.lisp -------------------------------------------------------------------------------- /Sources/SK8/05-SK8Script/Collections/Aliased Protocol.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/05-SK8Script/Collections/Aliased Protocol.lisp -------------------------------------------------------------------------------- /Sources/SK8/05-SK8Script/Collections/Array Protocol.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/05-SK8Script/Collections/Array Protocol.lisp -------------------------------------------------------------------------------- /Sources/SK8/05-SK8Script/Collections/Collection Protocol.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/05-SK8Script/Collections/Collection Protocol.lisp -------------------------------------------------------------------------------- /Sources/SK8/05-SK8Script/Collections/List Protocol.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/05-SK8Script/Collections/List Protocol.lisp -------------------------------------------------------------------------------- /Sources/SK8/05-SK8Script/Collections/Load Collections.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/05-SK8Script/Collections/Load Collections.lisp -------------------------------------------------------------------------------- /Sources/SK8/05-SK8Script/Collections/Stream Protocol.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/05-SK8Script/Collections/Stream Protocol.lisp -------------------------------------------------------------------------------- /Sources/SK8/05-SK8Script/Collections/Table Protocol.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/05-SK8Script/Collections/Table Protocol.lisp -------------------------------------------------------------------------------- /Sources/SK8/05-SK8Script/Collections/Text Protocol.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/05-SK8Script/Collections/Text Protocol.lisp -------------------------------------------------------------------------------- /Sources/SK8/05-SK8Script/Collections/Vector Protocol.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/05-SK8Script/Collections/Vector Protocol.lisp -------------------------------------------------------------------------------- /Sources/SK8/05-SK8Script/Collections/WriteObject Collections.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/05-SK8Script/Collections/WriteObject Collections.lisp -------------------------------------------------------------------------------- /Sources/SK8/05-SK8Script/Editor/ExpressionWatcher.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/05-SK8Script/Editor/ExpressionWatcher.lisp -------------------------------------------------------------------------------- /Sources/SK8/05-SK8Script/Editor/Sk8ScriptEditor.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/05-SK8Script/Editor/Sk8ScriptEditor.lisp -------------------------------------------------------------------------------- /Sources/SK8/05-SK8Script/Editor/editorInterface.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/05-SK8Script/Editor/editorInterface.lisp -------------------------------------------------------------------------------- /Sources/SK8/05-SK8Script/Load SK8Script Runtime.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/05-SK8Script/Load SK8Script Runtime.lisp -------------------------------------------------------------------------------- /Sources/SK8/05-SK8Script/Load SK8Script.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/05-SK8Script/Load SK8Script.lisp -------------------------------------------------------------------------------- /Sources/SK8/05-SK8Script/Runtime/Load Runtime.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/05-SK8Script/Runtime/Load Runtime.lisp -------------------------------------------------------------------------------- /Sources/SK8/05-SK8Script/Runtime/characters.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/05-SK8Script/Runtime/characters.lisp -------------------------------------------------------------------------------- /Sources/SK8/05-SK8Script/Runtime/coercion.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/05-SK8Script/Runtime/coercion.lisp -------------------------------------------------------------------------------- /Sources/SK8/05-SK8Script/Runtime/comparator-handlers.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/05-SK8Script/Runtime/comparator-handlers.lisp -------------------------------------------------------------------------------- /Sources/SK8/05-SK8Script/Runtime/library-functions.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/05-SK8Script/Runtime/library-functions.lisp -------------------------------------------------------------------------------- /Sources/SK8/05-SK8Script/Runtime/lists-&-sequences.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/05-SK8Script/Runtime/lists-&-sequences.lisp -------------------------------------------------------------------------------- /Sources/SK8/05-SK8Script/Runtime/math.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/05-SK8Script/Runtime/math.lisp -------------------------------------------------------------------------------- /Sources/SK8/05-SK8Script/Runtime/operators.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/05-SK8Script/Runtime/operators.lisp -------------------------------------------------------------------------------- /Sources/SK8/05-SK8Script/Runtime/predicates.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/05-SK8Script/Runtime/predicates.lisp -------------------------------------------------------------------------------- /Sources/SK8/05-SK8Script/SK8Script Tests.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/05-SK8Script/SK8Script Tests.lisp -------------------------------------------------------------------------------- /Sources/SK8/05-SK8Script/SK8Script to SKIL/Command Parser.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/05-SK8Script/SK8Script to SKIL/Command Parser.lisp -------------------------------------------------------------------------------- /Sources/SK8/05-SK8Script/SK8Script to SKIL/Compiler Interfaces.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/05-SK8Script/SK8Script to SKIL/Compiler Interfaces.lisp -------------------------------------------------------------------------------- /Sources/SK8/05-SK8Script/SK8Script to SKIL/Debugging.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/05-SK8Script/SK8Script to SKIL/Debugging.lisp -------------------------------------------------------------------------------- /Sources/SK8/05-SK8Script/SK8Script to SKIL/Expression Parser.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/05-SK8Script/SK8Script to SKIL/Expression Parser.lisp -------------------------------------------------------------------------------- /Sources/SK8/05-SK8Script/SK8Script to SKIL/Lex.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/05-SK8Script/SK8Script to SKIL/Lex.lisp -------------------------------------------------------------------------------- /Sources/SK8/05-SK8Script/SK8Script to SKIL/Load Compiler.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/05-SK8Script/SK8Script to SKIL/Load Compiler.lisp -------------------------------------------------------------------------------- /Sources/SK8/05-SK8Script/SK8Script to SKIL/Parser Basics.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/05-SK8Script/SK8Script to SKIL/Parser Basics.lisp -------------------------------------------------------------------------------- /Sources/SK8/05-SK8Script/SKIL/Collection Mappers.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/05-SK8Script/SKIL/Collection Mappers.lisp -------------------------------------------------------------------------------- /Sources/SK8/05-SK8Script/SKIL/Collection Mappers.sk8: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/05-SK8Script/SKIL/Collection Mappers.sk8 -------------------------------------------------------------------------------- /Sources/SK8/05-SK8Script/SKIL/JAVA SKIL Compiler.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/05-SK8Script/SKIL/JAVA SKIL Compiler.lisp -------------------------------------------------------------------------------- /Sources/SK8/05-SK8Script/SKIL/Java Indentor.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/05-SK8Script/SKIL/Java Indentor.lisp -------------------------------------------------------------------------------- /Sources/SK8/05-SK8Script/SKIL/Load SKIL Compiler.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/05-SK8Script/SKIL/Load SKIL Compiler.lisp -------------------------------------------------------------------------------- /Sources/SK8/05-SK8Script/SKIL/Load SKIL Runtime.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/05-SK8Script/SKIL/Load SKIL Runtime.lisp -------------------------------------------------------------------------------- /Sources/SK8/05-SK8Script/SKIL/SK8Script Primitives.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/05-SK8Script/SKIL/SK8Script Primitives.lisp -------------------------------------------------------------------------------- /Sources/SK8/05-SK8Script/SKIL/ScriptX SKIL Compiler.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/05-SK8Script/SKIL/ScriptX SKIL Compiler.lisp -------------------------------------------------------------------------------- /Sources/SK8/05-SK8Script/SKIL/Skil Compiler.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/05-SK8Script/SKIL/Skil Compiler.lisp -------------------------------------------------------------------------------- /Sources/SK8/05-SK8Script/SKIL/Type Inference.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/05-SK8Script/SKIL/Type Inference.lisp -------------------------------------------------------------------------------- /Sources/SK8/05-SK8Script/Store/Load Script File.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/05-SK8Script/Store/Load Script File.lisp -------------------------------------------------------------------------------- /Sources/SK8/05-SK8Script/Store/RAM Store.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/05-SK8Script/Store/RAM Store.lisp -------------------------------------------------------------------------------- /Sources/SK8/06-Globals/Function Library/ActorToPrinter.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/06-Globals/Function Library/ActorToPrinter.lisp -------------------------------------------------------------------------------- /Sources/SK8/06-Globals/Function Library/Completion Functions.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/06-Globals/Function Library/Completion Functions.lisp -------------------------------------------------------------------------------- /Sources/SK8/06-Globals/Function Library/EditTextSearchAndReplace.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/06-Globals/Function Library/EditTextSearchAndReplace.lisp -------------------------------------------------------------------------------- /Sources/SK8/06-Globals/Function Library/GetShapeFromUser.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/06-Globals/Function Library/GetShapeFromUser.lisp -------------------------------------------------------------------------------- /Sources/SK8/06-Globals/Function Library/Layout Functions.Lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/06-Globals/Function Library/Layout Functions.Lisp -------------------------------------------------------------------------------- /Sources/SK8/06-Globals/Function Library/RecordSound.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/06-Globals/Function Library/RecordSound.lisp -------------------------------------------------------------------------------- /Sources/SK8/06-Globals/Function Library/Selection Detection.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/06-Globals/Function Library/Selection Detection.lisp -------------------------------------------------------------------------------- /Sources/SK8/06-Globals/Function Library/SlowStripCopy.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/06-Globals/Function Library/SlowStripCopy.lisp -------------------------------------------------------------------------------- /Sources/SK8/06-Globals/Function Library/Strings And Chars.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/06-Globals/Function Library/Strings And Chars.lisp -------------------------------------------------------------------------------- /Sources/SK8/06-Globals/Function Library/User Dialogs.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/06-Globals/Function Library/User Dialogs.lisp -------------------------------------------------------------------------------- /Sources/SK8/06-Globals/Function Library/Zoom Rects.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/06-Globals/Function Library/Zoom Rects.lisp -------------------------------------------------------------------------------- /Sources/SK8/06-Globals/Load Globals.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/06-Globals/Load Globals.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/02-Object System Core/Apple Events.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/02-Object System Core/Apple Events.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/02-Object System Core/AppleScript Object.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/02-Object System Core/AppleScript Object.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/02-Object System Core/Built ins.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/02-Object System Core/Built ins.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/02-Object System Core/Builtin handlers.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/02-Object System Core/Builtin handlers.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/02-Object System Core/Devices.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/02-Object System Core/Devices.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/02-Object System Core/File.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/02-Object System Core/File.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/02-Object System Core/Ports.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/02-Object System Core/Ports.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/02-Object System Core/Processes.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/02-Object System Core/Processes.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/02-Object System Core/Project.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/02-Object System Core/Project.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/02-Object System Core/SK8-error-system.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/02-Object System Core/SK8-error-system.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/02-Object System Core/SpecialStorage.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/02-Object System Core/SpecialStorage.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/02-Object System Core/System.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/02-Object System Core/System.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/02-Object System Core/Virtual Types.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/02-Object System Core/Virtual Types.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/02-Object System Core/proxy.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/02-Object System Core/proxy.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/03-Graphics System Core/ActorMixins.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/03-Graphics System Core/ActorMixins.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/03-Graphics System Core/Clipboard.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/03-Graphics System Core/Clipboard.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/03-Graphics System Core/Event Modes.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/03-Graphics System Core/Event Modes.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/03-Graphics System Core/ImageRenderer.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/03-Graphics System Core/ImageRenderer.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/03-Graphics System Core/Media Types.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/03-Graphics System Core/Media Types.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/03-Graphics System Core/PenAndMask.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/03-Graphics System Core/PenAndMask.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/03-Graphics System Core/Renderer.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/03-Graphics System Core/Renderer.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/03-Graphics System Core/Standard Renderers.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/03-Graphics System Core/Standard Renderers.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/03-Graphics System Core/Standard Resources.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/03-Graphics System Core/Standard Resources.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/03-Graphics System Core/Translator.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/03-Graphics System Core/Translator.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/03-Graphics System Core/actor.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/03-Graphics System Core/actor.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/03-Graphics System Core/drag.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/03-Graphics System Core/drag.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/03-Graphics System Core/dragOnStage.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/03-Graphics System Core/dragOnStage.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/03-Graphics System Core/graphic.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/03-Graphics System Core/graphic.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/03-Graphics System Core/menus.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/03-Graphics System Core/menus.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/03-Graphics System Core/rectangle.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/03-Graphics System Core/rectangle.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Browser Components/Browser Components.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Browser Components/Browser Components.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Browser Components/PropertyValueData.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Browser Components/PropertyValueData.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Browser Components/SimplePropertyEditor.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Browser Components/SimplePropertyEditor.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Browser Components/UndoableSetLog.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Browser Components/UndoableSetLog.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Browsers/FileChooser.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Browsers/FileChooser.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Browsers/ResourceChooser.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Browsers/ResourceChooser.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Browsers/SK8AboutBox.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Browsers/SK8AboutBox.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Browsers/TreeBrowser.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Browsers/TreeBrowser.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Clocks/AbstractClock.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Clocks/AbstractClock.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Clocks/Clock.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Clocks/Clock.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Clocks/DateTime.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Clocks/DateTime.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Clocks/DateTimeIndirect.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Clocks/DateTimeIndirect.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Clocks/MinutesClock.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Clocks/MinutesClock.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Clocks/RealTimeClock.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Clocks/RealTimeClock.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Clocks/SecondsClock.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Clocks/SecondsClock.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Clocks/SlaveClock.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Clocks/SlaveClock.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Dialogs/DialogBox.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Dialogs/DialogBox.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Dialogs/File Dialogs.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Dialogs/File Dialogs.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Dialogs/GetAnswerFromUser.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Dialogs/GetAnswerFromUser.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Dialogs/GetContentFromUser.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Dialogs/GetContentFromUser.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Dialogs/GetFromUser.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Dialogs/GetFromUser.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Dialogs/GetListFromUser.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Dialogs/GetListFromUser.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Dialogs/GetNewNumberFromUser.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Dialogs/GetNewNumberFromUser.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Dialogs/GetNewObjectFromUser.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Dialogs/GetNewObjectFromUser.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Dialogs/GetNewRGBColorFromUser.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Dialogs/GetNewRGBColorFromUser.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Dialogs/GetNewStringFromUser.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Dialogs/GetNewStringFromUser.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Dialogs/GetNewSymbolFromUser.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Dialogs/GetNewSymbolFromUser.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Dialogs/GetRendererFromUser.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Dialogs/GetRendererFromUser.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Dialogs/MessageToUserDialogBox.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Dialogs/MessageToUserDialogBox.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Dialogs/ModalDialogMode.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Dialogs/ModalDialogMode.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Dialogs/ObjectSystemDialogs.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Dialogs/ObjectSystemDialogs.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Dialogs/SelectFromCollectionDialog.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Dialogs/SelectFromCollectionDialog.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Dialogs/YesOrNoDialogBox.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Dialogs/YesOrNoDialogBox.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/EditText/EditText.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/EditText/EditText.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/EditText/EditorScriptEditText.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/EditText/EditorScriptEditText.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/EditText/Indent SK8Script.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/EditText/Indent SK8Script.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/EditText/ScriptEditText.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/EditText/ScriptEditText.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/EditText/TextField.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/EditText/TextField.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Effects/BevelRenderer.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Effects/BevelRenderer.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Effects/ComplexGradient.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Effects/ComplexGradient.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Effects/ComplexRGBColor.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Effects/ComplexRGBColor.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Effects/DynamicRenderer.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Effects/DynamicRenderer.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Effects/Gradient.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Effects/Gradient.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Effects/Hatch.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Effects/Hatch.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Effects/LoneRangerRenderer.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Effects/LoneRangerRenderer.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Effects/MultiRenderer.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Effects/MultiRenderer.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Effects/SketchRenderer.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Effects/SketchRenderer.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Effects/SwatchRenderer.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Effects/SwatchRenderer.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Effects/TBSketchRenderer.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Effects/TBSketchRenderer.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Effects/VisualEffects.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Effects/VisualEffects.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Import:Export/BWPatternToPATTranslator.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Import:Export/BWPatternToPATTranslator.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Import:Export/ColorCursorRSRCTocrsrTrans.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Import:Export/ColorCursorRSRCTocrsrTrans.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Import:Export/ColorPatternToppatTrans.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Import:Export/ColorPatternToppatTrans.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Import:Export/CursorRSRCTocursTranslator.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Import:Export/CursorRSRCTocursTranslator.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Import:Export/IconRSRCTocicnTranslator.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Import:Export/IconRSRCTocicnTranslator.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Import:Export/ImageRendererToPATTrans.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Import:Export/ImageRendererToPATTrans.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Import:Export/ImageRendererToPICTTrans.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Import:Export/ImageRendererToPICTTrans.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Import:Export/ImageRendererTocicnTrans.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Import:Export/ImageRendererTocicnTrans.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Import:Export/ImageRendererToppatTrans.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Import:Export/ImageRendererToppatTrans.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Import:Export/IndirectTranslator.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Import:Export/IndirectTranslator.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Import:Export/PixelMapToPICTTranslator.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Import:Export/PixelMapToPICTTranslator.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Import:Export/QDPictureToPICTTranslator.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Import:Export/QDPictureToPICTTranslator.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Import:Export/SoundRSRCTosndTranslator.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Import:Export/SoundRSRCTosndTranslator.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Import:Export/SoundTosndTranslator.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Import:Export/SoundTosndTranslator.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Load Objects.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Load Objects.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/MacWidgets/0-MacWidget.sk8: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/MacWidgets/0-MacWidget.sk8 -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/MacWidgets/1-MacButtons.sk8: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/MacWidgets/1-MacButtons.sk8 -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/MacWidgets/2-MacScrollbars.sk8: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/MacWidgets/2-MacScrollbars.sk8 -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/MacWidgets/3-MacDialogs.sk8: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/MacWidgets/3-MacDialogs.sk8 -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/MacWidgets/4-MacPopups.sk8: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/MacWidgets/4-MacPopups.sk8 -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/MacWidgets/5-MacIndicators.sk8: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/MacWidgets/5-MacIndicators.sk8 -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/MacWidgets/6-MacArrows.sk8: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/MacWidgets/6-MacArrows.sk8 -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/MacWidgets/8-MacScrollingLists.sk8: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/MacWidgets/8-MacScrollingLists.sk8 -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/MacWidgets/load-MacWidgets.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/MacWidgets/load-MacWidgets.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Media/AnimatedCursor.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Media/AnimatedCursor.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Media/ColorCursor.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Media/ColorCursor.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Media/Sound.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Media/Sound.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Movies/MovieRectangle.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Movies/MovieRectangle.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Movies/ObjectID.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Movies/ObjectID.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Movies/QT-CallBack.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Movies/QT-CallBack.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Movies/QT-Media.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Movies/QT-Media.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Movies/QT-Movie.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Movies/QT-Movie.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Movies/QT-PictRenderer.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Movies/QT-PictRenderer.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Movies/QT-Renderer.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Movies/QT-Renderer.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Movies/QT-TimeBase.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Movies/QT-TimeBase.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Movies/QT-Track.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Movies/QT-Track.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Movies/QT-TrackCollection.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Movies/QT-TrackCollection.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Movies/QT-Translators.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Movies/QT-Translators.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Movies/QuickTime.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Movies/QuickTime.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Movies/main.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Movies/main.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Palettes/DrawPalette.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Palettes/DrawPalette.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Pickers/ColorPicker.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Pickers/ColorPicker.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Pickers/HierarchicalPicker.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Pickers/HierarchicalPicker.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Pickers/IconTextPicker.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Pickers/IconTextPicker.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Pickers/LinearTextPicker.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Pickers/LinearTextPicker.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Pickers/MultiLinePicker.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Pickers/MultiLinePicker.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Pickers/Picker.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Pickers/Picker.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Pickers/SelectByRowTPAddOn.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Pickers/SelectByRowTPAddOn.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Pickers/StyledPicker.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Pickers/StyledPicker.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Pickers/TablePicker.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Pickers/TablePicker.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Pickers/TablePickerEditorAddOn.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Pickers/TablePickerEditorAddOn.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Pickers/TextList.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Pickers/TextList.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Shapes/Arrow.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Shapes/Arrow.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Shapes/Halo.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Shapes/Halo.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Shapes/LineSegment.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Shapes/LineSegment.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Shapes/MaskedActor.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Shapes/MaskedActor.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Shapes/Oval.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Shapes/Oval.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Shapes/Polygon.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Shapes/Polygon.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Shapes/RoundRect.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Shapes/RoundRect.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Shapes/SelectionDots.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Shapes/SelectionDots.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Widgets/CheckBox.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Widgets/CheckBox.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Widgets/Connector.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Widgets/Connector.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Widgets/DirectionalConnector.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Widgets/DirectionalConnector.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Widgets/Label.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Widgets/Label.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Widgets/MultiObjectStateCheckBox.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Widgets/MultiObjectStateCheckBox.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Widgets/ObjectDataRect.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Widgets/ObjectDataRect.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Widgets/PaintField.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Widgets/PaintField.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Widgets/PickerMenu.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Widgets/PickerMenu.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Widgets/RadioButton.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Widgets/RadioButton.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Widgets/Scroller.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Widgets/Scroller.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Widgets/Slider.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Widgets/Slider.lisp -------------------------------------------------------------------------------- /Sources/SK8/07-Objects/Widgets/Splitter.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/07-Objects/Widgets/Splitter.lisp -------------------------------------------------------------------------------- /Sources/SK8/08-UI/Dialogs/DialogBox.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/08-UI/Dialogs/DialogBox.lisp -------------------------------------------------------------------------------- /Sources/SK8/08-UI/Dialogs/ErrorInspectorDialog.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/08-UI/Dialogs/ErrorInspectorDialog.lisp -------------------------------------------------------------------------------- /Sources/SK8/08-UI/Dialogs/Layout Dialog.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/08-UI/Dialogs/Layout Dialog.lisp -------------------------------------------------------------------------------- /Sources/SK8/08-UI/Screen Objects/Draw Palette.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/08-UI/Screen Objects/Draw Palette.lisp -------------------------------------------------------------------------------- /Sources/SK8/08-UI/Screen Objects/Edit Modes.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/08-UI/Screen Objects/Edit Modes.lisp -------------------------------------------------------------------------------- /Sources/SK8/08-UI/Screen Objects/Finder.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/08-UI/Screen Objects/Finder.lisp -------------------------------------------------------------------------------- /Sources/SK8/08-UI/Screen Objects/Handler Tracer.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/08-UI/Screen Objects/Handler Tracer.lisp -------------------------------------------------------------------------------- /Sources/SK8/08-UI/Screen Objects/HandlerCallMessage.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/08-UI/Screen Objects/HandlerCallMessage.lisp -------------------------------------------------------------------------------- /Sources/SK8/08-UI/Screen Objects/Help Window.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/08-UI/Screen Objects/Help Window.lisp -------------------------------------------------------------------------------- /Sources/SK8/08-UI/Screen Objects/Inheritance Viewer.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/08-UI/Screen Objects/Inheritance Viewer.lisp -------------------------------------------------------------------------------- /Sources/SK8/08-UI/Screen Objects/Menu Builder.Lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/08-UI/Screen Objects/Menu Builder.Lisp -------------------------------------------------------------------------------- /Sources/SK8/08-UI/Screen Objects/MessageBox.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/08-UI/Screen Objects/MessageBox.lisp -------------------------------------------------------------------------------- /Sources/SK8/08-UI/Screen Objects/Object Editor.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/08-UI/Screen Objects/Object Editor.lisp -------------------------------------------------------------------------------- /Sources/SK8/08-UI/Screen Objects/Preferences Dialogs.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/08-UI/Screen Objects/Preferences Dialogs.lisp -------------------------------------------------------------------------------- /Sources/SK8/08-UI/Screen Objects/Project Editor.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/08-UI/Screen Objects/Project Editor.lisp -------------------------------------------------------------------------------- /Sources/SK8/08-UI/Screen Objects/Property Editor.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/08-UI/Screen Objects/Property Editor.lisp -------------------------------------------------------------------------------- /Sources/SK8/08-UI/Screen Objects/Renderer Editors.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/08-UI/Screen Objects/Renderer Editors.lisp -------------------------------------------------------------------------------- /Sources/SK8/08-UI/Screen Objects/Save As Editor.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/08-UI/Screen Objects/Save As Editor.lisp -------------------------------------------------------------------------------- /Sources/SK8/08-UI/Screen Objects/ScriptWarningsWindow.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/08-UI/Screen Objects/ScriptWarningsWindow.lisp -------------------------------------------------------------------------------- /Sources/SK8/08-UI/Screen Objects/Selection Keys.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/08-UI/Screen Objects/Selection Keys.lisp -------------------------------------------------------------------------------- /Sources/SK8/08-UI/Screen Objects/Selection Mode.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/08-UI/Screen Objects/Selection Mode.lisp -------------------------------------------------------------------------------- /Sources/SK8/08-UI/Screen Objects/Selection.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/08-UI/Screen Objects/Selection.lisp -------------------------------------------------------------------------------- /Sources/SK8/08-UI/Screen Objects/Stage Overviewer.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/08-UI/Screen Objects/Stage Overviewer.lisp -------------------------------------------------------------------------------- /Sources/SK8/08-UI/Screen Objects/Swatches and Updates.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/08-UI/Screen Objects/Swatches and Updates.lisp -------------------------------------------------------------------------------- /Sources/SK8/08-UI/Screen Objects/SystemBrowser.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/08-UI/Screen Objects/SystemBrowser.lisp -------------------------------------------------------------------------------- /Sources/SK8/08-UI/Screen Objects/UI Menubar.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/08-UI/Screen Objects/UI Menubar.lisp -------------------------------------------------------------------------------- /Sources/SK8/08-UI/Screen Objects/UI Preferences.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/08-UI/Screen Objects/UI Preferences.lisp -------------------------------------------------------------------------------- /Sources/SK8/08-UI/Screen Objects/UI Renderers.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/08-UI/Screen Objects/UI Renderers.lisp -------------------------------------------------------------------------------- /Sources/SK8/08-UI/Screen Objects/UI Script Editor.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/08-UI/Screen Objects/UI Script Editor.lisp -------------------------------------------------------------------------------- /Sources/SK8/08-UI/Screen Objects/UIWindowWidgets.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/08-UI/Screen Objects/UIWindowWidgets.lisp -------------------------------------------------------------------------------- /Sources/SK8/08-UI/Screen Objects/UIwindow.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/08-UI/Screen Objects/UIwindow.lisp -------------------------------------------------------------------------------- /Sources/SK8/08-UI/Screen Objects/mediaBrowser.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/08-UI/Screen Objects/mediaBrowser.lisp -------------------------------------------------------------------------------- /Sources/SK8/08-UI/UI-project.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/08-UI/UI-project.lisp -------------------------------------------------------------------------------- /Sources/SK8/08-UI/Utilities/Handler Tracing.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/08-UI/Utilities/Handler Tracing.lisp -------------------------------------------------------------------------------- /Sources/SK8/08-UI/Utilities/Layout Functions.Lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/08-UI/Utilities/Layout Functions.Lisp -------------------------------------------------------------------------------- /Sources/SK8/08-UI/Utilities/Menu Components.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/08-UI/Utilities/Menu Components.lisp -------------------------------------------------------------------------------- /Sources/SK8/08-UI/Utilities/PortConnectors.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/08-UI/Utilities/PortConnectors.lisp -------------------------------------------------------------------------------- /Sources/SK8/08-UI/Utilities/Simple Property Editors.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/08-UI/Utilities/Simple Property Editors.lisp -------------------------------------------------------------------------------- /Sources/SK8/08-UI/Utilities/Swatch Renderer.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/08-UI/Utilities/Swatch Renderer.lisp -------------------------------------------------------------------------------- /Sources/SK8/08-UI/Utilities/popUpPalette.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/08-UI/Utilities/popUpPalette.lisp -------------------------------------------------------------------------------- /Sources/SK8/08-UI/make.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/08-UI/make.lisp -------------------------------------------------------------------------------- /Sources/SK8/09-Development Utilities/2-d-utils.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/09-Development Utilities/2-d-utils.lisp -------------------------------------------------------------------------------- /Sources/SK8/09-Development Utilities/Documentation/Text->Wood-DB/Build Online Docs.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/09-Development Utilities/Documentation/Text->Wood-DB/Build Online Docs.lisp -------------------------------------------------------------------------------- /Sources/SK8/09-Development Utilities/Documentation/Text->Wood-DB/Doc Macros.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/09-Development Utilities/Documentation/Text->Wood-DB/Doc Macros.lisp -------------------------------------------------------------------------------- /Sources/SK8/09-Development Utilities/Documentation/Text->Wood-DB/Doc Parser.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/09-Development Utilities/Documentation/Text->Wood-DB/Doc Parser.lisp -------------------------------------------------------------------------------- /Sources/SK8/09-Development Utilities/Documentation/Text->Wood-DB/Documentation Status.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/09-Development Utilities/Documentation/Text->Wood-DB/Documentation Status.lisp -------------------------------------------------------------------------------- /Sources/SK8/09-Development Utilities/Documentation/Text->Wood-DB/New Doc Parser.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/09-Development Utilities/Documentation/Text->Wood-DB/New Doc Parser.lisp -------------------------------------------------------------------------------- /Sources/SK8/09-Development Utilities/Documentation/Text->Wood-DB/Object Definitions.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/09-Development Utilities/Documentation/Text->Wood-DB/Object Definitions.lisp -------------------------------------------------------------------------------- /Sources/SK8/09-Development Utilities/Documentation/Text->Wood-DB/Parsed Docs->RTF.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/09-Development Utilities/Documentation/Text->Wood-DB/Parsed Docs->RTF.lisp -------------------------------------------------------------------------------- /Sources/SK8/09-Development Utilities/Documentation/Wood-DB->FrameMaker/03-trailer.text: -------------------------------------------------------------------------------- 1 | # End of MIFFile 2 | -------------------------------------------------------------------------------- /Sources/SK8/09-Development Utilities/Documentation/Wood-DB->FrameMaker/wood->framemaker.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/09-Development Utilities/Documentation/Wood-DB->FrameMaker/wood->framemaker.lisp -------------------------------------------------------------------------------- /Sources/SK8/09-Development Utilities/Documentation/Wood-DB/DBase-definitions.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/09-Development Utilities/Documentation/Wood-DB/DBase-definitions.lisp -------------------------------------------------------------------------------- /Sources/SK8/09-Development Utilities/Documentation/Wood-DB/on-line Help.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/09-Development Utilities/Documentation/Wood-DB/on-line Help.lisp -------------------------------------------------------------------------------- /Sources/SK8/09-Development Utilities/Documentation/fred-doc-utilities.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/09-Development Utilities/Documentation/fred-doc-utilities.lisp -------------------------------------------------------------------------------- /Sources/SK8/09-Development Utilities/Documentation/load-documentation.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/09-Development Utilities/Documentation/load-documentation.lisp -------------------------------------------------------------------------------- /Sources/SK8/09-Development Utilities/General/Documentation Utilities.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/09-Development Utilities/General/Documentation Utilities.lisp -------------------------------------------------------------------------------- /Sources/SK8/09-Development Utilities/General/fred-sk8script-commands.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/09-Development Utilities/General/fred-sk8script-commands.lisp -------------------------------------------------------------------------------- /Sources/SK8/09-Development Utilities/General/general-utils.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/09-Development Utilities/General/general-utils.lisp -------------------------------------------------------------------------------- /Sources/SK8/09-Development Utilities/General/list-callers.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/09-Development Utilities/General/list-callers.lisp -------------------------------------------------------------------------------- /Sources/SK8/09-Development Utilities/General/space-timer.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/09-Development Utilities/General/space-timer.lisp -------------------------------------------------------------------------------- /Sources/SK8/09-Development Utilities/LispObject.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/09-Development Utilities/LispObject.lisp -------------------------------------------------------------------------------- /Sources/SK8/09-Development Utilities/Thermometer.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/09-Development Utilities/Thermometer.lisp -------------------------------------------------------------------------------- /Sources/SK8/09-Development Utilities/Toolbox Lookup.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/09-Development Utilities/Toolbox Lookup.lisp -------------------------------------------------------------------------------- /Sources/SK8/09-Development Utilities/TreeShake.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/09-Development Utilities/TreeShake.lisp -------------------------------------------------------------------------------- /Sources/SK8/09-Development Utilities/development-package-utils.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/09-Development Utilities/development-package-utils.lisp -------------------------------------------------------------------------------- /Sources/SK8/09-Development Utilities/lisp-dev-utils.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/09-Development Utilities/lisp-dev-utils.lisp -------------------------------------------------------------------------------- /Sources/SK8/09-Development Utilities/load-development-utils.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/09-Development Utilities/load-development-utils.lisp -------------------------------------------------------------------------------- /Sources/SK8/09-Development Utilities/make-transcript.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/09-Development Utilities/make-transcript.lisp -------------------------------------------------------------------------------- /Sources/SK8/09-Development Utilities/map-dynamic-space.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/09-Development Utilities/map-dynamic-space.lisp -------------------------------------------------------------------------------- /Sources/SK8/10-Resources/ProjectBuilder.rsrc: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/10-Resources/ProjectBuilder.rsrc -------------------------------------------------------------------------------- /Sources/SK8/10-Resources/SK8.rsrc: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/10-Resources/SK8.rsrc -------------------------------------------------------------------------------- /Sources/SK8/10-Resources/UserReports.rsrc: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/10-Resources/UserReports.rsrc -------------------------------------------------------------------------------- /Sources/SK8/Preload/SK8-preload.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/Preload/SK8-preload.lisp -------------------------------------------------------------------------------- /Sources/SK8/Preload/SK8CaseSavedSyms.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/Preload/SK8CaseSavedSyms.lisp -------------------------------------------------------------------------------- /Sources/SK8/Preload/SK8OverriddenSyms.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/Preload/SK8OverriddenSyms.lisp -------------------------------------------------------------------------------- /Sources/SK8/Preload/SK8PrivateSyms.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/Preload/SK8PrivateSyms.lisp -------------------------------------------------------------------------------- /Sources/SK8/Preload/SK8PublicSyms.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/Preload/SK8PublicSyms.lisp -------------------------------------------------------------------------------- /Sources/SK8/Preload/SK8Script-symbols-tools.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/Preload/SK8Script-symbols-tools.lisp -------------------------------------------------------------------------------- /Sources/SK8/Preload/SK8SharedSyms.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/Preload/SK8SharedSyms.lisp -------------------------------------------------------------------------------- /Sources/SK8/Preload/SK8SpecialSyms.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/Preload/SK8SpecialSyms.lisp -------------------------------------------------------------------------------- /Sources/SK8/Preload/UIPrivateSyms.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/Preload/UIPrivateSyms.lisp -------------------------------------------------------------------------------- /Sources/SK8/Preload/UIPublicSyms.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/Preload/UIPublicSyms.lisp -------------------------------------------------------------------------------- /Sources/SK8/Preload/UISharedSyms.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/Preload/UISharedSyms.lisp -------------------------------------------------------------------------------- /Sources/SK8/Preload/UISpecialSyms.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/Preload/UISpecialSyms.lisp -------------------------------------------------------------------------------- /Sources/SK8/Preload/exporting.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/Preload/exporting.lisp -------------------------------------------------------------------------------- /Sources/SK8/Preload/file-scanner-read-stubs.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/Preload/file-scanner-read-stubs.lisp -------------------------------------------------------------------------------- /Sources/SK8/Preload/file-scanner.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/Preload/file-scanner.lisp -------------------------------------------------------------------------------- /Sources/SK8/Preload/mf-exports.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/Preload/mf-exports.lisp -------------------------------------------------------------------------------- /Sources/SK8/Preload/sk8OptionSyms.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/Preload/sk8OptionSyms.lisp -------------------------------------------------------------------------------- /Sources/SK8/Preload/sk8script-preloads.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/Preload/sk8script-preloads.lisp -------------------------------------------------------------------------------- /Sources/SK8/Recompile Required Timestamp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/Recompile Required Timestamp -------------------------------------------------------------------------------- /Sources/SK8/Release Notes: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SK8/Release Notes -------------------------------------------------------------------------------- /Sources/SourceServer Source/Projector/2923321258.tem: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SourceServer Source/Projector/2923321258.tem -------------------------------------------------------------------------------- /Sources/SourceServer Source/Projector/find-folder.lisp: -------------------------------------------------------------------------------- 1 | (in-package :SourceServer) 2 | 3 | (export 'find-folder) 4 | 5 | (eval-when (:compile-toplevel :execute) 6 | (require 'sysequ)) 7 | 8 | (defun path-from-hard-id (dir-id vrefnum &aux (dirlist nil)) 9 | (with-returned-pstrs ((vname "")) 10 | (rlet ((qb :CInfoPBRec 11 | :ioCompletion (ccl:%null-ptr) 12 | :ioNamePtr vname 13 | :ioVRefNum vrefnum)) 14 | (loop 15 | (rset qb :CInfoPBRec.ioFDirIndex -1) 16 | (rset qb :CinfoPBRec.ioDirID dir-id) 17 | (if (eql #$noErr (#_PBGetCatInfo qb)) 18 | (push (%get-string (pref qb :CInfoPBRec.ioNamePtr)) dirlist) 19 | (return nil)) 20 | (when (= dir-id 2) 21 | (return (make-pathname :directory (cons :absolute dirlist)))) 22 | (setf dir-id (pref qb :CinfoPBRec.ioDrParID)))))) 23 | 24 | (defun find-folder (folder-signature &optional (createp t)) 25 | ;;folder types are documented in Inside Mac Volume VI, The Finder Interface 26 | ;; This code modified from MacTCP.lisp in library folder 27 | (when (ccl::gestalt #$gestaltFindFolderAttr #$gestaltFindFolderPresent) 28 | (rlet ((vrefnumP :signed-integer) 29 | (diridP :signed-long)) 30 | (let ((results (#_FindFolder 31 | #$kOnSystemDisk 32 | folder-signature 33 | createp ;; booleans in trap calls are automatically converted from t/nil to $true/$false 34 | vRefNumP 35 | dirIDP))) 36 | (when (eql #$noErr 37 | results) 38 | (path-from-hard-id (%get-signed-long dirIDP) (%get-signed-word vrefnumP))))))) 39 | 40 | (defun find-application-for-creator-on-vol (application-signature volnum) 41 | (when (ccl::gestalt #$gestaltFindFolderAttr #$gestaltFindFolderPresent) 42 | (with-returned-pstrs ((vname "uninitialized")) 43 | (rlet ((pb :DTPBRec 44 | :ioNamePtr vname 45 | :ioDTRefNum 0 46 | :ioFileCreator application-signature 47 | :ioIndex 0 48 | :ioCompletion (ccl:%null-ptr) 49 | :ioVRefNum volnum)) 50 | (when (and (eql #$noErr 51 | (#_PBDTGetPath pb)) 52 | (eql #$noErr (#_PBDTGetAPPL pb))) 53 | (merge-pathnames 54 | (path-from-hard-id (pref pb :DTPBRec.ioAPPLParID) 55 | (pref pb :DTPBRec.ioVRefNum)) 56 | (%get-string (pref pb :DTPBRec.ioNamePtr)))))))) 57 | 58 | (defun find-application-for-creator (application-signature) 59 | ;; find an application that matches a particular creator signature (which is an :os-type) 60 | ;; look for newest one, first on default volume, then rest of mounted volumes 61 | ;; return first one that's found(or nil, if none found or not HFS) 62 | (rlet ((pb :paramblockrec :ioCompletion (ccl:%null-ptr) :ioVolIndex -1 63 | :ioVRefNum 0 :ioNamePtr (ccl:%null-ptr))) 64 | (when (eql #$noErr (#_PBGetVInfo pb)) ;; start by getting default volume 65 | (do* ((ndx 1 (1+ ndx)) 66 | (deflt (pref pb :ParamBlockRec.ioVRefNum)) 67 | (vol nil (pref pb :ParamBlockRec.ioVRefNum)) 68 | (path (find-application-for-creator-on-vol application-signature deflt) 69 | (unless (= vol deflt) 70 | (find-application-for-creator-on-vol application-signature vol)))) 71 | ((or path 72 | (not (progn (rset pb :ParamBlockRec.ioVolIndex ndx) 73 | (rset pb :ParamBlockRec.ioVRefNum 0) 74 | (eql #$noErr (#_PBGetVInfo pb))))) 75 | path))))) 76 | 77 | 78 | #| 79 | Change History (most recent last): 80 | 3 4/4/93 Sidney Use SourceServer package instead of CCL to 81 | minimize possibility of name collision by users. 82 | 83 | Switch to MCL 2.0 trap interface calls instead of 84 | now undocumented 1.3 calls 85 | 2 7/ 1/96 sidney modernize to MCL3.9 86 | 3 10/21/96 sidney fix error in use of _findfolder that was copied from MacTCP example in library 87 | |# ;(do not edit past this line!!) 88 | -------------------------------------------------------------------------------- /Sources/SourceServer Source/Projector/merge.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SourceServer Source/Projector/merge.lisp -------------------------------------------------------------------------------- /Sources/SourceServer Source/Projector/mpw-command.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SourceServer Source/Projector/mpw-command.lisp -------------------------------------------------------------------------------- /Sources/SourceServer Source/Projector/mpw-project.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SourceServer Source/Projector/mpw-project.lisp -------------------------------------------------------------------------------- /Sources/SourceServer Source/Projector/projector-menus.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SourceServer Source/Projector/projector-menus.lisp -------------------------------------------------------------------------------- /Sources/SourceServer Source/Projector/projector-ui.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SourceServer Source/Projector/projector-ui.lisp -------------------------------------------------------------------------------- /Sources/SourceServer Source/Projector/projector-utilities.lisp: -------------------------------------------------------------------------------- 1 | ;;;; Projector-related utility functions. 2 | ;;;; These used to live in projector.lisp 3 | ;;;; 4 | 5 | (in-package :SourceServer) 6 | 7 | ;;; 8 | ;;; merging 9 | ;;; 10 | 11 | (defvar *user-initials*) 12 | (defvar *user* nil) 13 | (defvar *last-root-dir* "") 14 | (defvar *last-merge-dir* "") 15 | 16 | (defun directory-path-with-suffix (pathname suffix) 17 | (let ((directory (pathname-directory (mac-namestring pathname)))) 18 | (make-pathname :directory 19 | (append (butlast directory) 20 | (list 21 | (concatenate 'string (first (last directory)) suffix)))))) 22 | 23 | (defun merge-dir-list (root &optional (partial-name " Merge")) 24 | (mapcar #'pathname (sort (mapcar #'mac-namestring 25 | (directory (directory-path-with-suffix 26 | root 27 | (concatenate 'string partial-name "*")) 28 | :directories t)) 29 | #'string>))) 30 | 31 | (defun latest-merge-dir (root &optional (partial-name " Merge")) 32 | (first (merge-dir-list root partial-name))) 33 | 34 | (defun new-merge-dir (root &optional (partial-name " Merge")) 35 | (let* ((latest (latest-merge-dir root partial-name)) 36 | (new-dir 37 | (directory-path-with-suffix 38 | root 39 | (concatenate 'string partial-name 40 | (princ-to-string 41 | (if latest 42 | (let ((leaf (first (last (pathname-directory latest))))) 43 | (1+ (read-from-string leaf nil -1 44 | :start (1+ (position-if-not #'digit-char-p leaf :from-end t))))) 45 | 0)))))) 46 | ; (create-directory new-dir) 47 | new-dir)) 48 | 49 | (defun find-corresponding-path (path source target) 50 | (let* ((path-dir (pathname-directory (mac-namestring path))) 51 | (source-dir (pathname-directory (mac-namestring source))) 52 | (target-dir (pathname-directory (mac-namestring target))) 53 | (path-length (length path-dir)) 54 | (source-length (length source-dir))) 55 | (assert (and (>= path-length source-length) 56 | ;; equalp because the directory names may have different case 57 | (equalp (subseq path-dir 0 source-length) (subseq source-dir 0 source-length))) 58 | nil "~S is not in ~S" path source) 59 | (make-pathname :directory (append target-dir (subseq path-dir source-length))))) 60 | 61 | (defun move-files-to-merge-directory (paths &optional (partial-name " Merge")) 62 | (let ((project->dir-hash (make-hash-table :test #'eq)) 63 | merge-dirs) 64 | (labels ((project->dir (project) 65 | (or (gethash project project->dir-hash) 66 | (let* ((local-dir (project-local-dir project)) 67 | (parent (project-parent project)) 68 | (merge-dir 69 | (if parent 70 | (find-corresponding-path local-dir 71 | (project-local-dir parent) 72 | (project->dir parent)) 73 | (new-merge-dir local-dir partial-name)))) 74 | (when parent 75 | (push (cons local-dir merge-dir) merge-dirs) 76 | (setq *last-root-dir* local-dir 77 | *last-merge-dir* merge-dir)) 78 | (unless (probe-file merge-dir) 79 | (create-file merge-dir)) 80 | (setf (gethash project project->dir-hash) merge-dir))))) 81 | (dolist (path paths) 82 | (let ((new-path (merge-pathnames (project->dir (pathname-project path)) 83 | path))) 84 | (format t "Moving ~s to ~s~&" path new-path) 85 | (rename-file path new-path) 86 | (remove-filename-from-projector-menu path)))) 87 | merge-dirs)) 88 | 89 | ;; Ought to let you choose from a list of merge directories. Unfortunately, 90 | ;; we don't know which merge directory goes with which original. We could write 91 | ;; a file into each merge directory that had the name of the original. Also, we 92 | ;; could assume the toplevel project, in the case where there's only one. 93 | (defun choose-and-merge-directories () 94 | (declare (special *last-root-dir* *last-merge-dir*)) 95 | (make-instance 'merge-directory-dialog 96 | :main-dir *last-root-dir* 97 | :merge-dir *last-merge-dir*)) 98 | 99 | ;;; 100 | ;;; Comment logging 101 | ;;; 102 | 103 | (let* ((header-key "Change History (most recent last):") 104 | (pre-header (format nil "~%#|~%~a" #\tab)) 105 | (post-header (format nil "|# ;(do not edit past this line!!)")) 106 | (header (concatenate 'string pre-header header-key (string #\Newline) post-header (string #\Newline))) 107 | ;; For some reason, searching for the last-comment-indicator with a tab at the end 108 | ;; fails in some weird cases, leaving sourceserver free to corrupt your file. I removed 109 | ;; the tab from the search string. 110 | (last-comment-indicator (format nil "~%~~"))) 111 | 112 | ;;; This function returns the position of the end of the comment block. 113 | ;;; If not found, it returns an error instead of corrupting your file. Now isn't that nice? 114 | 115 | (defun find-comment-end-pos (window buf) 116 | (let ((comment-end-pos (buffer-string-pos buf post-header :end t :from-end t))) 117 | (unless comment-end-pos 118 | (error (format nil "Could not find end of sourceserver comment block in ~a. ~ 119 | And, (what do you know?), instead of corrupting your file, I decided to ~ 120 | let you correct the problem. " window))) 121 | comment-end-pos)) 122 | 123 | ;;; Trying to get our text to format in a nicer way. Changed the # of tabs to 7 124 | ;;; and added padding to that the user names and the versions and dates are all 125 | ;;; the same. (Hernan). 126 | 127 | (defun add-change (window version comment check-in-p) 128 | (unless (boundp 'SourceServer::*user-initials*) (error "~s is not set" 'SourceServer::*user-initials*)) 129 | (let* ((buf (fred-buffer window)) 130 | (buf-size (buffer-size buf)) 131 | (header-pos (buffer-string-pos buf header-key :end t :from-end t)) ; search for Change log from the end of the file 132 | (scroll-pos (buffer-position (fred-display-start-mark window)))) 133 | (multiple-value-bind (selection-start selection-end) (selection-range window) ; remember selection 134 | (unless header-pos 135 | (setq header-pos buf-size) 136 | (buffer-insert buf header buf-size)) 137 | (let* ((comment-end-pos (find-comment-end-pos window buf)) 138 | (comment-start-pos (or (and check-in-p 139 | (buffer-string-pos buf last-comment-indicator 140 | :start header-pos 141 | :end comment-end-pos 142 | :from-end t)) 143 | comment-end-pos))) 144 | (buffer-delete buf comment-start-pos comment-end-pos) 145 | (set-mark buf comment-start-pos) 146 | (multiple-value-bind (dummy dummy dummy day month year) (get-decoded-time) 147 | (declare (ignore dummy)) 148 | (if check-in-p 149 | (format window "~&~a" #\tab) 150 | (format window "~&~2~~a" #\tab)) 151 | ;; Inser the comment header. Make all initials padded to 8 chars. 152 | (format window "~3a~a~2d/~2d/~2d~a~8a~a" version 153 | #\tab month day (mod year 100) #\tab SourceServer::*user-initials* #\tab) 154 | ;; Now compute the number of tabs for the comment and add the comment. 155 | (let ((tabNumber 6)) 156 | (format window "~a~%" (comment-format comment tabNumber))) 157 | )) 158 | (set-selection-range window selection-start selection-end) 159 | (set-mark (fred-display-start-mark window) scroll-pos) 160 | ))) 161 | 162 | #| 163 | 164 | (defun add-change (window version comment check-in-p) 165 | (unless (boundp 'SourceServer::*user-initials*) (error "~s is not set" 'SourceServer::*user-initials*)) 166 | (let* ((buf (fred-buffer window)) 167 | (buf-size (buffer-size buf)) 168 | (header-pos (buffer-string-pos buf header-key :end t :from-end t)) ; search for Change log from the end of the file 169 | (scroll-pos (buffer-position (fred-display-start-mark window)))) 170 | (multiple-value-bind (selection-start selection-end) (selection-range window) ; remember selection 171 | (unless header-pos 172 | (setq header-pos buf-size) 173 | (buffer-insert buf header buf-size)) 174 | (let* ((comment-end-pos (find-comment-end-pos window buf)) 175 | (comment-start-pos (or (and check-in-p 176 | (buffer-string-pos buf last-comment-indicator 177 | :start header-pos 178 | :end comment-end-pos 179 | :from-end t)) 180 | comment-end-pos))) 181 | (buffer-delete buf comment-start-pos comment-end-pos) 182 | (set-mark buf comment-start-pos) 183 | (multiple-value-bind (dummy dummy dummy day month year) (get-decoded-time) 184 | (declare (ignore dummy)) 185 | (if check-in-p 186 | (format window "~&~a" #\tab) 187 | (format window "~&~2~~a" #\tab)) 188 | (format window "~a~a~d/~d/~d~a~a~a~a~%" version 189 | #\tab month day (mod year 100) #\tab SourceServer::*user-initials* #\tab (comment-format comment)))) 190 | (set-selection-range window selection-start selection-end) 191 | (set-mark (fred-display-start-mark window) scroll-pos)))) 192 | 193 | |# 194 | 195 | (defun find-comment-from-file (path) 196 | (let* ((w (make-instance *default-editor-class* :filename path :window-show nil)) 197 | (comment (find-comment-from-window w))) 198 | (window-close w) 199 | comment)) 200 | 201 | (defun find-comment-from-window (window) 202 | (let* ((buf (fred-buffer window)) 203 | (header-pos (buffer-string-pos buf header-key :end t :from-end t))) ; search for Change log from the end of the file 204 | (if header-pos 205 | (let* ((comment-end-pos (find-comment-end-pos window buf)) 206 | (comment-start-pos (buffer-string-pos buf last-comment-indicator 207 | :start header-pos 208 | :end comment-end-pos 209 | :from-end t))) 210 | (if comment-start-pos 211 | (unformat-comment (buffer-substring buf (1+ comment-start-pos) comment-end-pos)) 212 | "")) 213 | ""))) 214 | ) 215 | 216 | (defun unformat-comment (comment) 217 | (string-trim '(#\Tab #\Space #\Return) 218 | (let* ((first-return (position #\return comment)) 219 | (start-tab (position #\tab comment :end first-return :from-end t))) 220 | (delete #\tab (subseq comment (1+ start-tab)))))) 221 | 222 | 223 | ;;; Lets you tell it how many tabs are required so that the comment is formatted nicely. 224 | ;;; Will also remove double quotes from beginning and end (if they are there) 225 | ;;; Could add something to delete trailing 226 | 227 | (defun comment-format (comment &optional (numtabs 4)) 228 | (let* ((c1 (if (and (> (length comment) 0) 229 | (eql (elt comment 0) #\")) 230 | (subseq comment 1) 231 | comment)) 232 | (len-c1 (1- (length c1))) 233 | (c2 (if (and (> len-c1 0) 234 | (eql (elt c1 len-c1 ) #\")) 235 | (subseq c1 0 len-c1) 236 | c1))) 237 | (string-right-trim wsp&cr 238 | (replace-char-with-string c2 239 | #\newline 240 | (let ((result (string #\Newline))) 241 | (dotimes (i numTabs result) 242 | (setf result (concatenate 'string result (string #\tab))))) 243 | )))) 244 | 245 | 246 | (defun string-push-extend (str1 str2) 247 | (unless (array-has-fill-pointer-p str1) 248 | (error "First arg must have a fill pointer.")) 249 | (let ((len1 (length str1)) 250 | (size1 (array-dimension str1 0)) 251 | (len2 (length str2))) 252 | (when (> (+ len1 len2) size1) 253 | (adjust-array str1 (+ len1 len2))) 254 | (setf (fill-pointer str1) (+ len1 len2)) 255 | (replace str1 str2 :start1 len1) 256 | str1)) 257 | 258 | ;;; Change the char FROM to the string TO in the string STR 259 | (defun replace-char-with-string (str from to) 260 | (let ((newstr (make-array 20 :element-type 'character :adjustable t :fill-pointer 0))) 261 | (map nil #'(lambda (xchar) 262 | (if (eql xchar from) 263 | (string-push-extend newstr to) 264 | (vector-push-extend xchar newstr))) 265 | str) 266 | newstr)) 267 | 268 | (defun open-pathname-comment-log-window-p (path &optional no-comment) 269 | ;; second value = t if the window already existed 270 | ;; also makes sure only one window is open onto this file 271 | (let ((window (pathname-window path))) 272 | (if window 273 | (progn 274 | (do-pathname-windows (other path) 275 | (unless (eq other window) 276 | (window-close other))) 277 | (values window t)) 278 | (if no-comment 279 | (when (eq (mac-file-type path) :text) 280 | (values (make-instance *default-editor-class* :filename path :window-show nil) 281 | nil)) 282 | (and (eq (mac-file-type path) :TEXT) 283 | (y-or-n-dialog (format nil "Add comment to file: ~S?" (namestring path))) 284 | (values (make-instance *default-editor-class* :filename path :window-show nil) 285 | nil)))))) 286 | 287 | (defun inc-projector-version (version) 288 | (if (find-if-not #'digit-char-p version) 289 | (error "Can't handle branches yet.") 290 | (princ-to-string (1+ (read-from-string version))))) 291 | 292 | ;;; 293 | ;;; Version hacking 294 | ;;; 295 | 296 | (defun parse-version (version &optional (errorp t)) 297 | (let ((major-rev 0) 298 | (minor-rev 0) 299 | (dev-stage 'f) 300 | (bug-rev 0) 301 | (internal-rev 0) 302 | (substage nil) 303 | (substage-rev 0) 304 | (pos 0)) 305 | (flet ((next-piece (end-test) 306 | (if pos 307 | (let ((end-pos (position-if end-test version :start pos))) 308 | (let ((*package* (find-package :projector))) 309 | (prog1 310 | (read-from-string version t nil :start pos :end end-pos) 311 | (setq pos end-pos)))))) 312 | (bad-version (&rest args) 313 | (if errorp 314 | (apply #'error args) 315 | (return-from parse-version (values nil nil nil nil nil nil))))) 316 | (let ((temp (next-piece #'(lambda (x) (eq #\. x))))) 317 | (if (numberp temp) 318 | (setq major-rev temp) 319 | (bad-version "No major revision number in version: ~s" version))) 320 | (if pos (incf pos)) 321 | (let ((temp (next-piece #'(lambda (x) (not (digit-char-p x)))))) 322 | (if (numberp temp) 323 | (setq minor-rev temp) 324 | (bad-version "No minor revision number in version: ~s" version))) 325 | (when (and pos (eq #\. (schar version pos))) 326 | ;;bug fix version 327 | (incf pos) 328 | (let ((temp (next-piece #'(lambda (x) (not (digit-char-p x)))))) 329 | (if (numberp temp) 330 | (setq bug-rev temp) 331 | (bad-version "Invalid bug fix revision number in version: ~s" version)))) 332 | (when pos 333 | (let ((temp (next-piece #'digit-char-p))) 334 | (if (memq temp '(f b a d)) 335 | (setq dev-stage temp) 336 | (bad-version "Invalid development stage in version: ~s" version)))) 337 | (when pos 338 | (let ((temp (next-piece #'(lambda (x) (not (digit-char-p x)))))) 339 | (if (numberp temp) 340 | (setq internal-rev temp) 341 | (bad-version "Invalid internal revision number in version: ~s" version)))) 342 | (when pos 343 | (setq substage (next-piece #'digit-char-p))) 344 | (when pos 345 | (let ((temp (next-piece #'(lambda (x) (not (digit-char-p x)))))) 346 | (if (numberp temp) 347 | (setq substage-rev temp) 348 | (bad-version "Invalid substage revision number in version: ~s" version)))) 349 | (when pos 350 | (bad-version "Invalid version: ~s" version))) 351 | (values major-rev minor-rev bug-rev dev-stage internal-rev substage substage-rev))) 352 | 353 | #| 354 | (parse-version "1.0d23") 355 | (parse-version "2.0d23") 356 | (parse-version "1.1d23") 357 | (parse-version "1.0") 358 | (parse-version "1.0a1") 359 | (parse-version "1.0b4") 360 | (parse-version "1.0.1") 361 | (parse-version "1.1") 362 | (parse-version "1.0.2f3") 363 | (parse-version "71.2f3c2") 364 | |# 365 | 366 | (defun version-lessp (version1 version2) 367 | (multiple-value-bind (major-rev1 minor-rev1 bug-rev1 stage1 internal-rev1 sub-stage1 sub-stage-rev1) 368 | (parse-version version1) 369 | (multiple-value-bind (major-rev2 minor-rev2 bug-rev2 stage2 internal-rev2 sub-stage2 sub-stage-rev2) 370 | (parse-version version2) 371 | (or (< major-rev1 major-rev2) 372 | (and (= major-rev1 major-rev2) 373 | (or (< minor-rev1 minor-rev2) 374 | (and (= minor-rev1 minor-rev2) 375 | (or (< bug-rev1 bug-rev2) 376 | (and (= bug-rev1 bug-rev2) 377 | (or (< (position stage1 '(d a b f)) 378 | (position stage2 '(d a b f))) 379 | (and (eq stage1 stage2) 380 | (or (< internal-rev1 internal-rev2) 381 | (and (= internal-rev1 internal-rev2) 382 | (eq sub-stage1 sub-stage2) 383 | (< sub-stage-rev1 sub-stage-rev2)))))))))))))) 384 | 385 | #| 386 | (version-lessp "1.0d23" "2.0d23") 387 | (version-lessp "1.0d23" "1.1d23") 388 | (version-lessp "1.0d23" "1.0") 389 | (version-lessp "1.0a1" "1.0") 390 | (version-lessp "1.0b4" "1.0") 391 | (version-lessp "1.0b4" "1.0.1") 392 | (version-lessp "1.0" "1.0.1") 393 | (version-lessp "1.0.1" "1.0.2") 394 | (version-lessp "1.0" "1.1") 395 | (version-lessp "1.0d2" "1.0a1") 396 | (version-lessp "1.0d2" "1.0b1") 397 | (version-lessp "1.0a2" "1.0b1") 398 | (version-lessp "1.0d12" "1.0d13") 399 | (version-lessp "1.0a2" "1.0.4") 400 | (version-lessp "1.0f3c1" "1.0f3c2") 401 | 402 | (version-lessp "2.0d23" "1.0d23") 403 | (version-lessp "1.1d23" "1.0d23") 404 | (version-lessp "1.0" "1.0d23") 405 | (version-lessp "1.0" "1.0a1") 406 | (version-lessp "1.0" "1.0b4") 407 | (version-lessp "1.0.1" "1.0b4") 408 | (version-lessp "1.0.1" "1.0") 409 | (version-lessp "1.0.2" "1.0.1") 410 | (version-lessp "1.1" "1.0") 411 | (version-lessp "1.0a1" "1.0d2") 412 | (version-lessp "1.0b1" "1.0d2") 413 | (version-lessp "1.0b1" "1.0a2") 414 | (version-lessp "1.0d13" "1.0d12") 415 | (version-lessp "1.0.4" "1.0a2") 416 | (version-lessp "1.0f3c2" "1.0f3c1") 417 | 418 | |# 419 | 420 | (defun make-version (&key (major-rev 1) 421 | (minor-rev 0) 422 | (bug-rev 0) 423 | (stage 'f) 424 | (internal-rev 0) 425 | (substage nil) 426 | (substage-rev 0)) 427 | (unless (and (integerp major-rev) 428 | (integerp minor-rev) 429 | (integerp bug-rev) 430 | (memq stage '(d a b f)) 431 | (integerp internal-rev) 432 | (integerp substage-rev)) 433 | (error "Incorrect arguments")) 434 | (with-output-to-string (ret) 435 | (format ret "~a.~a" major-rev minor-rev) 436 | (when (not (zerop bug-rev)) (format ret ".~a" bug-rev)) 437 | (unless (and (eq stage 'f) (eq internal-rev 0) (null substage)) 438 | (let ((*print-case* :downcase)) (format ret "~a~a" stage internal-rev)) 439 | (when substage 440 | (format ret "~a~a" substage substage-rev))))) 441 | 442 | (defun inc-version (version) 443 | (multiple-value-bind (major-rev minor-rev bug-rev stage internal-rev substage substage-rev) 444 | (parse-version version) 445 | (cond (substage (incf substage-rev)) 446 | ((neq internal-rev 0) (incf internal-rev)) 447 | ((neq bug-rev 0) (incf bug-rev)) 448 | (t (incf minor-rev))) 449 | (make-version :major-rev major-rev :minor-rev minor-rev :bug-rev bug-rev 450 | :stage stage :internal-rev internal-rev :substage substage 451 | :substage-rev substage-rev))) 452 | 453 | #| 454 | Change History (most recent last): 455 | 2 3/25/92 ows fix a braino 456 | 3 3/25/92 ows projector comment ate my code 457 | 4 4/4/93 Sidney 458 | Use SourceServer package instead of CCL and use 459 | MCL 2.0 low-level system calls instead of ones 460 | from verison 1.3 that required loading a verison of 461 | sysequ.lisp that could lead to name collisions in 462 | the ccl package. 463 | 5 3/8/94 sidney Allow not asking for comments when checking out a file 464 | 6 8/12/94 Hernan Changing comment-format to take the number of 465 | tabs you want. 466 | 7 9/ 7/94 sidney move defvar *user* from later in load 467 | 2 6/23/95 Hernan to 6.ourceServer package instead of CCL and use 468 | MCL 2.0 low-level system calls instead of ones 469 | from verison 1.3 that re Use S 470 | 3 4/18/96 Hernan find-comment-from-window is really stupid at finding the 471 | end of the sourceserver comment block. I am fixing it to 472 | be able to handle invisible characters after the comments 473 | block. 474 | 4 4/22/96 Hernan Fixing open-pathname-comment-log-window-p to not 475 | bring up any dialogs if no-comment is true. 476 | 477 | |# ;(do not edit past this line!!) -------------------------------------------------------------------------------- /Sources/SourceServer Source/Projector/projector.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SourceServer Source/Projector/projector.lisp -------------------------------------------------------------------------------- /Sources/SourceServer Source/Projector/read-only.lisp: -------------------------------------------------------------------------------- 1 | ;; 2 | ;; read-only.lisp 3 | ;; 4 | ;; teach fred about projector resources and read-only windows 5 | ;; 6 | ;; Based on work by Ora Lassila (ora@hutcs.hut.fi) 7 | 8 | 9 | ;;; 11/05/91 gz Convert to new traps. 10 | ;; 11/05/91 alms mini-buffer icons moved to listeners-and-windows 11 | ;; 31-oct-91 jaj add projector icons to mini-buffer 12 | ;; 10/09/91 alms many changes 13 | ;; 27-sep-91 jaj added transfer-ckid 14 | ;; 15-aug-91 gz added symbolic ckid constants 15 | ;; 15-aug-91 jaj added set-file-modify-read-only 16 | ;; 05-Jun-91 Vrhel.T to clean up comtab, add minibuffer alert for checked out files 17 | ;; 09-May-91 Andy Stadler to better support ModifyReadOnly 18 | ;; 31-jan-91 alms Ported to MCL 2.0 and expanded 19 | 20 | (in-package :SourceServer) 21 | 22 | ;;access to the ckid resource 23 | 24 | (eval-when (eval compile #-debugged load) 25 | (defrecord (ckid :handle) 26 | (checkSum longint) 27 | (LOC longint) 28 | (version integer) ; this definition is for VERSION 4 29 | (readOnly integer) ; 0 = readonly nonzero = readwrite 30 | (branch byte) 31 | (modifyReadOnly boolean) ; T = modreadonly 32 | (unused longint) 33 | (checkoutTime longint) 34 | (modDate longint) 35 | (pida longint) 36 | (pidb longint) 37 | (userID integer) 38 | (fileID integer) 39 | (revID integer) 40 | (projectlen byte)) 41 | 42 | #-ppc-target 43 | (eval-when (:compile-toplevel :execute) 44 | (require :lapmacros)) 45 | 46 | ;; file-modifiable-state is: -1 = modifyreadonly, 0 = readwrite, >0 = readonly, -2 is checkedout 47 | 48 | (defconstant $ckid-checkedout -2) 49 | (defconstant $ckid-modifyreadonly -1) 50 | (defconstant $ckid-readwrite 0) 51 | (defconstant $ckid-readonly 1) 52 | ) 53 | 54 | (defun file-modifiable-state (filename) 55 | (or 56 | (when filename 57 | (cl-user::with-open-res-file 58 | (ref filename :if-does-not-exist nil) 59 | (and ref (neq ref -1) 60 | (with-resource (ckid "ckid" 128) 61 | (cond ((neq 4 (rref ckid ckid.version)) $ckid-readwrite) 62 | ((neq 0 (rref ckid ckid.readOnly)) $ckid-checkedout) 63 | ((rref ckid ckid.modifyReadOnly) $ckid-modifyreadonly) 64 | (t $ckid-readonly)))))) 65 | $ckid-readwrite)) 66 | 67 | (defun set-file-modify-read-only (filename) 68 | (unless (probe-file filename) (error "Non-existent file: ~s" filename)) 69 | (cl-user::with-open-res-file (ref filename :if-does-not-exist :create) 70 | (with-resource (ckid "ckid" 128) 71 | (setf (rref ckid ckid.modifyReadOnly) t) 72 | (setf (rref ckid ckid.checksum) (handle-checksum ckid)) 73 | (#_ChangedResource ckid) 74 | (#_WriteResource ckid)))) 75 | 76 | (defun set-file-local-checked-out-p (filename value) 77 | (unless (probe-file filename) (error "Non-existent file: ~s" filename)) 78 | (cl-user::with-open-res-file (ref filename :if-does-not-exist :create) 79 | (with-resource (ckid "ckid" 128) 80 | (setf (rref ckid ckid.readonly) (if value 8 0)) 81 | (setf (rref ckid ckid.checksum) (handle-checksum ckid)) 82 | (#_ChangedResource ckid) 83 | (#_WriteResource ckid)))) 84 | 85 | (defun handle-checksum (handle) 86 | (let ((count (- (truncate (#_GetHandleSize handle) 4) 1))) 87 | (with-dereferenced-handles ((p handle)) 88 | (pointer-checksum (%incf-ptr p 4) count)))) 89 | 90 | #-ppc-target 91 | (defun pointer-checksum (p count) 92 | (decf count) ; dbf stops when negative 93 | (ccl::lap-inline () 94 | (:variable p count) 95 | ;(ccl::dc.w #_debugger) 96 | (ccl::move.l (ccl::varg p) ccl::a0) 97 | (ccl::move.l (ccl::a0 ccl::$macptr.ptr) ccl::a0) 98 | (ccl::move.l (ccl::varg count) ccl::da) 99 | (ccl::getint ccl::da) 100 | (ccl::clr.l ccl::dx) 101 | @loop 102 | (ccl::add.l ccl::a0@+ ccl::dx) 103 | (ccl::dbf ccl::da @loop) 104 | (ccl::move.l ccl::dx ccl::d0) 105 | (ccl::jsr_subprim ccl::$sp-mklong))) 106 | 107 | #+ppc-target 108 | (ccl::defppclapfunction pointer-checksum ((p ccl::arg_y) (count ccl::arg_z)) 109 | (ccl::check-nargs 2) 110 | (ccl::macptr-ptr ccl::imm0 p) 111 | (ccl::la ccl::imm0 -4 ccl::imm0) 112 | (ccl::li ccl::imm2 0) 113 | (ccl::li ccl::imm3 '1) 114 | loop 115 | (ccl::sub. ccl::arg_z ccl::arg_z ccl::imm3) 116 | (ccl::lwzu ccl::imm1 4 ccl::imm0) 117 | (ccl::add ccl::imm2 ccl::imm2 ccl::imm1) 118 | (ccl::bgt loop) 119 | (ccl::box-signed-byte-32 ccl::arg_z ccl::imm2 ccl::imm0) 120 | (ccl::blr)) 121 | 122 | (defun remove-ckid-resource (filename) 123 | (if (null filename) 124 | 0 125 | (cl-user::with-open-res-file (ref filename :if-does-not-exist nil) 126 | (unless (or (null ref) (eql ref -1)) 127 | (loop ;; repeat until done. SourceServer sometimes creates multiple bogus CKID resources 128 | (when 129 | (with-resource (ckid "ckid" 128) 130 | (#_RemoveResource ckid)) 131 | (return t))))))) 132 | 133 | (defun transfer-ckid (from-file to-file &aux ckid) 134 | (unless (probe-file from-file) (error "Non-existent file: ~s" from-file)) 135 | (unless (probe-file to-file) (error "Non-existent file: ~s" to-file)) 136 | (cl-user::with-open-res-file (ref from-file) 137 | (setf ckid (#_Get1Resource "ckid" 128)) 138 | (when (%null-ptr-p ckid) (error "No 'ckid' resource in file: ~s" from-file)) 139 | (#_DetachResource ckid)) 140 | (cl-user::with-open-res-file 141 | (ref to-file :if-does-not-exist :create) 142 | (loop ;; repeat until done. SourceServer sometimes creates multiple bogus CKID resources 143 | (when 144 | (with-resource (old "ckid" 128) 145 | (#_RemoveResource old)) 146 | (return t))) 147 | (ccl::write-resource (add-resource ckid "ckid" 128)))) 148 | 149 | 150 | ;; new version of file-is-modifiable-p, defined in terms of file-modifiable-state 151 | 152 | (defun file-is-modifiable-p (filename) 153 | (or (null filename) ; empty filename, return t 154 | (< (file-modifiable-state filename) $ckid-readonly))) ; -1 or 0 are writeable 155 | 156 | ;;; 157 | ;;; Use a hash table to attach the file-is-modifiable value to each window 158 | ;;; 159 | 160 | 161 | (defmethod read-only-state ((f fred-window)) 162 | (view-get f :ckid-state $ckid-readwrite)) 163 | 164 | (defmethod (setf read-only-state) (state (f fred-window)) 165 | (view-put f :ckid-state state) 166 | (ccl::%buffer-set-read-only (fred-buffer f) (eql state $ckid-readonly)) 167 | (update-fred-window-from-changed-file f) 168 | ) 169 | 170 | (defmethod is-read-only ((f fred-window)) 171 | (= (read-only-state f) $ckid-readonly)) 172 | 173 | (defmethod initialize-instance :after ((f fred-window) &rest ignore) 174 | (declare (ignore ignore)) 175 | (setf (read-only-state f) (file-modifiable-state (window-filename f))) 176 | (mini-buffer-update f)) 177 | 178 | 179 | #| 180 | Change History (most recent last): 181 | 2 5/6/91 ads 1. Supressing the "beep" when opening RO files 182 | 2. Fixing RO problems w/cut, paste, return 183 | 2 5/30/91 tv Added :read-only to *features* to prevent multiple loads 184 | 3 6/3/91 jcg update to Leibniz 1.0: 185 | + put in ralphdebug package (adbg) 186 | 4 6/4/91 wrs Cleaned up a bit, moved to PROJECTOR package, and 187 | turned over to TV. 188 | 5 6/5/91 tv cleaned up dialog behavior, comtab errors 189 | 190 | 7 6/6/91 making backwards compatible to MacRalph 191 | 8 6/7/91 fixing MacRalph compatibility 192 | 9 6/7/91 macralph stuff 193 | 10 6/7/91 More MacRalph Compatibility 194 | 11 6/10/91 adbg::find-or-make-buffer removed 195 | 12 6/18/91 tv Lost code! re-adding remove-ckid-resource 196 | 13 6/20/91 tv basic sanity test of 1.1d13 197 | 08/05/91 gz Use symbolic constants. 198 | null -> %null-ptr-p in file-modifiable-state 199 | 5 11/5/91 alms Move mini-buffer-update definition. 200 | 7 1/21/92 jaj added set-file-local-checked-out-p 201 | 3 4/4/93 Sidney Use SourceServer package instead of CCL and use 202 | MCL 2.0 low-level system calls instead of ones 203 | from verison 1.3 that required loading a verison of 204 | sysequ.lisp that could lead to name collisions in 205 | the ccl package. 206 | 4 4/5/93 sidney Checkin good version of file that got corrupted 207 | somehow in the data base 208 | 5 7/7/94 sidney Use string for resource id instead of a keyword symbol 209 | get rid of errors caused by files with no resource fork 210 | 6 7/14/94 sidney release heap memory when we're through with resources. 211 | 7 7/14/94 sidney write-resource in proper package 212 | 8 9/13/94 sidney get correct file-modifiable-state on files with no resource fork 213 | 9 10/ 4/94 sidney remove unnecessary trap call that was causing errors in remove-ckid 214 | 10 2/17/95 Hernan in set read-Only-State, = -> eql because the state 215 | can be t which is not a number. 216 | 217 | ~~ 11 10/ 4/94 sidney add ppc version of lap code. change _rmvrsrce to _removeresource 218 | |# ;(do not edit past this line!!) -------------------------------------------------------------------------------- /Sources/SourceServer Source/Projector/sublaunch.lisp: -------------------------------------------------------------------------------- 1 | ;sublaunch.lisp 2 | 3 | (in-package :SourceServer) 4 | 5 | ;;; 11/05/91 gz Convert to new traps. 6 | 7 | ;The following three defs were lifted from Leibniz Sources:Defs:Defsys.lisp 8 | (eval-when (:execute :compile-toplevel) 9 | (require 'lispequ) 10 | (require 'sysequ) 11 | (defrecord LaunchStruct 12 | (pfName :pointer) 13 | (param :integer) 14 | (LC :unsigned-integer) ; extended parameters: 15 | (extBlockLen :longint) ; number of bytes in extension = 6 16 | (fFlags :integer) ; Finder file info flags 17 | (launchFlags :unsigned-integer) ; bit 15,14=1 for sublaunch, others reserved 18 | (reserved :integer)) 19 | ) 20 | 21 | (defun sublaunch (path &optional file (stay-in-background-p nil)) 22 | (when file (store-app-param-handle file)) 23 | (rlet ((launch :LaunchStruct)) 24 | (ccl::%stack-iopb (pb np) 25 | ;Get the Finder flags 26 | (ccl::%path-to-iopb path pb :errchk) 27 | ;; (%put-ostype pb "ERIK" $ioWDProcID) 28 | ;; (%put-ptr pb (%null-ptr) $ioFileName) 29 | (rset pb :WDPBRec.ioWDProcID "ERIK") 30 | (rset pb :WDPBRec.ioNamePtr (%null-ptr)) 31 | (#_PBOpenWDSync :errchk pb) 32 | (#_PBSetVolSync :errchk pb) 33 | ;; (%put-ptr pb np $ioFileName) 34 | ;; (%put-long pb 0 $ioDirID) 35 | ;; (%put-word pb 0 $ioFDirIndex) 36 | (rset pb :CInfoPBRec.ioNamePtr np) 37 | (rset pb :CInfoPBRec.ioDirID 0) 38 | (rset pb :CInfoPBRec.ioFDirIndex 0) 39 | (#_PBGetCatInfoSync :errchk pb) 40 | (rset launch :LaunchStruct.pfName np) 41 | (rset launch :LaunchStruct.param 0) 42 | (rset launch :LaunchStruct.LC #x4C43) 43 | (rset launch :LaunchStruct.extBlockLen 6) 44 | ;Copy flags; set bit 6 of low byte to 1 for RO access: 45 | (rset launch :LaunchStruct.fFlags (pref pb :CInfoPBRec.ioFLFndrInfo.fdFlags)) 46 | (rset launch :LaunchStruct.launchFlags (logior 47 | #$launchContinue 48 | (if stay-in-background-p #$launchDontSwitch 0))) 49 | (rset launch :LaunchStruct.reserved 0) 50 | (let ((err (#_LaunchApplication launch))) 51 | (when (< err 0) 52 | (case err ; Process Manager errors 53 | ((-600) (error "No elegible process with specified descriptor")) 54 | ((-601) (error "Not enough room to launch application w/special requirements")) 55 | ((-602) (error "Memory mode is 32-bit, but application not 32-bit clean")) 56 | ((-603) (error "Application made module calls in improper order")) 57 | ((-604) (error "Hardware configuration not correct for call")) 58 | ((-605) (error "Application SIZE not big enough for launch")) 59 | ((-606) (error "Application is background-only, and launch flags disallow this")) 60 | (t (ccl::%err-disp err)))))))) 61 | 62 | (defun store-app-param-handle (file) 63 | (with-macptrs ((ploc (%int-to-ptr $appparmhandle))) 64 | (let ((params (%get-ptr ploc))) 65 | (when (%null-ptr-p params) 66 | (%put-ptr ploc (setq params (#_NewHandle :errchk 0)))) 67 | (ccl::%stack-iopb (pb np) 68 | (ccl::%path-to-iopb file pb :errchk) 69 | ;; (%put-ostype pb "ERIK" $ioWDProcID) 70 | ;; (%put-ptr pb (%null-ptr) $ioFileName) 71 | (rset pb :WDPBRec.ioWDProcID "ERIK") 72 | (rset pb :WDPBRec.ioNamePtr (%null-ptr)) 73 | (#_PBOpenWDSync :errchk pb) 74 | (#_SetHandleSize :errchk params (+ 13 (%get-byte np))) 75 | (with-dereferenced-handles ((p params)) 76 | (%put-word p 0 0) 77 | (%put-word p 1 2) 78 | ;; (%put-word p (%get-word pb $ioVRefNum) 4) 79 | ;; (%put-ptr pb np $ioFileName) 80 | ;; (%put-long pb 0 $ioDirID) 81 | ;; (%put-word pb 0 $ioFDirIndex) 82 | (%put-word p (pref pb :CInfoPBRec.ioVRefNum) 4) 83 | (rset pb :CInfoPBRec.ioNamePtr np) 84 | (rset pb :CInfoPBRec.ioDirID 0) 85 | (rset pb :CInfoPBRec.ioFDirIndex 0) 86 | (#_PBGetCatInfoSync :errchk pb) 87 | ;; (%put-ostype p (%get-ostype pb $fdType) 6) 88 | (%put-ostype p (pref pb :CInfoPBRec.ioFLFndrInfo.fdType) 6) 89 | (%put-word p 0 10) 90 | (#_BlockMove np (%inc-ptr p 12) (1+ (%get-byte np)))))))) 91 | 92 | #| 93 | Change History (most recent last): 94 | 3 4/4/93 Sidney Use SourceServer package instead of CCL and use 95 | MCL 2.0 low-level system calls instead of ones 96 | from verison 1.3 that required loading a verison of 97 | sysequ.lisp that could lead to name collisions in 98 | the ccl package. 99 | 4 4/4/93 Sidney Use SourceServer package instead of CCL to 100 | minimize possibility of name collision by users. 101 | 102 | Switch to MCL 2.0 trap interface calls instead of 103 | now undocumented 1.3 calls 104 | 3 7/ 1/96 sidney copy some changes form ther MCL3.9 version in hopes that it will make launching work 105 | |# ;(do not edit past this line!!) 106 | -------------------------------------------------------------------------------- /Sources/SourceServer Source/Source-server-readme: -------------------------------------------------------------------------------- 1 | The source server directory contains: 2 | 3 | 4 | 1) MCL files comprising an interface to projector that has been in use at Apple Eastern Research for some time, but which is still under development. 5 | 6 | 2) Sourceserver-command.lisp, also in use at ATG East. Here we redefine the function MPW-COMMAND to call the function SOURCESERVER-COMMAND causing the projector interface to communicate with Sourceserver rather than MPW. 7 | 8 | 3) A few utility files. The file sysequ.lisp is also in the Additional MCL Source Code folder. 9 | 10 | 11 | SourceServer is an application that allows development environments and other applications to access MPW Projector project management capabilities via Apple Events. Development environments and applications have access to the full functionality of Projector including the ability to create project databases, as well as checking in and out individual files. Both MPW and other development environments can share the same project database using SourceServer. An alpha version of SourceServer is available on E.T.O. (Essentials - Tools - Objects), a CD-ROM subscripion series distributed by Apple through APDA. 12 | 13 | This MCL code was written to use SourceServer 1.0a1, which was distributed in the MPW PQR 7 folder on E.T.O. #7. 14 | 15 | To try it out in MCL, open the file "load-SourceServer.lisp" in the SourceServer folder. Change the LOGICAL-PATHNAME-TRANSLATIONS for "SSRoot" to whatever, change the three SETQ's at the end to whatever is appropriate and evaluate the buffer. (Command-h or "Eval buffer" on the Eval menu). Of course, you will also need the SourceServer application. It will be launched automatically when it is needed. 16 | 17 | The variable *my-projects* is a list of 2 element lists. In each sublist first is the directory containing the project database, second is the directory containing your local copies of the project files. If you do not have any projects, set *my-projects* to nil, and 18 | use New Project on the SourceServer menu to create a new project. 19 | 20 | The first four menu items on the SourceServer menu apply to the active (front most) window. If the active window corresponds to a file in the local directory of one of *my-projects*, the first 3 of these will be enabled, otherwise disabled. 21 | 22 | To add a file to a project, place it in the local directory for that project, open the file in a fred-window and choose Checkin Active on the SourceServer menu. 23 | 24 | I haven't a clue how to remove a file from a project. Perhaps you can't. 25 | 26 | N.B. The MCL code is known to be buggy. 27 | Strongly recommend using directory names CONTAINING NO SPACES. 28 | 29 | 30 | 31 | 32 | -------------------------------------------------------------------------------- /Sources/SourceServer Source/load-SourceServer.lisp: -------------------------------------------------------------------------------- 1 | ;;;This file is used to load a stand alone sourceserver interface into MCL 2 | (defpackage SourceServer (:use ccl common-lisp)) 3 | 4 | (in-package :SourceServer) 5 | (import '(ccl::*user-initials* ccl::*user* ccl::*my-projects* ccl::reset-projects)) 6 | 7 | ;; a few miscellanies needed by projector files 8 | 9 | (defconstant wsp&cr 10 | (coerce '(#\space #\^M #\^I #\^L #\^@ #\^J #\312) 'string)) 11 | 12 | (defconstant $AppParmHandle #xAEC) ; handle to hold application parameters 13 | 14 | (eval-when (:load-toplevel :execute) 15 | (let* ((*load-verbose* t) 16 | (ccl:*autoload-traps* t) 17 | (thisdir (pathname-directory *loading-file-source-file*)) 18 | (thishost (pathname-host *loading-file-source-file*)) 19 | (thatdir (append thisdir '("Projector"))) 20 | (top-files-1 '("ui-utilities" 21 | ;; "plot-icon" ;; MCL3.9 has these definitions built in. Maybe need in 3.0? 22 | ;; "appleevent-toolkit" 23 | )) 24 | (projector-files-1 '( 25 | "find-folder" 26 | "sublaunch" 27 | "projector-utilities" 28 | "mpw-command" 29 | )) 30 | (top-files-2 '( 31 | "sourceserver-command" 32 | )) 33 | (projector-files-2 '( 34 | "compare" 35 | "merge" 36 | "read-only" 37 | "projector" 38 | "mpw-project" 39 | "projector-menus" 40 | "projector-ui" 41 | )) 42 | ) 43 | (require :lispequ) 44 | (mapc #'(lambda(f) (ccl:compile-load (make-pathname :host thishost :directory thisdir :name f))) top-files-1) 45 | (mapc #'(lambda(f) (ccl:compile-load (make-pathname :host thishost :directory thatdir :name f))) projector-files-1) 46 | (mapc #'(lambda(f) (ccl:compile-load (make-pathname :host thishost :directory thisdir :name f))) top-files-2) 47 | (mapc #'(lambda(f) (ccl:compile-load (make-pathname :host thishost :directory thatdir :name f))) projector-files-2) 48 | )) 49 | ;;; 50 | ;; set these to whatever is appropriate 51 | 52 | ; *my-projects* is a list of 2 element lists. In each sublist 53 | ; first is the directory containing the project database, 54 | ; second is directory containing the local files. 55 | ; If you do not have any projects, set *my-projects* to nil, and 56 | ; use New Project on the source server menu to create a new project. 57 | 58 | (setq *my-projects* nil) 59 | 60 | ;; Here's an example of how to set SourceServer::*my-projects* 61 | ;; Note that you don't have to specify the subprojects that are in subdirectories of a root project 62 | 63 | ;;(setq ccl::*my-projects* '(("SweetPea:MCL work in progress:SourceServerProject:" 64 | ;; "SweetPea:MCL work in progress:SourceServer:") 65 | ;; )) 66 | 67 | (setq *user-initials* nil) ;; will be set to chooser name if nobody initializes it to something else 68 | (setq *user* "Firstname Lastname") ;; This does have to be set in user's init.lisp 69 | 70 | 71 | (menu-install *projector-menu*) 72 | 73 | 74 | 75 | #| 76 | Change History (most recent last): 77 | 2 6/4/91 tv adding compare / merge functionality 78 | 3 6/7/91 testing checkout/in before release 79 | 4 6/25/91 tv testing 80 | 5 alms push onto dependendencies list 81 | 6 7/17/91 jaj moved a lot of stuff to Leibniz.lisp, projector-package and projector-ff 82 | 83 | 3 3/28/93 sidney Changed hardcoded disk name in location of 84 | project files. I don't think that should be 85 | necessary. 86 | 4 3/28/93 sidney Set logical hosts for this project to assume that the files are kept under the ccl directory, and added some comments. 87 | 5 3/30/93 sidney Load project files from the directory containing 88 | this file instead of using a hardcoded pathname. 89 | 90 | Use compile-load function to conditionally compile 91 | files to make it easy to keep files as fasls. 92 | 6 4/4/93 Sidney Use SourceServer package instead of CCL and use 93 | MCL 2.0 low-level system calls instead of ones 94 | from verison 1.3 that required loading a verison of 95 | sysequ.lisp that could lead to name collisions in 96 | the ccl package. 97 | 7 4/8/93 sidney Fix case in which pathname of load file is specified 98 | using a logical host. 99 | 8 4/12/93 SIdney Move AppleEvent toolkit file from examples folder 100 | into the same directory as the rest of 101 | SourceServer and put it under version control 102 | 9 3/29/94 sidney Move appleEvent support to base MCL 103 | 2 6/13/96 sidney Move require lapmacros to where it might be needed 104 | 3 7/ 1/96 sidney some changes for MCL3.9 105 | 4 3/ 4/97 sidney get reset-projects in ccl package so it can be conditionally called by code that doesn't require sourceserver package 106 | |# ;(do not edit past this line!!) 107 | -------------------------------------------------------------------------------- /Sources/SourceServer Source/plot-icon.lisp: -------------------------------------------------------------------------------- 1 | ;;;; The System 7.0 icon plotting utilities. 2 | ;;;; These are only the ones from the technote. 3 | 4 | (in-package :traps) 5 | 6 | ;; IconTransformType values 7 | (defconstant $ttNone #x0) 8 | (defconstant $ttDisabled #x1) 9 | (defconstant $ttOffline #x2) 10 | (defconstant $ttOpen #x3) 11 | (defconstant $ttSelected #x4000) 12 | #| 13 | (defconstant $ttSelectedDisabled #x4001) 14 | (defconstant $ttSelectedOffline $4002) 15 | (defconstant $ttSelectedOpen $4003) 16 | |# 17 | 18 | #| 19 | ;; ttLabels 20 | (defconstant $ttLabel0 $0000) 21 | (defconstant $ttLabel1 $0100) 22 | (defconstant $ttLabel2 $0200) 23 | (defconstant $ttLabel3 $0300) 24 | (defconstant $ttLabel4 $0400) 25 | (defconstant $ttLabel5 $0500) 26 | (defconstant $ttLabel6 $0600) 27 | (defconstant $ttLabel7 $0700) 28 | |# 29 | 30 | (deftrap "_PlotIconID" ((rect :Rect) (align :integer) (transform :integer) (resId :integer)) 31 | (:stack :oserr) 32 | (:trap #xABC9 :d0 #x0500 rect align transform resID)) 33 | 34 | (deftrap "_PlotCIconHandle" ((rect :Rect) (align :integer) (transform :integer) (cIcon :CIconHandle)) 35 | (:stack :oserr) 36 | (:trap #xABC9 :d0 #x051F rect align transform cIcon)) 37 | 38 | #| 39 | #$kCustomIconResource 40 | #$genericExtensionIconResource 41 | #$genericDocumentIconResource 42 | #$genericApplicationIconResource 43 | #$genericDeskAccessoryIconResource 44 | #$genericFolderIconResource 45 | #$systemFolderIconResource 46 | #$appleMenuFolderIconResource 47 | #$startupFolderIconResource 48 | #$controlPanelFolderIconResource 49 | #$printMonitorFolderIconResource 50 | #$preferencesFolderIconResource 51 | #$extensionsFolderIconResource 52 | #$floppyIconResource 53 | #$trashIconResource 54 | #$fullTrashIconResource 55 | |# 56 | #| 57 | Change History (most recent last): 58 | 1 4/7/92 ows 59 | 1 4/7/92 ows 60 | 1 4/7/92 ows 61 | 2 6/28/96 sidney deftrap needs a string now 62 | |# ;(do not edit past this line!!) 63 | -------------------------------------------------------------------------------- /Sources/SourceServer Source/sourceserver-command.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SourceServer Source/sourceserver-command.lisp -------------------------------------------------------------------------------- /Sources/SourceServer Source/ui-utilities.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/SourceServer Source/ui-utilities.lisp -------------------------------------------------------------------------------- /Sources/sk8-init.lisp: -------------------------------------------------------------------------------- 1 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 2 | ;;; MacFrames INIT 3 | ;;; 4 | 5 | #| Modification History 6 | 7 | 10-03-92 ruben sk8 version is a floanum 8 | 08-21-92 ruben development, release, runtime, project store and sk8 ui options 9 | 05-12-92 ruben d29 conversion 10 | 03-25-92 ruben arglist-on-space now MCL default 11 | 02-12-92 ruben simplified with initial boot dialog 12 | 01-03-92 ruben changed it for MacFrames II (d28) 13 | 08-09-91 ruben added kernel-only-p option for Matthew 14 | 08-07-91 ruben always save local symbols (for releases as well as development versions) 15 | 04-18-91 ruben 16 | 17 | |# 18 | 19 | ;;; 20 | ;;; INSTRUCTIONS: 21 | ;;; 22 | ;;; This file contains all the information necessary to boot MacFrames. 23 | ;;; Insert this code into your init to load MacFrames. The MacFrames 24 | ;;; Kernel and User Interface system will be loaded. Comment out 25 | ;;; below the features that you don't want. 26 | ;;; 27 | 28 | (in-package :cl-user) 29 | 30 | ;; make sure that the init file is loaded, even if this file was started by launching its fasl 31 | ;; Note: since launching MCL from the app or a source file will load init, you have to make sure that 32 | ;; whatever is in there can be loaded twice without ill effects. 33 | ;; This is to allow us developers to customize our build environments. There should 34 | ;; not be an init.lisp checked in under version control, and a normal build will not load one. 35 | 36 | (load "ccl;init" :if-does-not-exist nil) 37 | 38 | ;;; Get rid of some bothersome defaults used by MCL 2.0 39 | 40 | (setq *paste-with-styles* nil) 41 | 42 | ;;; This variable is used by the save application code to know whether it is 43 | ;;; saving SK8, a runtime or an application. The possible values are :sk8, :runtime and :app. 44 | 45 | (defvar *application-type* :sk8) 46 | 47 | (defvar *development-preferences* 48 | '(:objectSystem :graphicsSystem :Sk8Script :Store 49 | :functions :objects :ui :developmentUtilities)) 50 | 51 | (defvar *full-release-preferences* 52 | '(:objectSystem :graphicsSystem :Sk8Script :Store 53 | :functions :objects :ui)) 54 | 55 | (defvar *runtime-release-preferences* 56 | '(:objectSystem :graphicsSystem :SK8ScriptRuntime)) 57 | 58 | (defvar *features-wanted* (if *development-p* *development-preferences* *full-release-preferences*)) 59 | 60 | (defparameter *full-recompile-wanted* nil) 61 | (defvar *update-all-projects-wanted* nil) 62 | (defvar *save-when-done-wanted* t) 63 | (defvar *log-file-wanted* t) 64 | (defvar *sk8-version-to-be-built* "") 65 | 66 | (defvar *boot-dialog* nil) 67 | (defvar *VersionText* nil) 68 | 69 | (defun sk8-boot-dialog () 70 | (let* ((RuntimeRB (MAKE-DIALOG-ITEM 71 | 'RADIO-BUTTON-DIALOG-ITEM 72 | #@(235 46) 73 | #@(113 16) 74 | "Runtime" 75 | #'(LAMBDA (item$) 76 | (declare (ignore item$)) 77 | (setf *application-type* :runtime) 78 | (setf (getf *sk8-features* :development) nil) 79 | (setf *features-wanted* *runtime-release-preferences*)) 80 | :RADIO-BUTTON-PUSHED-P (eq *features-wanted* *runtime-release-preferences*))) 81 | (DevelopmentRB (MAKE-DIALOG-ITEM 82 | 'RADIO-BUTTON-DIALOG-ITEM 83 | #@(234 94) 84 | #@(116 16) 85 | "Development" 86 | #'(LAMBDA (item$) 87 | (declare (ignore item$)) 88 | (setf *application-type* :sk8) 89 | (setf (getf *sk8-features* :development) t) 90 | (setf *features-wanted* *development-preferences*)) 91 | :RADIO-BUTTON-PUSHED-P (eq *features-wanted* *development-preferences*))) 92 | (ReleaseRB (MAKE-DIALOG-ITEM 93 | 'RADIO-BUTTON-DIALOG-ITEM 94 | #@(235 73) 95 | #@(72 17) 96 | "Release" 97 | #'(LAMBDA (item$) 98 | (declare (ignore item$)) 99 | (setf *application-type* :sk8) 100 | (setf (getf *sk8-features* :development) nil) 101 | (setf *features-wanted* *full-release-preferences*)) 102 | :radio-button-pushed-p (eq *features-wanted* *full-release-preferences*))) 103 | (UpdateCB (MAKE-DIALOG-ITEM 104 | 'CHECK-BOX-DIALOG-ITEM 105 | #@(17 46) 106 | #@(149 16) 107 | "Update all projects" 108 | #'(LAMBDA (item$) 109 | (setf *update-all-projects-wanted* (check-box-checked-p item$))) 110 | :CHECK-BOX-CHECKED-P *update-all-projects-wanted*))) 111 | (unless *development-p* 112 | (dialog-item-disable DevelopmentRB) 113 | (dialog-item-disable UpdateCB)) 114 | (setq *boot-dialog* 115 | (MAKE-INSTANCE 'COLOR-DIALOG 116 | :WINDOW-TYPE 117 | :TOOL 118 | :WINDOW-TITLE 119 | "SK8 Boot Preferences" 120 | :VIEW-POSITION 121 | #@(40 40) 122 | :VIEW-SIZE 123 | #@(372 171) 124 | :VIEW-FONT 125 | '("Chicago" 12 :SRCOR :PLAIN) 126 | :VIEW-SUBVIEWS 127 | (LIST ReleaseRB 128 | DevelopmentRB 129 | (MAKE-DIALOG-ITEM 130 | 'STATIC-TEXT-DIALOG-ITEM 131 | #@(18 14) 132 | #@(75 16) 133 | "VERSION:" 134 | NIL 135 | :VIEW-FONT 136 | '("Chicago" 14 :SRCOR :PLAIN)) 137 | (MAKE-DIALOG-ITEM 138 | 'CHECK-BOX-DIALOG-ITEM 139 | #@(17 70) 140 | #@(163 16) 141 | "Recompile Everything" 142 | #'(LAMBDA (item$) 143 | (setf *full-recompile-wanted* (check-box-checked-p item$))) 144 | :CHECK-BOX-CHECKED-P *full-recompile-wanted*) 145 | UpdateCB 146 | (MAKE-DIALOG-ITEM 147 | 'CHECK-BOX-DIALOG-ITEM 148 | #@(17 94) 149 | #@(131 16) 150 | "Save when done" 151 | #'(LAMBDA (item$) 152 | (setf *save-when-done-wanted* (check-box-checked-p item$))) 153 | :CHECK-BOX-CHECKED-P *save-when-done-wanted*) 154 | (MAKE-DIALOG-ITEM 155 | 'CHECK-BOX-DIALOG-ITEM 156 | #@(17 118) 157 | #@(131 16) 158 | "Produce log file" 159 | #'(LAMBDA (item$) 160 | (setf *log-file-wanted* (check-box-checked-p item$))) 161 | :CHECK-BOX-CHECKED-P *log-file-wanted*) 162 | RuntimeRB 163 | (MAKE-DIALOG-ITEM 164 | 'BUTTON-DIALOG-ITEM 165 | #@(291 131) 166 | #@(62 16) 167 | "OK" 168 | #'(LAMBDA (item$) 169 | (let ((*boot* t)) 170 | (declare (special *boot*)) 171 | (setf *sk8-version-to-be-built* 172 | (read-from-string 173 | (dialog-item-text (car (subviews (view-window item$) 'fred-dialog-item))))) 174 | (setf *VersionText* 175 | (dialog-item-text (car (subviews (view-window item$) 'fred-dialog-item)))) 176 | (window-close (view-window item$)))) 177 | :DEFAULT-BUTTON T) 178 | (MAKE-DIALOG-ITEM 179 | 'BUTTON-DIALOG-ITEM 180 | #@(210 132) 181 | #@(62 16) 182 | "Cancel" 183 | #'(LAMBDA (item$) 184 | (let ((*boot* nil)) 185 | (declare (special *boot*)) 186 | (window-close (view-window item$)) 187 | (throw :cancel nil))) 188 | :DEFAULT-BUTTON NIL) 189 | (MAKE-DIALOG-ITEM 190 | 'EDITABLE-TEXT-DIALOG-ITEM 191 | #@(99 14) 192 | #@(209 17) 193 | #+ppc-target "1.1 PPC" #-ppc-target "1.1 68K" 194 | 'NIL 195 | :ALLOW-RETURNS NIL)))) 196 | (defmethod window-close ((window (eql *boot-dialog*))) 197 | (declare (special *boot*)) 198 | (call-next-method) 199 | (if (and (boundp '*boot*) 200 | *boot*) 201 | (eval-enqueue `(boot-sk8)) (ed-beep))) 202 | t)) 203 | 204 | (defun boot-sk8 (&aux (starttime (get-universal-time))) 205 | (when *log-file-wanted* 206 | (let ((logfile (format nil "ccl:SK8 ~a~a log" (if (eq *application-type* :runtime) "runtime" "") *VersionText*))) 207 | (delete-file logfile :if-does-not-exist nil) 208 | (dribble logfile))) 209 | (when (and (boundp 'CCL::*my-projects*) *update-all-projects-wanted*) 210 | (ccl::update-all-projects)) 211 | (get-global-recompile-date) 212 | (reset-sk8-globals) 213 | (catch :cancel 214 | (catch :abort 215 | (process-run-function 216 | '(:background-p t) 217 | #'(lambda (starttime) 218 | (declare (ftype t sk8::buildStandalone)) ;; avoid a warning message here 219 | (require :sk8-load) 220 | (let ((elapsed-time (- (get-universal-time) starttime))) 221 | (multiple-value-bind (hours nonhours) 222 | (floor elapsed-time 3600) 223 | (multiple-value-bind (minutes seconds) 224 | (floor nonhours 60) 225 | (format t "~%~%Load of version ~a completed in ~d hours, ~d minutes, ~d seconds.~%~%" 226 | *VersionText* hours minutes seconds ) 227 | (dribble) 228 | ;; It's a shame the timing statistics go away. We use AppleEvents to send them to some other app, which will display them -DY 229 | (if *save-when-done-wanted* 230 | (progn 231 | (when (boundp 'CCL::*my-projects*) 232 | (ccl::reset-projects) 233 | (setf ccl::*user* nil ccl::*user-initials* nil)) 234 | (sk8::buildStandalone (format nil "sk8;SK8 ~a~a" (if (eq *application-type* :runtime) "runtime" "") *VersionText*) 235 | :creator ccl::*default-file-creator*)) 236 | (format t "(progn ~% (ccl::reset-projects)~% (setf ccl::*user* nil ccl::*user-initials* nil)~% (sk8::buildStandalone \"sk8;SK8 ~a~a\" :creator ~s) )~%~%" 237 | (if (eq *application-type* :runtime) "runtime" "") *VersionText* (string ccl::*default-file-creator*))))))) 238 | starttime)))) 239 | 240 | ;;;;;;;;;;;;;;;;;;;;;; 241 | ;;; Put up the dialog: 242 | ;;; 243 | 244 | (sk8-boot-dialog) 245 | 246 | #| 247 | Change History (most recent last): 248 | 3 10/25/93 kleiman simplified build dialog 249 | 4 12/6/93 kleiman *trace-print-length* permanently NIL 250 | 5 12/13/93 kleiman Introduced reset-sk8-globals, now *development-p* et al will work as intended. 251 | 6 12/16/93 till add femto-defsystem (sk8-build-files). 252 | 7 12/16/93 till forgot something 253 | 8 12/17/93 till forgot something 254 | 9 12/21/93 sidney Changes so files can be compiled 255 | 10 1/10/94 sidney Show build time and version info 256 | 11 2/4/94 sidney Rebuild project files when recompiling everything 257 | 11 2/11/94 sidney Unnamed objects that can be gc'd 258 | 12 2/15/94 kleiman 259 | 13 2/18/94 sidney Stamp fasl with source file info and use that to decide when need to recompile 260 | 14 2/21/94 sidney Move much of earliest build code into dumped MCL image used for building this 261 | 15 4/1/94 sidney reset sourceserver userid before dumping sk8 262 | 16 4/4/94 kleiman save-sk8 -> buildStandalone 263 | sk8; prefix passed to buildStandalone 264 | 17 6/12/94 dy Just do the save, for godssake. Or: I thought I told you to shut up! 265 | 18 6/19/94 dy 2 new checkboxes in the dialog: mount projects and update all 266 | 19 6/20/94 dy tweak dialog 267 | 20 8/2/94 Hernan Making the code that mounts all projects be a 268 | separate function so that I can call it from the doc 269 | building dialog. 270 | 21 10/28/94 dy save listener buffer as log file 271 | 22 10/28/94 dy fix previous comment 272 | 23 11/15/94 dy improved "compile all" 273 | 24 12/ 4/94 sidney 1200474: queued build stuff not being run during the build. 274 | 25 2/10/95 sidney changes for buildstandalone merging resources into application file 275 | 26 2/22/95 dy load init.lisp first thing 276 | 27 2/22/95 sidney don't crash if there is no init file in the directory 277 | 28 3/ 2/95 sidney do first thing first, not second thing first in build 278 | 29 3/19/95 sidney use new :creator argument in buildstandalone to leave SK8's creator alone 279 | 3 6/12/95 sidney add declaration to avoid a compiler warning 280 | 4 7/10/95 sidney change default version string for now 281 | 5 8/ 5/95 dy save log file when done. 282 | 6 8/ 5/95 dy Log file didn't work. Was empty. 283 | 7 1/22/96 Hernan Adding a checkbox to determine whether a log file is produced. 284 | 8 1/22/96 sidney Implement production of build log file 285 | 9 2/ 6/96 sidney include log of file updates in the build log 286 | 2 4/ 8/96 Hernan Moving the require :sk8-load into the process-run-function. 287 | 3 4/ 8/96 Build Made sk8 version be 1.1 288 | 4 4/15/96 Hernan Defining full-recompile-wanted as a defparameter (since 289 | this is a redefinition of the original in Build Part 1). 290 | 5 4/25/96 Hernan Added *application-type*, a variable to let SK8 remember 291 | if it is a full SK8 app, a runtime or a derived user app. 292 | 6 7/ 7/96 sidney remove redundant unmount-all-projects since reset-projects does that already 293 | make sure that buildstandalone happens in a listener process 294 | 7 7/18/96 sidney move change to buildstandalone in build to buildstandalone function 295 | 8 10/24/96 sidney change default version name for built image to production name "1.1" 296 | 9 10/24/96 sidney Add PPC or 68K to default version name 297 | make default setting to not update all projects in deference to users who will not have a SourceServer project 298 | runtime/full release/development radio buttons weren't reseting properly if user changed mind after selecting runtime 299 | add the word runtime to the image file name when building a runtime 300 | 10 3/ 4/97 sidney remove reference to sourceserver package that broke attempts to build a non-developer version 301 | 11 3/ 7/97 sidney add/remove :development from *sk8-features* to reflect state of radio button selection 302 | |# ;(do not edit past this line!!) 303 | -------------------------------------------------------------------------------- /Sources/sk8-load.lisp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/Sources/sk8-load.lisp -------------------------------------------------------------------------------- /sk8_license.pdf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/waywardmonkeys/apple_sk8/feffc7024a493cf5204acf61f7c8be5527857158/sk8_license.pdf --------------------------------------------------------------------------------