August 2016 - Pharo-users - lists.pharo.org

Re: [Pharo-users] generating function keys

by Nicolai Hess

2016-08-08 19:39 GMT+02:00 Peter Uhnak <i.uhnak(a)gmail.com>: > Hi, > > how can one generate function keys? (F1 to F12) > > I've made a morph for testing > > ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ > c := Morph subclass: #MyKeyMorph. > > c compile: 'handlesKeyboard: evt > ^ true'. > > c compile: 'handleKeystroke: evt > self logCr: evt'. > > c compile: 'handleKeyUp: evt > self logCr: evt'. > > c compile: 'handleKeyDown: evt > self logCr: evt'. > > m := c new. > m openInWindow. > m takeKeyboardFocus > ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ > > However the functions keys are not being generated. > > Is this something that would have to be done in the VM? > Yes, function do not generate any events on the pharo linux vm (for Windows, at least keydown/keyup events, bot no keystroke events). > I'm using linux btw, but ideally it should work on all platforms. > > Thanks, > Peter > >

Aug. 8, 2016

generating function keys

by Peter Uhnak

Hi, how can one generate function keys? (F1 to F12) I've made a morph for testing ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ c := Morph subclass: #MyKeyMorph. c compile: 'handlesKeyboard: evt ^ true'. c compile: 'handleKeystroke: evt self logCr: evt'. c compile: 'handleKeyUp: evt self logCr: evt'. c compile: 'handleKeyDown: evt self logCr: evt'. m := c new. m openInWindow. m takeKeyboardFocus ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ However the functions keys are not being generated. Is this something that would have to be done in the VM? I'm using linux btw, but ideally it should work on all platforms. Thanks, Peter

Aug. 8, 2016

Re: [Pharo-users] using glorp and active record

by Esteban A. Maringolo

How did you create the tables? There is a sequence for the ID in the database? Also, I don't understand why you call it "ActiveRecord". If you can share some code, DDL of the table, I'll be able to help you better. Regards, Esteban A. Maringolo ps: I'm cross replying to the Glorp mailing list. 2016-08-08 11:02 GMT-03:00 Sean Glazier <sglazier456(a)gmail.com>: > Hi, > > I have been trying to get glorp using active record working in pharo 5. > > I have a descriptor class for it and the classes inherit from active Record. > > I describe the table as: > tableForAnswer: aTable > | vistorId questionId | > (aTable createFieldNamed: 'id' type: platform serial) bePrimaryKey. > questionId := aTable createFieldNamed: 'questionId' type: platform integer. > vistorId := aTable createFieldNamed: 'vistorId' type: platform integer. > aTable createFieldNamed: 'answer' type: platform text. > aTable > addForeignKeyFrom: vistorId > to: ((self tableNamed: 'VISITORS') fieldNamed: 'ID') > suffixExpression: > 'MATCH SIMPLE > ON UPDATE NO ACTION ON DELETE CASCADE'. > aTable > addForeignKeyFrom: questionId > to: ((self tableNamed: 'QUESTIONS') fieldNamed: 'ID') > suffixExpression: > 'MATCH SIMPLE > ON UPDATE NO ACTION ON DELETE CASCADE' > > > the table in the DB was preexisting. > > when I do Answer findAll > > I get and error that it is expecting a number for the id field. > > in the PostgresSQLPlaform serial is defined thusly. > serial > "For postgresql, we use sequences, and explicitly get the values ourselves, > so just tell the database that they're integers." > > ^self typeNamed: #serial ifAbsentPut: [GlorpSerialType new typeString: > 'integer']. > > What the DB hands back is 'nextval('answers_id_seq'::regclass)' which seems > correct if it is telling me that there exists a sequence for this field and > that is the correct command to issue for the field. > > am I defining this table incorrectly? or should I bag using active Record. I > kind of liked it when working in Visualworks because there were also tools > that would read in and describe the tables and then tools to assit when you > needed to migrate to another version and do the changes etc. > > FYI this is the query that is being run that fails. > SELECT t1.table_name, t1.table_schema, t1.column_name, t1.is_nullable, > t1.data_type, t1.column_default, t1.character_maximum_length, EXISTS > (SELECT DISTINCT 'x' > FROM ((INFORMATION_SCHEMA.table_constraints s1t1 INNER JOIN > INFORMATION_SCHEMA.key_column_usage s1t3 ON ((s1t1.table_name = > s1t3.table_name) AND ((s1t1.table_schema = s1t3.table_schema) AND > (s1t1.constraint_name = s1t3.constraint_name)))) INNER JOIN > INFORMATION_SCHEMA.columns s1t2 ON (((s1t3.column_name = s1t2.column_name) > AND (s1t3.table_schema = s1t2.table_schema)) AND (s1t3.table_name = > s1t2.table_name))) > WHERE ((s1t1.constraint_type = 'PRIMARY KEY') AND ((s1t2.column_name = > t1.column_name) AND (((s1t2.table_schema = t1.table_schema) AND > (s1t2.table_name = t1.table_name)) AND ((s1t2.table_schema = > t1.table_schema) AND (s1t2.table_name = t1.table_name)))))) > FROM INFORMATION_SCHEMA.columns t1 > WHERE ((t1.table_name = 'answers') AND (t1.table_schema = 'public')) > > > > it looks as though it is reading in the schema and is expecting and integer > because we told it to in the serial method on the PostgesSQLPlatform. > > As much as I love diving into these frameworks to figure out the deep inner > workings, I really need to be getting data in and out without a fuss. > > Should I follow the DBX example where the descriptor is orthogonal to the > model and one does not subclass from active record? > > I also note that not all the glorp tests pass. I think the were rather minor > fails like timezone issues or something. It took a while but the test > created a number of tables in the DB. > > So again Have I done something Obtuse that I qught to be slapped for here? > > thanks

Aug. 8, 2016

using glorp and active record

by Sean Glazier

Hi, I have been trying to get glorp using active record working in pharo 5. I have a descriptor class for it and the classes inherit from active Record. I describe the table as: tableForAnswer: aTable | vistorId questionId | (aTable createFieldNamed: 'id' type: platform serial) bePrimaryKey. questionId := aTable createFieldNamed: 'questionId' type: platform integer. vistorId := aTable createFieldNamed: 'vistorId' type: platform integer. aTable createFieldNamed: 'answer' type: platform text. aTable addForeignKeyFrom: vistorId to: ((self tableNamed: 'VISITORS') fieldNamed: 'ID') suffixExpression: 'MATCH SIMPLE ON UPDATE NO ACTION ON DELETE CASCADE'. aTable addForeignKeyFrom: questionId to: ((self tableNamed: 'QUESTIONS') fieldNamed: 'ID') suffixExpression: 'MATCH SIMPLE ON UPDATE NO ACTION ON DELETE CASCADE' the table in the DB was preexisting. when I do Answer findAll I get and error that it is expecting a number for the id field. in the PostgresSQLPlaform serial is defined thusly. serial "For postgresql, we use sequences, and explicitly get the values ourselves, so just tell the database that they're integers." ^self typeNamed: #serial ifAbsentPut: [GlorpSerialType new typeString: 'integer']. What the DB hands back is 'nextval('answers_id_seq'::regclass)' which seems correct if it is telling me that there exists a sequence for this field and that is the correct command to issue for the field. am I defining this table incorrectly? or should I bag using active Record. I kind of liked it when working in Visualworks because there were also tools that would read in and describe the tables and then tools to assit when you needed to migrate to another version and do the changes etc. FYI this is the query that is being run that fails. SELECT t1.table_name, t1.table_schema, t1.column_name, t1.is_nullable, t1.data_type, t1.column_default, t1.character_maximum_length, EXISTS (SELECT DISTINCT 'x' FROM ((INFORMATION_SCHEMA.table_constraints s1t1 INNER JOIN INFORMATION_SCHEMA.key_column_usage s1t3 ON ((s1t1.table_name = s1t3.table_name) AND ((s1t1.table_schema = s1t3.table_schema) AND (s1t1.constraint_name = s1t3.constraint_name)))) INNER JOIN INFORMATION_SCHEMA.columns s1t2 ON (((s1t3.column_name = s1t2.column_name) AND (s1t3.table_schema = s1t2.table_schema)) AND (s1t3.table_name = s1t2.table_name))) WHERE ((s1t1.constraint_type = 'PRIMARY KEY') AND ((s1t2.column_name = t1.column_name) AND (((s1t2.table_schema = t1.table_schema) AND (s1t2.table_name = t1.table_name)) AND ((s1t2.table_schema = t1.table_schema) AND (s1t2.table_name = t1.table_name)))))) FROM INFORMATION_SCHEMA.columns t1 WHERE ((t1.table_name = 'answers') AND (t1.table_schema = 'public')) it looks as though it is reading in the schema and is expecting and integer because we told it to in the serial method on the PostgesSQLPlatform. As much as I love diving into these frameworks to figure out the deep inner workings, I really need to be getting data in and out without a fuss. Should I follow the DBX example where the descriptor is orthogonal to the model and one does not subclass from active record? I also note that not all the glorp tests pass. I think the were rather minor fails like timezone issues or something. It took a while but the test created a number of tables in the DB. So again Have I done something Obtuse that I qught to be slapped for here? thanks

Aug. 8, 2016

Re: [Pharo-users] How to wrap text in labels?

by Nicolai Hess

2016-08-08 12:27 GMT+02:00 Tommaso Dal Sasso <tommaso.dalsasso(a)gmail.com>: > Hello everybody, > > I was wondering, is there a way to wrap text inside a Morphic/Bloc label? > I am building a list of text elements, but I am not able to wrap the text > to match the width of the widget. > > For the moment I solved the issue by instantiating a Rubric text area for > each text element, but it becomes much more resource expensive and slower. > > Is there a better widget to manage that? > > Thanks, > Tommaso > > Hi Tommaso, can you use a TextMorph with a panel or an other morph for the background, and set the full owners shape and wrap-flag ? I think the default label widgets (StringMorph/LabelMorph) do not support text wrapping. Morph new color: Color white; addMorph:(TextMorph new contents:'Hello World Hello World Hello World';wrapFlag:true;fillsOwner:true;yourself);openInHand.

Aug. 8, 2016

How to wrap text in labels?

by Tommaso Dal Sasso

Hello everybody, I was wondering, is there a way to wrap text inside a Morphic/Bloc label? I am building a list of text elements, but I am not able to wrap the text to match the width of the widget. For the moment I solved the issue by instantiating a Rubric text area for each text element, but it becomes much more resource expensive and slower. Is there a better widget to manage that? Thanks, Tommaso

Aug. 8, 2016

Spec > TreeModel: Updating the tree selection after a deletion

by Offray Vladimir Luna CÃ¡rdenas

Hi, I have a Spec TreeModel to represent the GUI of a grafoscopio notebook. The message that deletes nodes is something like this: ============ GrafoscopioNotebook>>removeNode | nodeToDelete | nodeToDelete := tree selectedItem content. nodeToDelete parent removeNode: nodeToDelete. tree selectedItem: tree selectedItem parentNode. tree needRebuild: true. tree roots: tree roots. self buildWithSpecLayout: self class defaultSpec. ============= And its working fine in the sense that it deletes the selected node, but after the deletion the contents of the old node are showed no matter if I change the node selection on the tree. I would like to manage selections in a smart way, so if I add a new node to the notebook, the new node gets the selection. If I delete a notebook node, the previous node gets selected or the parent if no more siblings are encountered and so on. There is some simple example to look for, about managing and updating selections in a TreeModel interface? Thanks, Offray

Aug. 7, 2016

Re: [Pharo-users] About magritte usage in pillar

by stepharo

>> Hi cyril >> >> I would like to discuss with you about the use of magritte in pillar for >> configuration. >> >> In particular I do not understand why accessors are not simply generated >> and stored as part of the code. >> >> It will avoid to have defaultExporters: treated as an unknow message. >> >> >> activate >> super activate. >> self optionAt: 'to' ifPresent: [ :subconf | configuration >> defaultExporters: {subconf} ]. >> self optionAt: 'path' ifPresent: [ :path | configuration outputFile: >> (RelativePath from: path) ]. >> self parseInputFile. >> self export. >> self exitSuccess >> >> if you are on chat somewhere let me know. >> >> Stef > Hi StÃ©phane, > > In Cocoon before we got 3 methods by parameter of the configuration: > - the getter > - the setter > - the default value > > In pillar, there is a lot of parameters, so in the end we had a class > with *a lot* of methods and it was hard to use. Why once they are defined this is done. In that case we can have a simple method defining these extra methods if you mean that this is tedious to write. I do not see the gain to use a dynamic tricks to replace something that can be solve purely statically. > > Now in Cocoon for a parameter you just have to define one method: the > description. The configuration will use DNU in order to check the > descriptions to invoke the right one. > > I think that both ways have pros and cons. If it has to be change it > should be pretty easy. I think that using DNU should be an exception. Because it breaks static tool and we cannot look for implementors and it always gives a strange feels. >

Aug. 7, 2016

Re: [Pharo-users] About magritte usage in pillar

by Cyril Ferlicot D.

Le 05/08/2016 Ã 15:00, stepharo a Ã©crit : > Hi cyril > > I would like to discuss with you about the use of magritte in pillar for > configuration. > > In particular I do not understand why accessors are not simply generated > and stored as part of the code. > > It will avoid to have defaultExporters: treated as an unknow message. > > > activate > super activate. > self optionAt: 'to' ifPresent: [ :subconf | configuration > defaultExporters: {subconf} ]. > self optionAt: 'path' ifPresent: [ :path | configuration outputFile: > (RelativePath from: path) ]. > self parseInputFile. > self export. > self exitSuccess > > if you are on chat somewhere let me know. > > Stef > > Hi StÃ©phane, In Cocoon before we got 3 methods by parameter of the configuration: - the getter - the setter - the default value In pillar, there is a lot of parameters, so in the end we had a class with *a lot* of methods and it was hard to use. Now in Cocoon for a parameter you just have to define one method: the description. The configuration will use DNU in order to check the descriptions to invoke the right one. I think that both ways have pros and cons. If it has to be change it should be pretty easy. -- Cyril Ferlicot http://www.synectique.eu 165 Avenue Bretagne Lille 59000 France

Aug. 6, 2016

Pillar question PRPrepareForGitBookCommandLineHandler

by stepharo

Hi PRPrepareForGitBookCommandLineHandler defines the following method. PRPrepareForGitBookCommandLineHandler>>generateSummary (baseDirectory / 'SUMMARY.md') asFileReference writeStreamDo: [ :stream | stream << '# Summary' << String lf << String lf. stream << 'Abstract (to be done)' << String lf << String lf. self flag: #todo. "This cannot work anymore because inputFiles has been replaced by inputFile." configuration inputFiles do: [ :inputFile | | document title | document := configuration parseFile: inputFile. title := document title. stream << '* [' << title << ']('. (inputFile , PRMarkdownWriter fileExtension relativeTo: baseDirectory) printOn: stream delimiter: $/. stream << ')' << String lf ] ] and I do not get why configuration is sent parseFile: while only PRParsingPhase defines it. Stef

Aug. 5, 2016