From 49546a7d269c8d1baf0cd206ba0125babd8eb159 Mon Sep 17 00:00:00 2001 From: Eva Krebs Date: Mon, 2 Oct 2023 09:57:54 +0200 Subject: [PATCH] Merge branch 'develop' into error/fix-morph-resizing --- .../BPTraceValue.class/properties.json | 3 ++- .../.squot-contents | 2 +- .../instance/addArgumentScriptMorphs.st | 7 +++---- .../instance/addReceiverConstructorMorph.st | 7 +++---- .../methodProperties.json | 4 ++-- .../instance/runOn..st | 2 +- .../instance/testResult..st | 4 ---- .../instance/testResult.st | 4 ---- .../methodProperties.json | 6 ++---- .../BPTestCaseExample.class/properties.json | 3 +-- .../instance/allBabylonianInternalClasses.st | 8 ------- .../methodProperties.json | 5 ----- .../BPTraceValue.extension/properties.json | 2 -- .../monticello.meta/categories.st | 2 +- .../BPSwimlane.class/instance/update.with..st | 9 +++++++- .../BPSwimlane.class/methodProperties.json | 2 +- .../instance/setUp.st | 4 ++-- .../instance/testRenderingSimpleSlider.st | 4 ++-- .../testRenderingSliderWithNestedProbe.st | 6 +++--- .../instance/testRenderingWithoutExamples.st | 2 +- .../methodProperties.json | 8 +++---- .../instance/expectedFailures.st | 2 +- .../instance/testExamplesKnowTheirTimeout.st | 2 +- .../BPExampleTest.class/methodProperties.json | 4 ++-- ...tylerReusesExamplesMorphWhenStyledAgain.st | 4 ++-- .../BPStylerTest.class/methodProperties.json | 2 +- .../instance/binarySearchIn.theElement..st | 8 +++---- .../methodProperties.json | 2 +- .../editFieldFor.text.onChange.onAccept..st | 4 +++- ...StyledInitialContent.onChange.onAccept..st | 1 - .../instance/getTraces.st | 4 +--- .../instance/initialize.st | 2 +- .../instance/rightSidePadding.st | 4 ---- .../methodProperties.json | 9 ++++---- .../BPBrowser.class/class/initialize.st | 4 +++- .../BPBrowser.class/methodProperties.json | 2 +- .../instance/aboutToStyle..st | 2 +- .../methodProperties.json | 2 +- .../instance/addExampleSpecificMorphs.st | 4 ++-- .../instance/initialize.st | 6 ++---- .../instance/newLabelContainerMorph..st | 5 +---- .../methodProperties.json | 6 +++--- .../instance/actualExampleList.st | 2 +- .../instance/actualPackageList.st | 2 +- .../instance/exampleLabelFor..st | 8 +++++++ .../instance/exampleList.st | 6 +----- .../methodProperties.json | 7 ++++--- .../BPExamplesMorph.class/instance/step.st | 4 ++-- .../methodProperties.json | 2 +- .../instance/defaultCellInset.st | 4 ---- .../instance/defaultLayoutInset.st | 4 ---- .../methodProperties.json | 2 -- .../instance/exploreButtonClickedFor..st | 4 ++-- .../instance/newExploreButtonFor..st | 2 +- .../BPProbeMorph.class/methodProperties.json | 4 ++-- .../instance/addScriptMorph.st | 1 + .../methodProperties.json | 2 +- .../isAlreadyAnnotatedExpressionAt.in..st | 3 +-- .../BPStyler.class/methodProperties.json | 2 +- .../instance/isBPDecoration.st | 4 ++++ .../methodProperties.json | 1 + .../instance/writeContent..st | 2 +- .../methodProperties.json | 2 +- .../instance/annotation..st | 5 +++++ .../instance/initialize.st | 5 +++-- .../BPTraceBasedMorph.class/instance/step.st | 19 ----------------- .../instance/stepTime.st | 4 ---- .../instance/update..st | 10 +++++++-- .../instance/update.with..st | 9 ++++++++ .../instance/updateTraces.st | 17 +++++++++++++++ .../methodProperties.json | 11 +++++----- .../instance/addAnnotation.in..st | 21 +------------------ .../instance/doAddAnnotation.in..st | 16 ++++++++++++++ .../methodProperties.json | 3 ++- .../instance/isBPDecoration.st | 4 ++++ .../methodProperties.json | 1 + 76 files changed, 178 insertions(+), 188 deletions(-) delete mode 100644 packages/Babylonian-ExampleMining.package/BPTestCaseExample.class/instance/testResult..st delete mode 100644 packages/Babylonian-ExampleMining.package/BPTestCaseExample.class/instance/testResult.st delete mode 100644 packages/Babylonian-ExampleMining.package/BPTraceValue.extension/instance/allBabylonianInternalClasses.st delete mode 100644 packages/Babylonian-ExampleMining.package/BPTraceValue.extension/methodProperties.json delete mode 100644 packages/Babylonian-ExampleMining.package/BPTraceValue.extension/properties.json delete mode 100644 packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/rightSidePadding.st create mode 100644 packages/Babylonian-UI.package/BPExamplesBrowser.class/instance/exampleLabelFor..st delete mode 100644 packages/Babylonian-UI.package/BPMethodExampleMorph.class/instance/defaultCellInset.st delete mode 100644 packages/Babylonian-UI.package/BPMethodExampleMorph.class/instance/defaultLayoutInset.st create mode 100644 packages/Babylonian-UI.package/BPTextDecoration.class/instance/isBPDecoration.st create mode 100644 packages/Babylonian-UI.package/BPTraceBasedMorph.class/instance/annotation..st delete mode 100644 packages/Babylonian-UI.package/BPTraceBasedMorph.class/instance/step.st delete mode 100644 packages/Babylonian-UI.package/BPTraceBasedMorph.class/instance/stepTime.st create mode 100644 packages/Babylonian-UI.package/BPTraceBasedMorph.class/instance/update.with..st create mode 100644 packages/Babylonian-UI.package/BPTraceBasedMorph.class/instance/updateTraces.st create mode 100644 packages/Babylonian-UI.package/CodeHolder.extension/instance/doAddAnnotation.in..st create mode 100644 packages/Babylonian-UI.package/TextAttribute.extension/instance/isBPDecoration.st diff --git a/packages/Babylonian-Core.package/BPTraceValue.class/properties.json b/packages/Babylonian-Core.package/BPTraceValue.class/properties.json index 31d7f3f8..fb894704 100644 --- a/packages/Babylonian-Core.package/BPTraceValue.class/properties.json +++ b/packages/Babylonian-Core.package/BPTraceValue.class/properties.json @@ -3,7 +3,8 @@ "classinstvars" : [ ], "classvars" : [ - ], + "IgnoredClassesInStack", + "IgnoredMessagesInStack" ], "commentStamp" : "", "instvars" : [ "tracedValue", diff --git a/packages/Babylonian-ExampleMining.package/.squot-contents b/packages/Babylonian-ExampleMining.package/.squot-contents index f180ae50..a0217428 100644 --- a/packages/Babylonian-ExampleMining.package/.squot-contents +++ b/packages/Babylonian-ExampleMining.package/.squot-contents @@ -3,4 +3,4 @@ SquotTrackedObjectMetadata { #id : UUID [ '31a714b5b534fd4988afa4e5447e0082' ], #objectsReplacedByNames : true, #serializer : #SquotCypressCodeSerializer -} +} \ No newline at end of file diff --git a/packages/Babylonian-ExampleMining.package/BPMethodExampleMorph.extension/instance/addArgumentScriptMorphs.st b/packages/Babylonian-ExampleMining.package/BPMethodExampleMorph.extension/instance/addArgumentScriptMorphs.st index b4859240..1e554e0c 100644 --- a/packages/Babylonian-ExampleMining.package/BPMethodExampleMorph.extension/instance/addArgumentScriptMorphs.st +++ b/packages/Babylonian-ExampleMining.package/BPMethodExampleMorph.extension/instance/addArgumentScriptMorphs.st @@ -4,8 +4,6 @@ addArgumentScriptMorphs | editField container | self example argumentNames withIndexDo: [:argumentName :index | container := self newLabelContainerMorph: (argumentName , ': '). - container cellInset: self defaultCellInset; - layoutInset: self defaultLayoutInset. editField := self editFieldStyledInitialContent: (self example argumentScriptStringAt: index) @@ -15,7 +13,9 @@ addArgumentScriptMorphs onAccept: [:str | self acceptChangesAtSource. false "Do not continue handling this morphs edit"]. - editField balloonText: 'write code that instantiates the argument'. + editField + balloonText: 'write code that instantiates the argument'; + width: 240. container addMorphBack: editField. "Live specimen editing" @@ -28,6 +28,5 @@ addArgumentScriptMorphs self example argumentScripts at: index put: specimen. self codeContentChanged. editField setText: (self example argumentScriptStringAt: index)]]). - exampleSpecificMorphs addMorphBack: container]. \ No newline at end of file diff --git a/packages/Babylonian-ExampleMining.package/BPMethodExampleMorph.extension/instance/addReceiverConstructorMorph.st b/packages/Babylonian-ExampleMining.package/BPMethodExampleMorph.extension/instance/addReceiverConstructorMorph.st index 89ea7e47..1a33fac2 100644 --- a/packages/Babylonian-ExampleMining.package/BPMethodExampleMorph.extension/instance/addReceiverConstructorMorph.st +++ b/packages/Babylonian-ExampleMining.package/BPMethodExampleMorph.extension/instance/addReceiverConstructorMorph.st @@ -3,8 +3,6 @@ addReceiverConstructorMorph | container editField | container := self newLabelContainerMorph: 'self: '. - container cellInset: self defaultCellInset; - layoutInset: self defaultLayoutInset. editField := (self editFieldStyledInitialContent: self example receiverConstructorString @@ -16,7 +14,8 @@ addReceiverConstructorMorph editField balloonText: 'Write code that instantiates the receiver. You can also provide a selector that will be called on the -class-side of this class to create a receiver object.'. +class-side of this class to create a receiver object.'; + width: 240. container addMorphBack: editField. "Live specimen editing" @@ -29,5 +28,5 @@ class-side of this class to create a receiver object.'. self example receiverConstructor: specimen. self codeContentChanged. editField setText: self example receiverConstructorString]]). - + exampleSpecificMorphs addMorphBack: container. \ No newline at end of file diff --git a/packages/Babylonian-ExampleMining.package/BPMethodExampleMorph.extension/methodProperties.json b/packages/Babylonian-ExampleMining.package/BPMethodExampleMorph.extension/methodProperties.json index d729af21..33670c07 100644 --- a/packages/Babylonian-ExampleMining.package/BPMethodExampleMorph.extension/methodProperties.json +++ b/packages/Babylonian-ExampleMining.package/BPMethodExampleMorph.extension/methodProperties.json @@ -2,6 +2,6 @@ "class" : { }, "instance" : { - "addArgumentScriptMorphs" : "joabe 8/9/2023 16:45", - "addReceiverConstructorMorph" : "joabe 8/9/2023 16:45", + "addArgumentScriptMorphs" : "joabe 7/6/2023 22:59", + "addReceiverConstructorMorph" : "joabe 7/6/2023 22:51", "newSpecimenEditingButtonFor:" : "ek 7/24/2023 18:34" } } diff --git a/packages/Babylonian-ExampleMining.package/BPTestCaseExample.class/instance/runOn..st b/packages/Babylonian-ExampleMining.package/BPTestCaseExample.class/instance/runOn..st index c18392f6..51e1581f 100644 --- a/packages/Babylonian-ExampleMining.package/BPTestCaseExample.class/instance/runOn..st +++ b/packages/Babylonian-ExampleMining.package/BPTestCaseExample.class/instance/runOn..st @@ -2,4 +2,4 @@ executing runOn: unused self testCaseClass ifNotNil: [ - self testResult: (self testCaseClass run: self methodSelector)] \ No newline at end of file + self testCaseClass run: self methodSelector] \ No newline at end of file diff --git a/packages/Babylonian-ExampleMining.package/BPTestCaseExample.class/instance/testResult..st b/packages/Babylonian-ExampleMining.package/BPTestCaseExample.class/instance/testResult..st deleted file mode 100644 index 66c9cf7f..00000000 --- a/packages/Babylonian-ExampleMining.package/BPTestCaseExample.class/instance/testResult..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -testResult: aTestResult - - testResult := aTestResult \ No newline at end of file diff --git a/packages/Babylonian-ExampleMining.package/BPTestCaseExample.class/instance/testResult.st b/packages/Babylonian-ExampleMining.package/BPTestCaseExample.class/instance/testResult.st deleted file mode 100644 index 6b3ac61e..00000000 --- a/packages/Babylonian-ExampleMining.package/BPTestCaseExample.class/instance/testResult.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -testResult - - ^ testResult \ No newline at end of file diff --git a/packages/Babylonian-ExampleMining.package/BPTestCaseExample.class/methodProperties.json b/packages/Babylonian-ExampleMining.package/BPTestCaseExample.class/methodProperties.json index 5c62d224..90a56946 100644 --- a/packages/Babylonian-ExampleMining.package/BPTestCaseExample.class/methodProperties.json +++ b/packages/Babylonian-ExampleMining.package/BPTestCaseExample.class/methodProperties.json @@ -8,9 +8,7 @@ "methodSelector" : "joabe 7/10/2023 16:01", "methodSelector:" : "joabe 7/10/2023 16:01", "morphClass" : "joabe 7/10/2023 16:00", - "runOn:" : "joabe 7/10/2023 16:02", + "runOn:" : "pre 8/22/2023 12:04", "testCaseClass" : "joabe 7/10/2023 16:02", "testCaseClass:" : "joabe 7/10/2023 16:01", - "testCaseClassFrom:" : "joabe 7/10/2023 16:04", - "testResult" : "joabe 7/10/2023 16:03", - "testResult:" : "joabe 7/10/2023 16:03" } } + "testCaseClassFrom:" : "joabe 7/10/2023 16:04" } } diff --git a/packages/Babylonian-ExampleMining.package/BPTestCaseExample.class/properties.json b/packages/Babylonian-ExampleMining.package/BPTestCaseExample.class/properties.json index 966e962c..fccbb7ab 100644 --- a/packages/Babylonian-ExampleMining.package/BPTestCaseExample.class/properties.json +++ b/packages/Babylonian-ExampleMining.package/BPTestCaseExample.class/properties.json @@ -7,8 +7,7 @@ "commentStamp" : "", "instvars" : [ "testCaseClass", - "methodSelector", - "testResult" ], + "methodSelector" ], "name" : "BPTestCaseExample", "pools" : [ ], diff --git a/packages/Babylonian-ExampleMining.package/BPTraceValue.extension/instance/allBabylonianInternalClasses.st b/packages/Babylonian-ExampleMining.package/BPTraceValue.extension/instance/allBabylonianInternalClasses.st deleted file mode 100644 index fa2c5b9e..00000000 --- a/packages/Babylonian-ExampleMining.package/BPTraceValue.extension/instance/allBabylonianInternalClasses.st +++ /dev/null @@ -1,8 +0,0 @@ -*Babylonian-ExampleMining-Core-override -allBabylonianInternalClasses - ^ #('Babylonian-Core' 'Babylonian-Compiler' 'Babylonian-UI' 'Babylonian-ProbeLog' 'Babylonian-ExampleMining') - inject: OrderedCollection new - into: [:theClasses :aPackage | - theClasses, (PackageOrganizer default packageNamed: aPackage - ifPresent: [:thePackage | thePackage classes] - ifAbsent: [#()])]. \ No newline at end of file diff --git a/packages/Babylonian-ExampleMining.package/BPTraceValue.extension/methodProperties.json b/packages/Babylonian-ExampleMining.package/BPTraceValue.extension/methodProperties.json deleted file mode 100644 index 236bfdc2..00000000 --- a/packages/Babylonian-ExampleMining.package/BPTraceValue.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "allBabylonianInternalClasses" : "joabe 7/11/2023 15:28" } } diff --git a/packages/Babylonian-ExampleMining.package/BPTraceValue.extension/properties.json b/packages/Babylonian-ExampleMining.package/BPTraceValue.extension/properties.json deleted file mode 100644 index 8c3e8d06..00000000 --- a/packages/Babylonian-ExampleMining.package/BPTraceValue.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "BPTraceValue" } diff --git a/packages/Babylonian-ExampleMining.package/monticello.meta/categories.st b/packages/Babylonian-ExampleMining.package/monticello.meta/categories.st index 0b6eeaa7..b0583e43 100644 --- a/packages/Babylonian-ExampleMining.package/monticello.meta/categories.st +++ b/packages/Babylonian-ExampleMining.package/monticello.meta/categories.st @@ -1,3 +1,3 @@ +SystemOrganization addCategory: #'Babylonian-ExampleMining-Core'! SystemOrganization addCategory: #'Babylonian-ExampleMining-Minimization'! SystemOrganization addCategory: #'Babylonian-ExampleMining-Tests'! -SystemOrganization addCategory: #'Babylonian-ExampleMining-Core'! diff --git a/packages/Babylonian-ProbeLog.package/BPSwimlane.class/instance/update.with..st b/packages/Babylonian-ProbeLog.package/BPSwimlane.class/instance/update.with..st index 7e035103..0a8db8a6 100644 --- a/packages/Babylonian-ProbeLog.package/BPSwimlane.class/instance/update.with..st +++ b/packages/Babylonian-ProbeLog.package/BPSwimlane.class/instance/update.with..st @@ -4,7 +4,14 @@ update: anAspect with: anObject super update: anAspect with: anObject. anAspect = #newTrace ifTrue: [ - anObject first ifNotNil: [ + Project current addDeferredUIMessage: [ + anObject first ifNotNil: [ + anObject first addDependent: self. + self removeAllMorphs. + self visualize]]]. + + (anAspect = #exampleCompleted or: [anAspect = #traceChanged]) ifTrue: [ + Project current addDeferredUIMessage: [ self removeAllMorphs. self visualize]]. diff --git a/packages/Babylonian-ProbeLog.package/BPSwimlane.class/methodProperties.json b/packages/Babylonian-ProbeLog.package/BPSwimlane.class/methodProperties.json index b5c2aa5c..58063118 100644 --- a/packages/Babylonian-ProbeLog.package/BPSwimlane.class/methodProperties.json +++ b/packages/Babylonian-ProbeLog.package/BPSwimlane.class/methodProperties.json @@ -20,7 +20,7 @@ "newTitleMorphFor:" : "jb 2/22/2022 21:29", "stacksFor:" : "pre 11/16/2022 16:05", "titleMorphCloses" : "jb 1/27/2022 17:58", - "update:with:" : "lu 3/7/2022 01:54", + "update:with:" : "pre 8/15/2023 15:52", "updateLayoutToContext" : "jb 11/20/2021 01:33", "visualize" : "lu 3/6/2022 22:45", "visualizeLinesFor:" : "pre 11/16/2022 16:22" } } diff --git a/packages/Babylonian-Tests.package/BPAnnotationMorphsTest.class/instance/setUp.st b/packages/Babylonian-Tests.package/BPAnnotationMorphsTest.class/instance/setUp.st index bf65293f..edfdcbeb 100644 --- a/packages/Babylonian-Tests.package/BPAnnotationMorphsTest.class/instance/setUp.st +++ b/packages/Babylonian-Tests.package/BPAnnotationMorphsTest.class/instance/setUp.st @@ -3,7 +3,7 @@ setUp methodReference := MethodReference class: BPAnnotationMorphsTest selector: #method. source := ('method - -^ ' , Character startOfHeader , '2 + 3') asText. + +^ 2 + 3') asText. expressionInterval := 39 to: 43. \ No newline at end of file diff --git a/packages/Babylonian-Tests.package/BPAnnotationMorphsTest.class/instance/testRenderingSimpleSlider.st b/packages/Babylonian-Tests.package/BPAnnotationMorphsTest.class/instance/testRenderingSimpleSlider.st index 62f6b812..4fd0dac8 100644 --- a/packages/Babylonian-Tests.package/BPAnnotationMorphsTest.class/instance/testRenderingSimpleSlider.st +++ b/packages/Babylonian-Tests.package/BPAnnotationMorphsTest.class/instance/testRenderingSimpleSlider.st @@ -8,10 +8,10 @@ testRenderingSimpleSlider id: 10; asMorph. anchorAttribute := BPTextDecoration new anchoredMorph: slideMorph. - expressionInterval := 57 to: 69. + expressionInterval := 57 to: 68. source := ('methodWithBlock -^ self do: ',Character startOfHeader,'[:r | 2 + 3]') asText. +^ self do: [:r | 2 + 3]') asText. source addAttribute: anchorAttribute from: expressionInterval start to: expressionInterval stop. renderedSource := source asBPSource. diff --git a/packages/Babylonian-Tests.package/BPAnnotationMorphsTest.class/instance/testRenderingSliderWithNestedProbe.st b/packages/Babylonian-Tests.package/BPAnnotationMorphsTest.class/instance/testRenderingSliderWithNestedProbe.st index 422bb643..251df171 100644 --- a/packages/Babylonian-Tests.package/BPAnnotationMorphsTest.class/instance/testRenderingSliderWithNestedProbe.st +++ b/packages/Babylonian-Tests.package/BPAnnotationMorphsTest.class/instance/testRenderingSliderWithNestedProbe.st @@ -5,21 +5,21 @@ testRenderingSliderWithNestedProbe methodReference := MethodReference class: BPAnnotationMorphsTest selector: #methodWithBlock. source := ('methodWithBlock -^ self do: ',Character startOfHeader,'[:r | ',Character startOfHeader,'2 + 3]') asText. +^ self do: [:r | 2 + 3]') asText. sliderMorph := BPSlider new methodReference: methodReference; id: 10; asMorph. anchorAttribute := BPTextDecoration new anchoredMorph: sliderMorph. - source addAttribute: anchorAttribute from: 57 to: 70. + source addAttribute: anchorAttribute from: 57 to: 68. probeMorph := BPProbe new id: 1; methodReference: methodReference; asMorph. anchorAttribute := BPTextDecoration new anchoredMorph: probeMorph. - source addAttribute: anchorAttribute from: 65 to: 69. + source addAttribute: anchorAttribute from: 63 to: 67. renderedSource := source asBPSource. self assert: 'methodWithBlock diff --git a/packages/Babylonian-Tests.package/BPAnnotationMorphsTest.class/instance/testRenderingWithoutExamples.st b/packages/Babylonian-Tests.package/BPAnnotationMorphsTest.class/instance/testRenderingWithoutExamples.st index 0716847c..2b9a0b79 100644 --- a/packages/Babylonian-Tests.package/BPAnnotationMorphsTest.class/instance/testRenderingWithoutExamples.st +++ b/packages/Babylonian-Tests.package/BPAnnotationMorphsTest.class/instance/testRenderingWithoutExamples.st @@ -3,7 +3,7 @@ testRenderingWithoutExamples | example renderedSource anchorAttribute examplesAnnotation examplesMorph | source := ('method -',Character startOfHeader,' + ^ 2 + 3') asText. example := BPMethodExample new method: methodReference compiledMethod; diff --git a/packages/Babylonian-Tests.package/BPAnnotationMorphsTest.class/methodProperties.json b/packages/Babylonian-Tests.package/BPAnnotationMorphsTest.class/methodProperties.json index f7f0a05b..11cf9999 100644 --- a/packages/Babylonian-Tests.package/BPAnnotationMorphsTest.class/methodProperties.json +++ b/packages/Babylonian-Tests.package/BPAnnotationMorphsTest.class/methodProperties.json @@ -8,7 +8,7 @@ "methodWithBlock" : "jb 12/3/2020 22:59", "methodWithBlockAndProbe" : "jb 12/7/2020 19:05", "runCase" : "pre 5/6/2021 17:00", - "setUp" : "pre 7/25/2019 12:06", + "setUp" : "pre 8/17/2023 08:30", "testRenderingExample" : "pre 7/20/2022 15:26", "testRenderingExampleSpecificReplacement" : "pre 7/20/2022 09:30", "testRenderingExampleWithLiveSpecimen" : "pre 1/10/2023 16:41", @@ -23,9 +23,9 @@ "testRenderingSimpleLabelProbe" : "lu 7/9/2021 22:21", "testRenderingSimpleProbe" : "pre 7/20/2022 09:26", "testRenderingSimpleReplacement" : "pre 7/20/2022 09:26", - "testRenderingSimpleSlider" : "pre 7/20/2022 09:26", + "testRenderingSimpleSlider" : "pre 8/17/2023 08:33", "testRenderingSimpleTemporaryProbe" : "pre 11/30/2022 09:52", "testRenderingSimpleTypeProbe" : "pre 11/30/2022 09:50", - "testRenderingSliderWithNestedProbe" : "pre 7/20/2022 09:26", - "testRenderingWithoutExamples" : "pre 7/20/2022 09:30", + "testRenderingSliderWithNestedProbe" : "pre 8/17/2023 09:32", + "testRenderingWithoutExamples" : "pre 8/17/2023 08:35", "testRenderingWorldExample" : "pre 9/6/2022 11:18" } } diff --git a/packages/Babylonian-Tests.package/BPExampleTest.class/instance/expectedFailures.st b/packages/Babylonian-Tests.package/BPExampleTest.class/instance/expectedFailures.st index 252459fb..a1728dc9 100644 --- a/packages/Babylonian-Tests.package/BPExampleTest.class/instance/expectedFailures.st +++ b/packages/Babylonian-Tests.package/BPExampleTest.class/instance/expectedFailures.st @@ -1,4 +1,4 @@ failures expectedFailures - ^ #() \ No newline at end of file + ^ #(testMethodExamplesCanAccessArgumentsInTheTeardown testMethodExamplesCanAccessArgumentsInTheSetup testMethodExamplesCanChangeArgumentsInTheSetup) "Nowadays it is the other way around. Information from the setup is available in the receiver and argument scripts" \ No newline at end of file diff --git a/packages/Babylonian-Tests.package/BPExampleTest.class/instance/testExamplesKnowTheirTimeout.st b/packages/Babylonian-Tests.package/BPExampleTest.class/instance/testExamplesKnowTheirTimeout.st index 362ac1cf..83837855 100644 --- a/packages/Babylonian-Tests.package/BPExampleTest.class/instance/testExamplesKnowTheirTimeout.st +++ b/packages/Babylonian-Tests.package/BPExampleTest.class/instance/testExamplesKnowTheirTimeout.st @@ -1,4 +1,4 @@ tests testExamplesKnowTheirTimeout - self assert: ((method bpExamples collect: [:example | example timeout]) includes: 30000). \ No newline at end of file + self assert: ((method bpExamples collect: [:example | example timeout]) includes: 5000). \ No newline at end of file diff --git a/packages/Babylonian-Tests.package/BPExampleTest.class/methodProperties.json b/packages/Babylonian-Tests.package/BPExampleTest.class/methodProperties.json index f826de4d..d1bcc769 100644 --- a/packages/Babylonian-Tests.package/BPExampleTest.class/methodProperties.json +++ b/packages/Babylonian-Tests.package/BPExampleTest.class/methodProperties.json @@ -3,7 +3,7 @@ }, "instance" : { "createExamples" : "pre 1/11/2023 14:05", - "expectedFailures" : "pre 2/22/2021 17:24", + "expectedFailures" : "pre 8/22/2023 11:39", "runCase" : "pre 5/4/2021 15:23", "setUp" : "pre 1/11/2023 14:04", "tearDown" : "pre 5/20/2021 15:33", @@ -19,7 +19,7 @@ "testExamplesKnowTheirOriginalMethod" : "jb 12/7/2020 19:08", "testExamplesKnowTheirSetUp" : "pre 1/21/2021 16:49", "testExamplesKnowTheirTearDown" : "pre 1/21/2021 16:46", - "testExamplesKnowTheirTimeout" : "joabe 9/29/2022 22:59", + "testExamplesKnowTheirTimeout" : "pre 8/23/2023 13:32", "testGetExamplesForAMethod" : "jb 12/7/2020 19:08", "testGetScriptExamplesForAMethod" : "pre 7/22/2022 21:39", "testLiveSpecimenExample" : "pre 1/10/2023 16:30", diff --git a/packages/Babylonian-Tests.package/BPStylerTest.class/instance/testStylerReusesExamplesMorphWhenStyledAgain.st b/packages/Babylonian-Tests.package/BPStylerTest.class/instance/testStylerReusesExamplesMorphWhenStyledAgain.st index 0abbf99c..1034b220 100644 --- a/packages/Babylonian-Tests.package/BPStylerTest.class/instance/testStylerReusesExamplesMorphWhenStyledAgain.st +++ b/packages/Babylonian-Tests.package/BPStylerTest.class/instance/testStylerReusesExamplesMorphWhenStyledAgain.st @@ -5,11 +5,11 @@ testStylerReusesExamplesMorphWhenStyledAgain originalSourceCode := 'method' asText. formattedSourceCode := styler format: originalSourceCode. - oldAttributes := formattedSourceCode attributesAt: (formattedSourceCode asString indexOf: Character startOfHeader). + oldAttributes := formattedSourceCode attributesAt: 1. oldAttributes := oldAttributes select: [:anAttribute | styler hasExamplesMorph: anAttribute]. formattedSourceCode := styler format: formattedSourceCode. - newAttributes := formattedSourceCode attributesAt: (formattedSourceCode asString indexOf: Character startOfHeader). + newAttributes := formattedSourceCode attributesAt: 1. newAttributes := newAttributes select: [:anAttribute | styler hasExamplesMorph: anAttribute]. self assert: oldAttributes first identical: newAttributes first. diff --git a/packages/Babylonian-Tests.package/BPStylerTest.class/methodProperties.json b/packages/Babylonian-Tests.package/BPStylerTest.class/methodProperties.json index fcdafa54..6f2db5c5 100644 --- a/packages/Babylonian-Tests.package/BPStylerTest.class/methodProperties.json +++ b/packages/Babylonian-Tests.package/BPStylerTest.class/methodProperties.json @@ -15,7 +15,7 @@ "testStylerAddsExamplesMorphForEmptyTwoNewLinedMethodBody" : "jb 8/29/2021 20:32", "testStylerAddsExamplesMorphForSomeFilledMethodBody" : "jb 8/29/2021 20:44", "testStylerCanCopeWithProbeWithinSliderRange" : "pre 9/2/2022 16:10", - "testStylerReusesExamplesMorphWhenStyledAgain" : "jb 8/29/2021 20:43", + "testStylerReusesExamplesMorphWhenStyledAgain" : "pre 8/17/2023 08:38", "testStylerSetsAnchorAttributeForAttributeProbe" : "pre 7/23/2022 16:14", "testStylerSetsAnchorAttributeForNestedProbes" : "jb 10/24/2021 22:16", "testStylerSetsAnchorAttributeForProbe" : "jb 10/24/2021 22:16", diff --git a/packages/Babylonian-Tests.package/BPTestExamplesClass.class/instance/binarySearchIn.theElement..st b/packages/Babylonian-Tests.package/BPTestExamplesClass.class/instance/binarySearchIn.theElement..st index ba8f74a9..59a99962 100644 --- a/packages/Babylonian-Tests.package/BPTestExamplesClass.class/instance/binarySearchIn.theElement..st +++ b/packages/Babylonian-Tests.package/BPTestExamplesClass.class/instance/binarySearchIn.theElement..st @@ -1,9 +1,9 @@ example methods binarySearchIn: aCollection theElement: anElement - - - - + + + + | index low test distance high | low := 1. high := aCollection size. diff --git a/packages/Babylonian-Tests.package/BPTestExamplesClass.class/methodProperties.json b/packages/Babylonian-Tests.package/BPTestExamplesClass.class/methodProperties.json index 9a1ac90e..69e5da6b 100644 --- a/packages/Babylonian-Tests.package/BPTestExamplesClass.class/methodProperties.json +++ b/packages/Babylonian-Tests.package/BPTestExamplesClass.class/methodProperties.json @@ -9,7 +9,7 @@ "instance" : { "+" : "pre 7/1/2019 14:23", "addAndLog:" : "pre 5/3/2021 10:36", - "binarySearchIn:theElement:" : "pre 1/21/2021 16:48", + "binarySearchIn:theElement:" : "ek 9/29/2023 09:13", "methodOnlyWithExample" : "pre 11/18/2019 12:07", "methodWithExampleCallingOnlyProbedMethod" : "jb 7/2/2021 00:56", "methodWithLiveSpecimen:" : "pre 9/30/2020 09:41", diff --git a/packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/editFieldFor.text.onChange.onAccept..st b/packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/editFieldFor.text.onChange.onAccept..st index ab9fe5dc..b8c3389c 100644 --- a/packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/editFieldFor.text.onChange.onAccept..st +++ b/packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/editFieldFor.text.onChange.onAccept..st @@ -15,5 +15,7 @@ editFieldFor: model text: getTextSelector onChange: setTextSelector onAccept: ac wrapFlag: true; wantsFrameAdornments: false; cellPositioning: #topLeft; - layoutInset: 0. + layoutInset: 0; + width: ((TextStyle defaultFont widthOfString: (model perform: getTextSelector)) + (self fontWidth) + max: (20 * self fontWidth)). ^ pluggableTextMorph \ No newline at end of file diff --git a/packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/editFieldStyledInitialContent.onChange.onAccept..st b/packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/editFieldStyledInitialContent.onChange.onAccept..st index f54663cd..7aac373f 100644 --- a/packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/editFieldStyledInitialContent.onChange.onAccept..st +++ b/packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/editFieldStyledInitialContent.onChange.onAccept..st @@ -9,7 +9,6 @@ editFieldStyledInitialContent: aText onChange: changeBlock onAccept: acceptBlock onAccept: acceptBlock. field - hResizing: #spaceFill; styler: (SHTextStylerST80 new view: field); updateStyleNow. diff --git a/packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/getTraces.st b/packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/getTraces.st index b507f5df..98001f87 100644 --- a/packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/getTraces.st +++ b/packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/getTraces.st @@ -1,6 +1,4 @@ private getTraces - ^ BPExamples value paddedTracesOfActiveExamples - reject: [:aTrace | aTrace isNil] - \ No newline at end of file + ^ BPExamples value paddedTracesOfActiveExamples \ No newline at end of file diff --git a/packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/initialize.st b/packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/initialize.st index 55313e41..88534ca0 100644 --- a/packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/initialize.st +++ b/packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/initialize.st @@ -11,7 +11,7 @@ initialize listDirection: #leftToRight; vResizing: #shrinkWrap; cellInset: 1; - layoutInset: 5@1. + layoutInset: 1. BPStyler withSidebarAnnotations: [ diff --git a/packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/rightSidePadding.st b/packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/rightSidePadding.st deleted file mode 100644 index 2a0b76f0..00000000 --- a/packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/rightSidePadding.st +++ /dev/null @@ -1,4 +0,0 @@ -ui -rightSidePadding - - ^ 40 \ No newline at end of file diff --git a/packages/Babylonian-UI.package/BPAnnotationMorph.class/methodProperties.json b/packages/Babylonian-UI.package/BPAnnotationMorph.class/methodProperties.json index 126db0d1..8e01f64b 100644 --- a/packages/Babylonian-UI.package/BPAnnotationMorph.class/methodProperties.json +++ b/packages/Babylonian-UI.package/BPAnnotationMorph.class/methodProperties.json @@ -17,9 +17,9 @@ "codeContentChanged" : "pre 1/21/2021 16:45", "containingBrowser" : "pre 1/6/2021 19:45", "createErrorIndicatorFor:" : "pre 2/22/2021 12:15", - "editFieldFor:text:onChange:onAccept:" : "joabe 8/22/2023 17:40", + "editFieldFor:text:onChange:onAccept:" : "pre 6/7/2021 16:27", "editFieldInitialContent:onChange:onAccept:" : "pre 7/20/2022 17:19", - "editFieldStyledInitialContent:onChange:onAccept:" : "joabe 8/22/2023 17:45", + "editFieldStyledInitialContent:onChange:onAccept:" : "pre 7/20/2022 17:17", "emptyTraces" : "pre 5/3/2021 16:56", "ensureErrorIndicatorFor:" : "jb 12/7/2020 18:57", "ensureNoErrorIndicator" : "jb 12/7/2020 18:57", @@ -27,11 +27,11 @@ "fontHeight" : "pre 11/18/2019 10:40", "fontWidth" : "pre 11/18/2019 10:43", "getErrorIndicator" : "pre 8/17/2020 09:17", - "getTraces" : "pre 5/3/2021 16:56", + "getTraces" : "pre 8/23/2023 10:53", "iconSize" : "pre 7/24/2019 13:18", "id" : "pre 7/2/2019 16:38", "id:" : "pre 7/2/2019 16:38", - "initialize" : "joabe 8/9/2023 16:59", + "initialize" : "joabe 5/31/2023 14:28", "isAssertion" : "pre 7/3/2019 11:11", "isBPAnnotationMorph" : "pre 7/3/2019 11:10", "isExample" : "pre 7/23/2019 12:47", @@ -51,7 +51,6 @@ "openInBrowser" : "jb 2/22/2022 20:45", "refreshTextComposition" : "pre 1/11/2021 11:31", "removeButtonClicked" : "jb 12/7/2020 18:57", - "rightSidePadding" : "joabe 8/22/2023 16:36", "scrollBarSize" : "pre 7/23/2019 11:18", "smallFontHeight" : "pre 10/6/2020 16:54", "startTag" : "pre 7/25/2019 15:42", diff --git a/packages/Babylonian-UI.package/BPBrowser.class/class/initialize.st b/packages/Babylonian-UI.package/BPBrowser.class/class/initialize.st index 05867e72..8e6cffe2 100644 --- a/packages/Babylonian-UI.package/BPBrowser.class/class/initialize.st +++ b/packages/Babylonian-UI.package/BPBrowser.class/class/initialize.st @@ -11,4 +11,6 @@ initialize menu registerOpenCommand: {'Babylonian Browser'. {self. #open}}]]. ContentsSymbolQuints := self defaultContentsSymbolQuints asOrderedCollection. - Smalltalk addToStartUpList: self. \ No newline at end of file + Smalltalk addToStartUpList: self. + + SmalltalkEditor cmdActions at: $u asciiValue + 1 put: #probeIt:. \ No newline at end of file diff --git a/packages/Babylonian-UI.package/BPBrowser.class/methodProperties.json b/packages/Babylonian-UI.package/BPBrowser.class/methodProperties.json index 514985ae..052a5991 100644 --- a/packages/Babylonian-UI.package/BPBrowser.class/methodProperties.json +++ b/packages/Babylonian-UI.package/BPBrowser.class/methodProperties.json @@ -4,7 +4,7 @@ "automaticallyAcceptMethodOnAddingAnnotations:" : "pre 6/7/2021 14:35", "compilerClass" : "pre 7/26/2019 10:07", "defaultContentsSymbolQuints" : "jb 10/30/2021 17:40", - "initialize" : "joabe 5/30/2023 16:17", + "initialize" : "pre 9/28/2023 14:10", "probeLogSymbol" : "joabe 5/9/2023 17:05", "startUp" : "jb 12/3/2020 23:07" }, "instance" : { diff --git a/packages/Babylonian-UI.package/BPExampleConfigurationEditor.class/instance/aboutToStyle..st b/packages/Babylonian-UI.package/BPExampleConfigurationEditor.class/instance/aboutToStyle..st index fe7cedb9..37240c7d 100644 --- a/packages/Babylonian-UI.package/BPExampleConfigurationEditor.class/instance/aboutToStyle..st +++ b/packages/Babylonian-UI.package/BPExampleConfigurationEditor.class/instance/aboutToStyle..st @@ -3,5 +3,5 @@ aboutToStyle: aStyler aStyler classOrMetaClass: nil; - workspace: self example prepareRunState. + workspace: ([self example prepareRunState] on: Error do: [:e | nil]). ^true \ No newline at end of file diff --git a/packages/Babylonian-UI.package/BPExampleConfigurationEditor.class/methodProperties.json b/packages/Babylonian-UI.package/BPExampleConfigurationEditor.class/methodProperties.json index 0bde483d..388e5a85 100644 --- a/packages/Babylonian-UI.package/BPExampleConfigurationEditor.class/methodProperties.json +++ b/packages/Babylonian-UI.package/BPExampleConfigurationEditor.class/methodProperties.json @@ -2,7 +2,7 @@ "class" : { }, "instance" : { - "aboutToStyle:" : "pre 8/6/2021 18:10", + "aboutToStyle:" : "pre 8/22/2023 09:56", "buildWith:" : "pre 8/6/2021 18:08", "example" : "pre 1/21/2021 16:31", "example:" : "pre 1/21/2021 16:31", diff --git a/packages/Babylonian-UI.package/BPExampleMorph.class/instance/addExampleSpecificMorphs.st b/packages/Babylonian-UI.package/BPExampleMorph.class/instance/addExampleSpecificMorphs.st index ac68dd27..2995c216 100644 --- a/packages/Babylonian-UI.package/BPExampleMorph.class/instance/addExampleSpecificMorphs.st +++ b/packages/Babylonian-UI.package/BPExampleMorph.class/instance/addExampleSpecificMorphs.st @@ -3,8 +3,8 @@ addExampleSpecificMorphs exampleSpecificMorphs := self newContainerMorph. exampleSpecificMorphs - hResizing: #spaceFill; + hResizing: #shrinkWrap; listDirection: #topToBottom; cellPositioning: #topLeft; - cellGap: ((self fontHeight * 0.2) rounded max: 2). + cellGap: ((self fontHeight * 0.2) rounded max: 2). self addMorphBack: exampleSpecificMorphs. \ No newline at end of file diff --git a/packages/Babylonian-UI.package/BPExampleMorph.class/instance/initialize.st b/packages/Babylonian-UI.package/BPExampleMorph.class/instance/initialize.st index 5702f2b5..e47bd114 100644 --- a/packages/Babylonian-UI.package/BPExampleMorph.class/instance/initialize.st +++ b/packages/Babylonian-UI.package/BPExampleMorph.class/instance/initialize.st @@ -8,12 +8,10 @@ initialize BPStyler withSidebarAnnotations: [ self wrapDirection: #leftToRight; - hResizing: #spaceFill; + hResizing: #shrinkWrap; vResizing: #shrinkWrap]. self cellPositioning: #leftCenter; cellInset: 0; - cellGap: ((0.7 * self fontWidth) rounded max: 2); - layoutInset: 20@2; - hResizing: #spaceFill. \ No newline at end of file + cellGap: ((0.7 * self fontWidth) rounded max: 2) \ No newline at end of file diff --git a/packages/Babylonian-UI.package/BPExampleMorph.class/instance/newLabelContainerMorph..st b/packages/Babylonian-UI.package/BPExampleMorph.class/instance/newLabelContainerMorph..st index dec4a39d..f2cba9a5 100644 --- a/packages/Babylonian-UI.package/BPExampleMorph.class/instance/newLabelContainerMorph..st +++ b/packages/Babylonian-UI.package/BPExampleMorph.class/instance/newLabelContainerMorph..st @@ -2,10 +2,7 @@ private - ui newLabelContainerMorph: aLabelString | container label | - container := self newContainerMorph - cellPositioning: #topLeft; - hResizing: #spaceFill; - yourself. + container := self newContainerMorph cellPositioning: #topLeft; yourself. label := aLabelString asMorph color: self class textColor; borderWidth: 0; diff --git a/packages/Babylonian-UI.package/BPExampleMorph.class/methodProperties.json b/packages/Babylonian-UI.package/BPExampleMorph.class/methodProperties.json index 38098786..cc31b41f 100644 --- a/packages/Babylonian-UI.package/BPExampleMorph.class/methodProperties.json +++ b/packages/Babylonian-UI.package/BPExampleMorph.class/methodProperties.json @@ -8,7 +8,7 @@ "addCollapseButtonMorph" : "pre 7/19/2022 15:28", "addDeleteButtonMorph" : "pre 2/22/2021 12:06", "addExampleNameMorph" : "pre 2/22/2021 12:06", - "addExampleSpecificMorphs" : "joabe 8/9/2023 16:50", + "addExampleSpecificMorphs" : "jb 12/5/2021 02:01", "addLoaderIconHolder" : "jb 12/7/2020 18:58", "addMenuButtonMorph" : "lu 1/25/2022 00:15", "applyUserInterfaceTheme" : "joabe 7/4/2023 11:57", @@ -28,12 +28,12 @@ "example:" : "jb 12/7/2020 18:58", "expand" : "pre 7/19/2022 15:29", "expandInExamplesMorph" : "pre 7/19/2022 15:41", - "initialize" : "joabe 8/9/2023 17:00", + "initialize" : "pre 5/3/2021 12:00", "isCollapsed" : "pre 1/12/2021 10:20", "isExample" : "pre 9/30/2020 10:34", "isExampleActive" : "pre 9/30/2020 10:34", "menuContentsSymbolQuints" : "joabe 5/9/2023 17:34", - "newLabelContainerMorph:" : "joabe 8/22/2023 17:47", + "newLabelContainerMorph:" : "joabe 7/4/2023 12:10", "newMenuButton" : "lu 2/15/2022 09:47", "offerMenuContent" : "lu 1/24/2022 23:40", "openExampleInDockedProbeLog" : "joabe 5/9/2023 17:33", diff --git a/packages/Babylonian-UI.package/BPExamplesBrowser.class/instance/actualExampleList.st b/packages/Babylonian-UI.package/BPExamplesBrowser.class/instance/actualExampleList.st index f09d2635..8eaf2e40 100644 --- a/packages/Babylonian-UI.package/BPExamplesBrowser.class/instance/actualExampleList.st +++ b/packages/Babylonian-UI.package/BPExamplesBrowser.class/instance/actualExampleList.st @@ -10,4 +10,4 @@ actualExampleList writing browsers is boring --pre" (anExample isActive ifTrue: ['aaa'] - ifFalse: ['xxx']) , anExample exampleName] ascending] \ No newline at end of file + ifFalse: ['xxx']) , (self exampleLabelFor: anExample)] ascending] \ No newline at end of file diff --git a/packages/Babylonian-UI.package/BPExamplesBrowser.class/instance/actualPackageList.st b/packages/Babylonian-UI.package/BPExamplesBrowser.class/instance/actualPackageList.st index 97b190f6..0b8313b0 100644 --- a/packages/Babylonian-UI.package/BPExamplesBrowser.class/instance/actualPackageList.st +++ b/packages/Babylonian-UI.package/BPExamplesBrowser.class/instance/actualPackageList.st @@ -3,5 +3,5 @@ actualPackageList ^ packageList ifNil: [ packageList := (SystemNavigation default allExamples - collect: [:anExample | anExample method methodClass package]) asSet + collect: [:anExample | PackageOrganizer default packageOfMethod: anExample method methodReference]) asSet sorted: [:aPackage | aPackage name] ascending] \ No newline at end of file diff --git a/packages/Babylonian-UI.package/BPExamplesBrowser.class/instance/exampleLabelFor..st b/packages/Babylonian-UI.package/BPExamplesBrowser.class/instance/exampleLabelFor..st new file mode 100644 index 00000000..e84210fe --- /dev/null +++ b/packages/Babylonian-UI.package/BPExamplesBrowser.class/instance/exampleLabelFor..st @@ -0,0 +1,8 @@ +accessing +exampleLabelFor: anExample + + ^ anExample method methodClass className asString , + ' - ' , + anExample method selector asString , + ' - ' , + anExample exampleName asString \ No newline at end of file diff --git a/packages/Babylonian-UI.package/BPExamplesBrowser.class/instance/exampleList.st b/packages/Babylonian-UI.package/BPExamplesBrowser.class/instance/exampleList.st index 88437c9f..6f058cd3 100644 --- a/packages/Babylonian-UI.package/BPExamplesBrowser.class/instance/exampleList.st +++ b/packages/Babylonian-UI.package/BPExamplesBrowser.class/instance/exampleList.st @@ -2,10 +2,6 @@ accessing exampleList ^ self actualExampleList collect: [:e | |text| - text := (e method methodClass className asString , - ' - ' , - e method selector asString , - ' - ' , - e exampleName asString) asText. + text := (self exampleLabelFor: e) asText. e isActive ifTrue: [text allBold]. text] \ No newline at end of file diff --git a/packages/Babylonian-UI.package/BPExamplesBrowser.class/methodProperties.json b/packages/Babylonian-UI.package/BPExamplesBrowser.class/methodProperties.json index dfe32559..55f052f6 100644 --- a/packages/Babylonian-UI.package/BPExamplesBrowser.class/methodProperties.json +++ b/packages/Babylonian-UI.package/BPExamplesBrowser.class/methodProperties.json @@ -2,12 +2,13 @@ "class" : { "open" : "pre 10/13/2020 15:15" }, "instance" : { - "actualExampleList" : "pre 2/15/2021 11:15", - "actualPackageList" : "pre 1/10/2023 12:26", + "actualExampleList" : "pre 8/21/2023 11:49", + "actualPackageList" : "pre 8/21/2023 10:31", "buildExamplesListWith:" : "pre 10/13/2020 14:49", "buildPackagesListWith:" : "pre 10/13/2020 14:45", "buildWith:" : "pre 10/13/2020 14:51", - "exampleList" : "pre 10/13/2020 15:11", + "exampleLabelFor:" : "pre 8/21/2023 11:49", + "exampleList" : "pre 8/21/2023 11:50", "exampleList:" : "jb 12/7/2020 19:02", "exampleListIndex" : "pre 10/13/2020 14:52", "exampleListIndex:" : "jb 12/7/2020 19:02", diff --git a/packages/Babylonian-UI.package/BPExamplesMorph.class/instance/step.st b/packages/Babylonian-UI.package/BPExamplesMorph.class/instance/step.st index d69a4842..b950069d 100644 --- a/packages/Babylonian-UI.package/BPExamplesMorph.class/instance/step.st +++ b/packages/Babylonian-UI.package/BPExamplesMorph.class/instance/step.st @@ -1,5 +1,5 @@ -stepping and presenter +stepping step BPStyler withoutSidebarAnnotations: [ - self width: self owner width - self rightSidePadding] \ No newline at end of file + self width: self owner width - 40] \ No newline at end of file diff --git a/packages/Babylonian-UI.package/BPExamplesMorph.class/methodProperties.json b/packages/Babylonian-UI.package/BPExamplesMorph.class/methodProperties.json index 978b50aa..ab992f15 100644 --- a/packages/Babylonian-UI.package/BPExamplesMorph.class/methodProperties.json +++ b/packages/Babylonian-UI.package/BPExamplesMorph.class/methodProperties.json @@ -21,7 +21,7 @@ "initialize" : "joabe 5/31/2023 18:31", "isExamples" : "pre 11/25/2020 16:52", "rememberThat:hasACollapsedStateOf:" : "pre 7/19/2022 15:23", - "step" : "joabe 8/22/2023 16:42", + "step" : "pre 1/21/2021 18:20", "stepTime" : "pre 1/21/2021 18:01", "textEmphasis" : "pre 7/20/2022 16:41", "update:" : "pre 5/6/2021 16:49", diff --git a/packages/Babylonian-UI.package/BPMethodExampleMorph.class/instance/defaultCellInset.st b/packages/Babylonian-UI.package/BPMethodExampleMorph.class/instance/defaultCellInset.st deleted file mode 100644 index 7f3a8e67..00000000 --- a/packages/Babylonian-UI.package/BPMethodExampleMorph.class/instance/defaultCellInset.st +++ /dev/null @@ -1,4 +0,0 @@ -private - ui -defaultCellInset - - ^ 3@0 \ No newline at end of file diff --git a/packages/Babylonian-UI.package/BPMethodExampleMorph.class/instance/defaultLayoutInset.st b/packages/Babylonian-UI.package/BPMethodExampleMorph.class/instance/defaultLayoutInset.st deleted file mode 100644 index 410f9eb9..00000000 --- a/packages/Babylonian-UI.package/BPMethodExampleMorph.class/instance/defaultLayoutInset.st +++ /dev/null @@ -1,4 +0,0 @@ -private - ui -defaultLayoutInset - - ^ 20@0 \ No newline at end of file diff --git a/packages/Babylonian-UI.package/BPMethodExampleMorph.class/methodProperties.json b/packages/Babylonian-UI.package/BPMethodExampleMorph.class/methodProperties.json index d8787587..005915a3 100644 --- a/packages/Babylonian-UI.package/BPMethodExampleMorph.class/methodProperties.json +++ b/packages/Babylonian-UI.package/BPMethodExampleMorph.class/methodProperties.json @@ -5,7 +5,5 @@ "addArgumentScriptMorphs" : "joabe 7/4/2023 11:23", "addExampleSpecificMorphs" : "pre 1/8/2021 13:48", "addReceiverConstructorMorph" : "joabe 7/4/2023 11:24", - "defaultCellInset" : "joabe 8/9/2023 16:46", - "defaultLayoutInset" : "joabe 8/9/2023 16:46", "newSpecimenSelectionButtonOnClick:" : "jb 12/5/2021 01:50", "selectLiveSpecimen:then:" : "pre 1/10/2023 16:19" } } diff --git a/packages/Babylonian-UI.package/BPProbeMorph.class/instance/exploreButtonClickedFor..st b/packages/Babylonian-UI.package/BPProbeMorph.class/instance/exploreButtonClickedFor..st index 82c52f31..c17d144b 100644 --- a/packages/Babylonian-UI.package/BPProbeMorph.class/instance/exploreButtonClickedFor..st +++ b/packages/Babylonian-UI.package/BPProbeMorph.class/instance/exploreButtonClickedFor..st @@ -1,4 +1,4 @@ actions -exploreButtonClickedFor: tracedValues +exploreButtonClickedFor: trace - (tracedValues collect: [:aValue | aValue tracedValue]) explore. \ No newline at end of file + ((trace valuesForProbeId: self id) collect: [:aValue | aValue tracedValue]) explore. \ No newline at end of file diff --git a/packages/Babylonian-UI.package/BPProbeMorph.class/instance/newExploreButtonFor..st b/packages/Babylonian-UI.package/BPProbeMorph.class/instance/newExploreButtonFor..st index 5c3c91aa..65c2a3fa 100644 --- a/packages/Babylonian-UI.package/BPProbeMorph.class/instance/newExploreButtonFor..st +++ b/packages/Babylonian-UI.package/BPProbeMorph.class/instance/newExploreButtonFor..st @@ -10,7 +10,7 @@ newExploreButtonFor: aTrace extent: (exploreButton extent x * 0.9)@(exploreButton extent y + self scrollBarSize). exploreButton actionSelector: #exploreButtonClickedFor:; - arguments: {aTrace valuesForProbeId: self id}; + arguments: {aTrace}; target: self; balloonText: 'click to see the traced values of this probe'. ^ exploreButton \ No newline at end of file diff --git a/packages/Babylonian-UI.package/BPProbeMorph.class/methodProperties.json b/packages/Babylonian-UI.package/BPProbeMorph.class/methodProperties.json index 8765ae17..d872c408 100644 --- a/packages/Babylonian-UI.package/BPProbeMorph.class/methodProperties.json +++ b/packages/Babylonian-UI.package/BPProbeMorph.class/methodProperties.json @@ -9,13 +9,13 @@ "ensureInputBoxNamed:atFront:" : "lu 6/1/2021 22:26", "ensureLineMorphFor:" : "jb 4/17/2021 01:37", "exceptionTextFor:" : "pre 5/3/2021 11:09", - "exploreButtonClickedFor:" : "jb 12/7/2020 19:00", + "exploreButtonClickedFor:" : "pre 8/21/2023 12:38", "haltButtonClickedFor:and:" : "pre 2/22/2021 12:17", "iconForValue:" : "pre 5/19/2021 21:28", "isProbe" : "pre 7/3/2019 11:11", "newButtonMorphWithLabel:doOnClick:" : "joabe 7/1/2023 20:22", "newContainerMorph" : "lu 6/7/2021 15:36", - "newExploreButtonFor:" : "jb 4/18/2021 03:41", + "newExploreButtonFor:" : "pre 8/21/2023 12:37", "newExpressionMorph" : "jb 12/5/2021 01:22", "newHaltButtonFor:" : "lu 6/23/2021 23:06", "newLabelContainerMorph" : "pre 6/8/2021 10:52", diff --git a/packages/Babylonian-UI.package/BPScriptExampleMorph.class/instance/addScriptMorph.st b/packages/Babylonian-UI.package/BPScriptExampleMorph.class/instance/addScriptMorph.st index c368105a..3a2b6797 100644 --- a/packages/Babylonian-UI.package/BPScriptExampleMorph.class/instance/addScriptMorph.st +++ b/packages/Babylonian-UI.package/BPScriptExampleMorph.class/instance/addScriptMorph.st @@ -3,6 +3,7 @@ addScriptMorph | editField container | container := self newLabelContainerMorph: 'script: '. + editField := (self editFieldStyledInitialContent: self example script onChange: [:str | diff --git a/packages/Babylonian-UI.package/BPScriptExampleMorph.class/methodProperties.json b/packages/Babylonian-UI.package/BPScriptExampleMorph.class/methodProperties.json index d4d2fbea..8f8faffa 100644 --- a/packages/Babylonian-UI.package/BPScriptExampleMorph.class/methodProperties.json +++ b/packages/Babylonian-UI.package/BPScriptExampleMorph.class/methodProperties.json @@ -3,4 +3,4 @@ }, "instance" : { "addExampleSpecificMorphs" : "pre 1/8/2021 13:48", - "addScriptMorph" : "joabe 8/9/2023 14:18" } } + "addScriptMorph" : "joabe 7/4/2023 12:11" } } diff --git a/packages/Babylonian-UI.package/BPStyler.class/instance/isAlreadyAnnotatedExpressionAt.in..st b/packages/Babylonian-UI.package/BPStyler.class/instance/isAlreadyAnnotatedExpressionAt.in..st index 4ebeb5d8..00fa6482 100644 --- a/packages/Babylonian-UI.package/BPStyler.class/instance/isAlreadyAnnotatedExpressionAt.in..st +++ b/packages/Babylonian-UI.package/BPStyler.class/instance/isAlreadyAnnotatedExpressionAt.in..st @@ -1,5 +1,4 @@ private isAlreadyAnnotatedExpressionAt: expressionStart in: aText - ^ (aText at: expressionStart - 1) = Character startOfHeader - \ No newline at end of file + ^ (aText attributesAt: expressionStart - 1) anySatisfy: [:a | a isBPDecoration] \ No newline at end of file diff --git a/packages/Babylonian-UI.package/BPStyler.class/methodProperties.json b/packages/Babylonian-UI.package/BPStyler.class/methodProperties.json index 654fa918..c713aa8d 100644 --- a/packages/Babylonian-UI.package/BPStyler.class/methodProperties.json +++ b/packages/Babylonian-UI.package/BPStyler.class/methodProperties.json @@ -15,7 +15,7 @@ "hasExamplesMorph:" : "pre 7/20/2022 09:31", "ifNoSelectedMethod:" : "pre 3/19/2020 11:07", "insertExamplesMorphInto:" : "pre 7/20/2022 10:45", - "isAlreadyAnnotatedExpressionAt:in:" : "pre 5/29/2019 22:40", + "isAlreadyAnnotatedExpressionAt:in:" : "pre 8/17/2023 08:38", "privateFormat:" : "jb 12/3/2020 23:35", "reformat:basedOn:" : "pre 7/20/2022 16:59", "selectedMethod:" : "ct 8/20/2021 06:24", diff --git a/packages/Babylonian-UI.package/BPTextDecoration.class/instance/isBPDecoration.st b/packages/Babylonian-UI.package/BPTextDecoration.class/instance/isBPDecoration.st new file mode 100644 index 00000000..a6ea6cd1 --- /dev/null +++ b/packages/Babylonian-UI.package/BPTextDecoration.class/instance/isBPDecoration.st @@ -0,0 +1,4 @@ +testing +isBPDecoration + + ^ true \ No newline at end of file diff --git a/packages/Babylonian-UI.package/BPTextDecoration.class/methodProperties.json b/packages/Babylonian-UI.package/BPTextDecoration.class/methodProperties.json index 2d5dfcb3..bc5dade6 100644 --- a/packages/Babylonian-UI.package/BPTextDecoration.class/methodProperties.json +++ b/packages/Babylonian-UI.package/BPTextDecoration.class/methodProperties.json @@ -5,6 +5,7 @@ "emphasisCode" : "pre 11/8/2019 13:33", "emphasizeScanner:" : "pre 9/2/2022 15:35", "initialize" : "pre 7/19/2022 17:54", + "isBPDecoration" : "pre 8/17/2023 08:37", "isOblivious" : "pre 7/9/2021 16:59", "mayBeExtended" : "pre 11/9/2019 16:10", "placeObject:from:at:" : "pre 8/18/2022 09:19", diff --git a/packages/Babylonian-UI.package/BPTextReadWriter.class/instance/writeContent..st b/packages/Babylonian-UI.package/BPTextReadWriter.class/instance/writeContent..st index 329f16f8..0f315f70 100644 --- a/packages/Babylonian-UI.package/BPTextReadWriter.class/instance/writeContent..st +++ b/packages/Babylonian-UI.package/BPTextReadWriter.class/instance/writeContent..st @@ -1,4 +1,4 @@ writing writeContent: aString - aString do: [:char | char = Character startOfHeader ifFalse: [self nextPut: char]]. \ No newline at end of file + aString do: [:char | self nextPut: char]. \ No newline at end of file diff --git a/packages/Babylonian-UI.package/BPTextReadWriter.class/methodProperties.json b/packages/Babylonian-UI.package/BPTextReadWriter.class/methodProperties.json index 30174b03..ea364c59 100644 --- a/packages/Babylonian-UI.package/BPTextReadWriter.class/methodProperties.json +++ b/packages/Babylonian-UI.package/BPTextReadWriter.class/methodProperties.json @@ -12,6 +12,6 @@ "nextPut:" : "pre 7/3/2019 10:48", "nextPutAll:" : "pre 7/3/2019 10:45", "nextPutText:" : "pre 7/20/2022 14:25", - "writeContent:" : "jb 12/7/2020 19:03", + "writeContent:" : "pre 8/17/2023 08:39", "writeEndTagFor:" : "jb 12/7/2020 19:03", "writeStartTagFor:" : "pre 7/20/2022 14:27" } } diff --git a/packages/Babylonian-UI.package/BPTraceBasedMorph.class/instance/annotation..st b/packages/Babylonian-UI.package/BPTraceBasedMorph.class/instance/annotation..st new file mode 100644 index 00000000..7c6c7cf9 --- /dev/null +++ b/packages/Babylonian-UI.package/BPTraceBasedMorph.class/instance/annotation..st @@ -0,0 +1,5 @@ +accessing +annotation: aBPAnnotation + + super annotation: aBPAnnotation. + self updateTraces. \ No newline at end of file diff --git a/packages/Babylonian-UI.package/BPTraceBasedMorph.class/instance/initialize.st b/packages/Babylonian-UI.package/BPTraceBasedMorph.class/instance/initialize.st index 4b674f13..20b2d7a0 100644 --- a/packages/Babylonian-UI.package/BPTraceBasedMorph.class/instance/initialize.st +++ b/packages/Babylonian-UI.package/BPTraceBasedMorph.class/instance/initialize.st @@ -5,7 +5,6 @@ initialize | removeButton | super initialize. - allTracesCompleted := false. slidersForFiltering := Set new. displayedTraces := Set new. @@ -19,4 +18,6 @@ initialize self addMorphBack: widgetsMorph. widgetsMorph addMorphBack: tracesMorph. - self addMorphBack: removeButton. \ No newline at end of file + self addMorphBack: removeButton. + + BPExamples value addDependent: self. \ No newline at end of file diff --git a/packages/Babylonian-UI.package/BPTraceBasedMorph.class/instance/step.st b/packages/Babylonian-UI.package/BPTraceBasedMorph.class/instance/step.st deleted file mode 100644 index 5b2d8b00..00000000 --- a/packages/Babylonian-UI.package/BPTraceBasedMorph.class/instance/step.st +++ /dev/null @@ -1,19 +0,0 @@ -stepping and presenter -step - - | newTraces tracesChanged | - self methodReference ifNil: [^ false]. - - self resetHeight. - - newTraces := self getTraces asIdentitySet. - tracesChanged := newTraces ~= displayedTraces. - - (allTracesCompleted not or: [tracesChanged]) ifTrue: [ - allTracesCompleted := newTraces - ifEmpty: [true] - ifNotEmpty: [:ts | ts allSatisfy: [:t | t hasTraceCompleted]]. - self updateFrom: (newTraces ifEmpty: [self emptyTraces]). - displayedTraces := newTraces]. - - tracesChanged ifTrue: [self refreshTextComposition]. \ No newline at end of file diff --git a/packages/Babylonian-UI.package/BPTraceBasedMorph.class/instance/stepTime.st b/packages/Babylonian-UI.package/BPTraceBasedMorph.class/instance/stepTime.st deleted file mode 100644 index b7fabca7..00000000 --- a/packages/Babylonian-UI.package/BPTraceBasedMorph.class/instance/stepTime.st +++ /dev/null @@ -1,4 +0,0 @@ -stepping and presenter -stepTime - - ^ 100 \ No newline at end of file diff --git a/packages/Babylonian-UI.package/BPTraceBasedMorph.class/instance/update..st b/packages/Babylonian-UI.package/BPTraceBasedMorph.class/instance/update..st index 74a75ab2..5494d995 100644 --- a/packages/Babylonian-UI.package/BPTraceBasedMorph.class/instance/update..st +++ b/packages/Babylonian-UI.package/BPTraceBasedMorph.class/instance/update..st @@ -1,4 +1,10 @@ -private +change notification update: anAspect - anAspect = #filterContext ifTrue: [self updateFrom: displayedTraces]. \ No newline at end of file + anAspect = #filterContext ifTrue: [self updateFrom: displayedTraces]. + + (#(activeExamples tracesChanged) includes: anAspect) ifTrue: [ + Project current addDeferredUIMessage: [self updateTraces]]. + + + \ No newline at end of file diff --git a/packages/Babylonian-UI.package/BPTraceBasedMorph.class/instance/update.with..st b/packages/Babylonian-UI.package/BPTraceBasedMorph.class/instance/update.with..st new file mode 100644 index 00000000..89a76b1e --- /dev/null +++ b/packages/Babylonian-UI.package/BPTraceBasedMorph.class/instance/update.with..st @@ -0,0 +1,9 @@ +change notification +update: anAspect with: anObject + + anAspect = #traceChanged ifTrue: [ + Project current addDeferredUIMessage: [ + self updateFrom: displayedTraces]]. + + + \ No newline at end of file diff --git a/packages/Babylonian-UI.package/BPTraceBasedMorph.class/instance/updateTraces.st b/packages/Babylonian-UI.package/BPTraceBasedMorph.class/instance/updateTraces.st new file mode 100644 index 00000000..fe2f10e2 --- /dev/null +++ b/packages/Babylonian-UI.package/BPTraceBasedMorph.class/instance/updateTraces.st @@ -0,0 +1,17 @@ +stepping and presenter +updateTraces + + | newTraces tracesChanged | + self methodReference ifNil: [^ false]. + self resetHeight. + + newTraces := self getTraces asIdentitySet. + tracesChanged := newTraces ~= displayedTraces. + + tracesChanged ifTrue: [ + displayedTraces do: [:trace | trace removeDependent: self]. + newTraces do: [:trace | trace addDependent: self]. + self updateFrom: newTraces. + displayedTraces := newTraces. + "Height might have changed so we have to recompose the text." + self refreshTextComposition]. \ No newline at end of file diff --git a/packages/Babylonian-UI.package/BPTraceBasedMorph.class/methodProperties.json b/packages/Babylonian-UI.package/BPTraceBasedMorph.class/methodProperties.json index 4f982781..811617ec 100644 --- a/packages/Babylonian-UI.package/BPTraceBasedMorph.class/methodProperties.json +++ b/packages/Babylonian-UI.package/BPTraceBasedMorph.class/methodProperties.json @@ -2,16 +2,17 @@ "class" : { "isAbstract" : "pre 9/25/2020 10:15" }, "instance" : { + "annotation:" : "pre 8/23/2023 10:54", "annotationLabel" : "pre 2/22/2021 12:19", "filterValues:throughSliderForTrace:" : "pre 9/28/2020 11:21", - "initialize" : "pre 2/22/2021 12:19", + "initialize" : "pre 8/23/2023 10:50", "listenToSlider:" : "jb 12/7/2020 18:59", "newExampleLineMorph" : "pre 2/22/2021 12:17", "newTracesMorph" : "pre 12/16/2020 18:52", "newWidgetsMorph" : "pre 11/23/2020 13:43", "removeLinesWithoutCurrentTrace:" : "jb 12/7/2020 19:00", "resetHeight" : "pre 1/11/2021 13:59", - "step" : "joabe 8/9/2023 13:55", - "stepTime" : "pre 8/20/2020 17:35", - "update:" : "jb 12/7/2020 19:00", - "updateFrom:" : "jb 12/7/2020 19:00" } } + "update:" : "pre 8/23/2023 10:56", + "update:with:" : "pre 8/23/2023 10:49", + "updateFrom:" : "jb 12/7/2020 19:00", + "updateTraces" : "pre 8/23/2023 10:53" } } diff --git a/packages/Babylonian-UI.package/CodeHolder.extension/instance/addAnnotation.in..st b/packages/Babylonian-UI.package/CodeHolder.extension/instance/addAnnotation.in..st index e39bd0ad..41f5deec 100644 --- a/packages/Babylonian-UI.package/CodeHolder.extension/instance/addAnnotation.in..st +++ b/packages/Babylonian-UI.package/CodeHolder.extension/instance/addAnnotation.in..st @@ -1,24 +1,5 @@ *Babylonian-UI-private addAnnotation: anAnnotation in: interval - | newContent text actualInterval newMorph | - actualInterval := self determineIntervalToAnnotateFor: interval forNodes: anAnnotation canBeAnnotatedTo. - actualInterval ifNil: [self codeTextMorph textMorph flash. ^ self]. - anAnnotation methodReference: self methodReference. - text := self codeTextMorph text. - newMorph := anAnnotation asMorph. - newContent := Character startOfHeader asString asText - addAllAttributes: (text attributesAt: actualInterval start); - yourself. - newContent := newContent , (text copyFrom: actualInterval start to: actualInterval stop). - newContent addAttribute: (BPTextDecoration new - anchoredMorph: newMorph; - yourself). - newContent := text - copyReplaceFrom: actualInterval start - to: actualInterval stop - with: newContent. - (self codeTextMorph) - addMorph: newMorph; - setText: newContent. + self doAddAnnotation: anAnnotation in: interval. self saveMethodWithExamples. \ No newline at end of file diff --git a/packages/Babylonian-UI.package/CodeHolder.extension/instance/doAddAnnotation.in..st b/packages/Babylonian-UI.package/CodeHolder.extension/instance/doAddAnnotation.in..st new file mode 100644 index 00000000..2879bbc4 --- /dev/null +++ b/packages/Babylonian-UI.package/CodeHolder.extension/instance/doAddAnnotation.in..st @@ -0,0 +1,16 @@ +*Babylonian-UI-private +doAddAnnotation: anAnnotation in: interval + "Separated from addAnotationIn: to allow for multiple annotations to be added without saving first." + | text actualInterval newMorph | + actualInterval := self determineIntervalToAnnotateFor: interval forNodes: anAnnotation canBeAnnotatedTo. + actualInterval ifNil: [self codeTextMorph textMorph flash. ^ self]. + anAnnotation methodReference: self methodReference. + text := self codeTextMorph text. + newMorph := anAnnotation asMorph. + text + addAttribute: (BPTextDecoration new + anchoredMorph: newMorph; + yourself) + from: actualInterval start + to: actualInterval stop. + self codeTextMorph textMorph addMorph: newMorph. \ No newline at end of file diff --git a/packages/Babylonian-UI.package/CodeHolder.extension/methodProperties.json b/packages/Babylonian-UI.package/CodeHolder.extension/methodProperties.json index 390e861a..70532448 100644 --- a/packages/Babylonian-UI.package/CodeHolder.extension/methodProperties.json +++ b/packages/Babylonian-UI.package/CodeHolder.extension/methodProperties.json @@ -2,7 +2,7 @@ "class" : { }, "instance" : { - "addAnnotation:in:" : "pre 9/2/2022 14:59", + "addAnnotation:in:" : "pre 8/17/2023 11:49", "addAnnotationAtSelection:" : "pre 7/23/2022 20:17", "addAssertionToSelection" : "pre 11/13/2019 17:37", "addProbeToSelection" : "pre 8/6/2019 16:11", @@ -21,6 +21,7 @@ "determineIntervalToAnnotateFor:forNodes:" : "pre 9/1/2022 22:03", "determineMessageSendNodeIn:" : "pre 9/2/2022 14:06", "determineSelectorOfMessageSend:" : "pre 9/2/2022 14:49", + "doAddAnnotation:in:" : "pre 9/28/2023 13:58", "doBrowseActualImplementersFromProbe:andSelector:" : "pre 9/2/2022 15:54", "doItReceiver" : "ct 3/30/2022 16:48", "exampleForEvaluation" : "ct 8/18/2021 23:15", diff --git a/packages/Babylonian-UI.package/TextAttribute.extension/instance/isBPDecoration.st b/packages/Babylonian-UI.package/TextAttribute.extension/instance/isBPDecoration.st new file mode 100644 index 00000000..cec3d06a --- /dev/null +++ b/packages/Babylonian-UI.package/TextAttribute.extension/instance/isBPDecoration.st @@ -0,0 +1,4 @@ +*Babylonian-UI +isBPDecoration + + ^ false \ No newline at end of file diff --git a/packages/Babylonian-UI.package/TextAttribute.extension/methodProperties.json b/packages/Babylonian-UI.package/TextAttribute.extension/methodProperties.json index eb60373c..f67b980b 100644 --- a/packages/Babylonian-UI.package/TextAttribute.extension/methodProperties.json +++ b/packages/Babylonian-UI.package/TextAttribute.extension/methodProperties.json @@ -3,4 +3,5 @@ }, "instance" : { "intervalIn:" : "pre 7/3/2019 11:39", + "isBPDecoration" : "pre 8/17/2023 08:37", "placeObject:from:at:" : "pre 8/16/2022 08:34" } }