From b05b37a5590951e8170b3e2f8609d86f01890c9a Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Mon, 17 Oct 2022 16:45:05 +0200 Subject: [PATCH] Adapt to Squeak 6.x --- DevSupport.st | 2 ++ Squeakerfile.phone-base.st | 2 +- Squeakerfile.phone.st | 2 +- unscaled-vnc-phone.sh | 7 +++++++ 4 files changed, 11 insertions(+), 2 deletions(-) create mode 100755 unscaled-vnc-phone.sh diff --git a/DevSupport.st b/DevSupport.st index d26f1b4..35e7386 100644 --- a/DevSupport.st +++ b/DevSupport.st @@ -44,3 +44,5 @@ DisplayDevice fixDPI: 163 "Nominal for a 4k 27-inch monitor" ', Utilities commonRequestStrings contents! SyndicateSnippets stdio1! + +2 seconds wait! diff --git a/Squeakerfile.phone-base.st b/Squeakerfile.phone-base.st index 1892742..dede9b6 100644 --- a/Squeakerfile.phone-base.st +++ b/Squeakerfile.phone-base.st @@ -1 +1 @@ -from: 'http://files.squeak.org/6.0alpha/Squeak6.0alpha-21379-64bit/Squeak6.0alpha-21379-64bit.zip'! World submorphs select: [:m | (m isKindOf: PreferenceWizardMorph) or: [m isSystemWindow and: [m label beginsWith: 'Welcome to Squeak']]] thenDo: [:m | m delete]. ! "Preferences." CommunityTheme createDark apply. Model useColorfulWindows: true. [Preferences setDemoFonts] valueSupplyingAnswer: true. Cursor useBiggerCursors: true. Preferences enable: #mouseOverForKeyboardFocus. Preferences disable: #balloonHelpEnabled. Preferences disable: #alternativeBrowseIt. TextEditor autoEnclose: false. Model windowActiveOnFirstClick: true. ! MCMcmUpdater default doUpdate: false! Metacello new configuration: 'FFI'; load! Installer squeaksource project: 'OSProcess'; install: 'OSProcess'! Installer squeaksource project: 'CommandShell'; install: 'CommandShell'! Installer squeaksource project: 'JSON'; install: 'JSON'! Installer squeaksource project: 'Snarl'; install: 'Snarl'. Project current instVarNamed: #uiManager put: nil. ! \ No newline at end of file +from: 'http://files.squeak.org/6.1alpha/Squeak6.1alpha-22185-64bit/Squeak6.1alpha-22185-64bit.zip'! World submorphs select: [:m | (m isKindOf: PreferenceWizardMorph) or: [m isSystemWindow and: [m label beginsWith: 'Welcome to Squeak']]] thenDo: [:m | m delete]. ! "Preferences." CommunityTheme createDark apply. Model useColorfulWindows: true. [Preferences setDemoFonts] valueSupplyingAnswer: true. Cursor useBiggerCursors: true. Preferences enable: #mouseOverForKeyboardFocus. Preferences disable: #balloonHelpEnabled. Preferences disable: #alternativeBrowseIt. TextEditor autoEnclose: false. Model windowActiveOnFirstClick: true. ! MCMcmUpdater default doUpdate: false! Metacello new configuration: 'FFI'; load! Installer squeaksource project: 'OSProcess'; install: 'OSProcess'! Installer squeaksource project: 'CommandShell'; install: 'CommandShell'! Installer squeaksource project: 'JSON'; install: 'JSON'! Installer squeaksource project: 'Snarl'; install: 'Snarl'. Project current instVarNamed: #uiManager put: nil. ! \ No newline at end of file diff --git a/Squeakerfile.phone.st b/Squeakerfile.phone.st index b909493..b80636a 100644 --- a/Squeakerfile.phone.st +++ b/Squeakerfile.phone.st @@ -1 +1 @@ -from: #'squeak-phone-base'! MCMcmUpdater default doUpdate: false! resource: 'fonts/from-github/Roboto-Regular.ttf' ! | description | description := TTFontDescription addFromTTFile: 'fonts/from-github/Roboto-Regular.ttf'. TTCFont newTextStyleFromTT: description first. TTCFont registerAll. "TTCFont installFromFileNames: #('fonts/from-github/Roboto-Regular.ttf')." TTCFont glyphCacheSize: 8000. ! Installer squeaksource project: 'BitSyntax'; install: 'BitSyntax-Core'! (Installer squeak project: 'ss') install: 'RFB'! Installer squeaksource project: 'Preserves'; install: 'Preserves'! Installer squeaksource project: 'TouchScrolling'; install: 'TouchScrolling'! Installer squeaksource project: 'TiledMaps'; install: 'TiledMaps'! Installer squeaksource project: 'SyndicatedActors'; install: 'BTree-Collections'; install: 'SyndicatedActors'! Installer squeaksource project: 'SqueakPhone'; install: 'LinuxIO'; install: 'SqueakPhone'! CellphoneTheme createDark apply! PhoneWorldMorph install. LinuxInputIndex instance. LinuxInputDaemon instance. MachineConfiguration instance. WidgetDaemon instance. CallManager instance. AppRegistryDaemon instance. BacklightControlDaemon instance. ! resource: 'fonts/Font-Awesome/metadata/icons.json'! FontAwesome load: 'fonts/Font-Awesome'! \ No newline at end of file +from: #'squeak-phone-base'! MCMcmUpdater default doUpdate: false! resource: 'fonts/from-github/Roboto-Regular.ttf' ! | description | description := TTFontDescription addFromFileNamed: 'fonts/from-github/Roboto-Regular.ttf'. TTCFont newTextStyleFromTT: description first. TTCFont registerAll. TTCFont glyphCacheSize: 8000. ! Installer squeaksource project: 'BitSyntax'; install: 'BitSyntax-Core'! (Installer squeak project: 'ss') install: 'RFB'! Installer squeaksource project: 'Preserves'; install: 'Preserves'! Installer squeaksource project: 'TouchScrolling'; install: 'TouchScrolling'! Installer squeaksource project: 'TiledMaps'; install: 'TiledMaps'! Installer squeaksource project: 'SyndicatedActors'; install: 'BTree-Collections'; install: 'SyndicatedActors'! Installer squeaksource project: 'SqueakPhone'; install: 'LinuxIO'; install: 'SqueakPhone'! CellphoneTheme createDark apply! PhoneWorldMorph install. LinuxInputIndex instance. LinuxInputDaemon instance. MachineConfiguration instance. WidgetDaemon instance. CallManager instance. AppRegistryDaemon instance. BacklightControlDaemon instance. ! resource: 'fonts/Font-Awesome/metadata/icons.json'! FontAwesome load: 'fonts/Font-Awesome'! \ No newline at end of file diff --git a/unscaled-vnc-phone.sh b/unscaled-vnc-phone.sh new file mode 100755 index 0000000..6dc2e72 --- /dev/null +++ b/unscaled-vnc-phone.sh @@ -0,0 +1,7 @@ +#!/bin/sh + +# # expects TightVNC Viewer version 1.3.10 +# exec xvncviewer -encodings "copyrect tight hextile zlib corre rre raw" localhost:0 + +# seems to work OK, with scaling even, with ssvnc! +exec ssvncviewer -encodings "copyrect tight hextile zlib corre rre raw" localhost:0