Glamour: update presenter with new text

Sorry for the text formating, it was wrong, hope it is better now:

sourceIn: composite

    ^ composite pharoMethod

        title: 'Source code' translated;

        smalltalkClass: [ :each | each methodClass];

        display: [ :aCompiledMethod | aCompiledMethod sourceCode ];

        act: [ :presentation :compiledMethod |

            compiledMethod methodClass compile: presentation text.

            presentation update.] 

        on: $s 

        entitled: 'Save' translated

-- 
Dr. Geo
http://drgeo.eu

-- 
Dr. Geo
http://drgeo.eu

Le 03/07/2017 à 23:20, Juraj Kubelka a écrit :

You may have a wrapper that holds the compiled method. So, the method list can hold your wrappers instead of compiled methods.
Than your wrapper could listen to the system announcer for changes and updates its value accordingly.
Or you can update your method list on according to changes in the system announcer.

methodsIn: composite  
	composite wrapper  title: 'Methods' translated;
		show: [ :wrapper |
			wrapper fastList 
				display: [ :aClass | aClass methods ];
				format: [ :aCompiledMethod | aCompiledMethod selector asString ] ].
	composite wrapper title:  'Script data' translated;
		show: [ :wrapper |
			wrapper fastList 
				display: [ :aClass | aClass class methods ];
				format: [ :aCompiledMethod | aCompiledMethod selector asString ] ].
	composite onChangeOfPort: #activePresentation act: [ :presentation | 
		(presentation pane port: #activePresentation) value ifNotNil: [ :activePresentation | 
			((browser paneNamed: #methods) port: #selection) value: (activePresentation defaultPane port: #selection) value ] ]

Check, SystemAnnouncer uniqueInstance on: MethodModified do: [ :ann | self inform: ann method printString, ‘ changed’ ].

 SystemAnnouncer uniqueInstance when: MethodModified do: [ :ann | self inform: ann method printString, ‘ changed’ ].

-- 
Dr. Geo
http://drgeo.eu

I added these lines of code, but it is not that yet:

	browser 
		updateOn: GLMItemAdded from: #yourself;
		updateOn: GLMItemRemoved from: #yourself.

-- 
Dr. Geo
http://drgeo.eu

May be my use case does not fit to Glamour, but I am tempted to think it does. I really need help on that to make progress.

Thanks

Hilaire

I added these lines of code, but it is not that yet:

	browser 
		updateOn: GLMItemAdded from: #yourself;
		updateOn: GLMItemRemoved from: #yourself.

-- 
Dr. Geo
http://drgeo.eu

Okay, I will try to describe it:

First in Dr. Geo there is user scripting. The idea is to let the user define a computing object he can plug on a sketch. This object receive an arbitrary number of objects as arguments selected from the sketch by mouse. This script object is a class, subclass of DrGeoUserScript, and each use in a geometric canvas create an instance. This video exposes this:

http://www.dailymotion.com/video/x30amxd_introduction-to-scripting_tech

• Two vertical panes:

1. at the left, the script classes, but it is the script name (as given by the user) displayed
2. at the right, the methods of the selected script
   

• A large horizontal pane with the source of selected pane.

The attached screenshot shows the wished user interface as writen with Glamour.

However, I am not sure what the current problem is. Could you describe it again in more details?

-- 
Dr. Geo
http://drgeo.eu

DrGeoBrowser.gif (32K) Download Attachment

For me it unselects the method, and it still reverts the source code view with the previous source code method

composite updateOn: MethodModified from: [ SystemAnnouncer uniqueInstance ].

-- 
Dr. Geo
http://drgeo.eu