Hi list,

I'm trying to implement in Squeak something like this demo of sliders
in Geogebra:

  https://www.youtube.com/watch?v=Q9p-Oz8OyfY#t=4m55s

note the "#t=4m55s" in the link; it should open the video in the part
in which the presenter shows that two of the sliders control the
coordinates of the center of the circle and the third one controls its
radius or the circle.

I was able to write a class with very stripped-down versions of these
methods,

  HelpBrowser >> #buildWith:
  Browser >> #buildDefaultBrowserWith:

in which all the subwindows were replaced by instances of "builder
pluggableListSpec new". Its layout should be easy to change, and I
will try to change its pluggableLists by other objects in a series of
small steps.

QUESTION: how do I replace one of its subwindows by a horizontal
slider that is always visible and another of its subwindows by a
canvas? Are there "PluggableSlider"s and "PluggableCanvas"es? Which
classes use them? Pointers, please?...

My code is both copied below and attached. It mentions a class "See"
in its comments; if anyone wants to take a look at that, the
instructions are just:

  1. Download and "fileIn" this .st file:

     http://anggtwu.net/SQUEAK/Category-Edrx.st
     http://anggtwu.net/SQUEAK/Category-Edrx.st.html

  2. Run "See see".

Thanks in advance!
  Eduardo Ochs
  http://anggtwu.net/eev-squeak.html

Here is the code:
--snip--snip--

'From Squeak6.0 of 23 January 2023 [latest update: #22121] on 11 March 2023
at 12:10:28 pm'!
Model subclass: #TestWindowSpec
        instanceVariableNames: ''
        classVariableNames: ''
        poolDictionaries: ''
        category: 'Category-Edrx'!
!TestWindowSpec commentStamp: 'Edrx 3/11/2023 02:09' prior: 0!
Try: See edrxGuide: #windowSpecs.!


!TestWindowSpec methodsFor: 'as yet unclassified' stamp: 'Edrx 3/11/2023
03:10'!
buildCodePaneWith: builder
        | listSpec |
        listSpec := builder pluggableListSpec new.
        ^ listSpec.
! !

!TestWindowSpec methodsFor: 'as yet unclassified' stamp: 'Edrx 3/11/2023
03:10'!
buildMessageCategoryListWith: builder
        | listSpec |
        listSpec := builder pluggableListSpec new.
        ^ listSpec.
! !

!TestWindowSpec methodsFor: 'as yet unclassified' stamp: 'Edrx 3/11/2023
03:10'!
buildMessageListWith: builder
        | listSpec |
        listSpec := builder pluggableListSpec new.
        ^ listSpec.
! !

!TestWindowSpec methodsFor: 'as yet unclassified' stamp: 'Edrx 3/11/2023
03:10'!
buildSystemCategoryListWith: builder
        | listSpec |
        listSpec := builder pluggableListSpec new.
        ^ listSpec.
! !

!TestWindowSpec methodsFor: 'as yet unclassified' stamp: 'Edrx 3/11/2023
12:10'!
buildWith: builder
  "See:
     See edrxGuide: #windowSpecs.
     See cm: (HelpBrowser >> #buildWith:).
     See cm: (Browser >> #buildDefaultBrowserWith:).
   Tests:
     See haltAt: #buildBrowser.
     See see.

     self halt.
     ToolBuilder open: (TestWindowSpec new).
  "
        | max windowSpec |
        max := 0.42.
        windowSpec := self buildWindowWith: builder specs: {
                (0 at 0 corner: 0.25 at max) -> [self
buildSystemCategoryListWith: builder].
                (0.5 at 0 corner: 0.75 at max) -> [self
buildMessageCategoryListWith: builder].
                (0.75 at 0 corner: 1 at max) -> [self buildMessageListWith:
builder].
                (0 at max corner: 1 at 1) -> [self buildCodePaneWith: builder].
        }.
        windowSpec defaultFocus: #systemCategoryList.

        ^builder build: windowSpec
! !
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20230311/14a6728a/attachment.html>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: TestWindowSpec.st
Type: application/octet-stream
Size: 2106 bytes
Desc: not available
URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20230311/14a6728a/attachment.obj>