Smalltalk working again as a document-based application

Author: mpw

ObjectiveSmalltalk.xcodeproj/project.pbxproj

@@ -14,7 +14,7 @@
             buildForAnalyzing = "YES">
             <BuildableReference
                BuildableIdentifier = "primary"
-               BlueprintIdentifier = "1F14804922476228003C436E"
+               BlueprintIdentifier = "1F2D95CD2250FCC500D025D8"
                BuildableName = "Smalltalk.app"
                BlueprintName = "Smalltalk"
                ReferencedContainer = "container:ObjectiveSmalltalk.xcodeproj">
@@ -32,7 +32,7 @@
       <MacroExpansion>
          <BuildableReference
             BuildableIdentifier = "primary"
-            BlueprintIdentifier = "1F14804922476228003C436E"
+            BlueprintIdentifier = "1F2D95CD2250FCC500D025D8"
             BuildableName = "Smalltalk.app"
             BlueprintName = "Smalltalk"
             ReferencedContainer = "container:ObjectiveSmalltalk.xcodeproj">
@@ -55,7 +55,7 @@
          runnableDebuggingMode = "0">
          <BuildableReference
             BuildableIdentifier = "primary"
-            BlueprintIdentifier = "1F14804922476228003C436E"
+            BlueprintIdentifier = "1F2D95CD2250FCC500D025D8"
             BuildableName = "Smalltalk.app"
             BlueprintName = "Smalltalk"
             ReferencedContainer = "container:ObjectiveSmalltalk.xcodeproj">
@@ -74,7 +74,7 @@
          runnableDebuggingMode = "0">
          <BuildableReference
             BuildableIdentifier = "primary"
-            BlueprintIdentifier = "1F14804922476228003C436E"
+            BlueprintIdentifier = "1F2D95CD2250FCC500D025D8"
             BuildableName = "Smalltalk.app"
             BlueprintName = "Smalltalk"
             ReferencedContainer = "container:ObjectiveSmalltalk.xcodeproj">

ObjectiveSmalltalk.xcodeproj/xcshareddata/xcschemes/Smalltalk.xcscheme

@@ -481,8 +481,9 @@ -(IBAction)printIt:sender;
     [self setSelectedRange:NSMakeRange( currentSelection.location+currentSelection.length,0)];
     currentSelection=[self selectedRange];
     if ( resultText.length ) {
+        [self insertText:@" "];
         [self insertText:resultText];
-        [self setSelectedRange:NSMakeRange( currentSelection.location, resultText.length)];
+        [self setSelectedRange:NSMakeRange( currentSelection.location+1, resultText.length)];
     }
 }
 

ObjectiveSmalltalkUI/MPWProgramTextView.m

@@ -8,7 +8,12 @@ scheme ClassBrowser  {
   -classDefs {
 	self dictionary.
   }
-  /. { 
+
+  -<int>hasChildren:ref {
+     ref relativePathComponents count < 3.
+  }
+
+  /. {
      |= {
         classNames := self classDefs | allKeys | sorted.
         self collect referenceForPath:classNames each.
@@ -30,9 +35,6 @@ scheme ClassBrowser  {
         theRef referencesByAppendingPaths: paths .
      }
   }
-  -<int>hasChildren:ref {
-     ref relativePathComponents count < 3.
-  }
 
   /:className {
      |= {

ObjectiveSmalltalkUI/classdef-method-browser-scheme.stsh

@@ -0,0 +1,43 @@
+<?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<document type="com.apple.InterfaceBuilder3.Cocoa.XIB" version="3.0" toolsVersion="11134" targetRuntime="MacOSX.Cocoa" propertyAccessControl="none" useAutolayout="YES" customObjectInstantitationMethod="direct">
+    <dependencies>
+        <plugIn identifier="com.apple.InterfaceBuilder.CocoaPlugin" version="11134"/>
+    </dependencies>
+    <objects>
+        <customObject id="-2" userLabel="File's Owner" customClass="Document" customModuleProvider="">
+            <connections>
+                <outlet property="window" destination="xOd-HO-29H" id="JIz-fz-R2o"/>
+            </connections>
+        </customObject>
+        <customObject id="-1" userLabel="First Responder" customClass="FirstResponder"/>
+        <customObject id="-3" userLabel="Application" customClass="NSApplication"/>
+        <window title="Window" allowsToolTipsWhenApplicationIsInactive="NO" autorecalculatesKeyViewLoop="NO" releasedWhenClosed="NO" visibleAtLaunch="NO" animationBehavior="default" id="xOd-HO-29H" userLabel="Window">
+            <windowStyleMask key="styleMask" titled="YES" closable="YES" miniaturizable="YES" resizable="YES"/>
+            <windowPositionMask key="initialPositionMask" leftStrut="YES" rightStrut="YES" topStrut="YES" bottomStrut="YES"/>
+            <rect key="contentRect" x="133" y="235" width="507" height="413"/>
+            <rect key="screenRect" x="0.0" y="0.0" width="1680" height="1027"/>
+            <value key="minSize" type="size" width="94" height="86"/>
+            <view key="contentView" id="gIp-Ho-8D9">
+                <rect key="frame" x="0.0" y="0.0" width="507" height="413"/>
+                <autoresizingMask key="autoresizingMask"/>
+                <subviews>
+                    <textField verticalHuggingPriority="750" horizontalCompressionResistancePriority="250" preferredMaxLayoutWidth="264" translatesAutoresizingMaskIntoConstraints="NO" id="Hz6-mo-xeY">
+                        <rect key="frame" x="129" y="195" width="248" height="22"/>
+                        <textFieldCell key="cell" sendsActionOnEndEditing="YES" alignment="center" title="Your document contents here" id="JDq-Ah-v2f">
+                            <font key="font" metaFont="system" size="18"/>
+                            <color key="textColor" name="controlTextColor" catalog="System" colorSpace="catalog"/>
+                            <color key="backgroundColor" name="controlColor" catalog="System" colorSpace="catalog"/>
+                        </textFieldCell>
+                    </textField>
+                </subviews>
+                <constraints>
+                    <constraint firstAttribute="centerX" secondItem="Hz6-mo-xeY" secondAttribute="centerX" id="OG3-1c-Sd0"/>
+                    <constraint firstAttribute="centerY" secondItem="Hz6-mo-xeY" secondAttribute="centerY" id="s6i-b7-llN"/>
+                </constraints>
+            </view>
+            <connections>
+                <outlet property="delegate" destination="-2" id="0bl-1N-x8E"/>
+            </connections>
+        </window>
+    </objects>
+</document>