Excerpts from stepharo's message of 2015-08-22 09:55:04 +0200:
would be fun to see if you can reuse the algo of roassal.
i have taken a stab at that: =========================================================================================== view := RTView new. | activenode prevnode | view when: TRMouseClick do: [ :ev | | label node | "node := shape element." label := RTEditableLabel new height: 30; "i have a very high resolution and like large fonts" text: ''; element. node := RTBox new color: Color white; borderWidth: 2; borderColor: Color black; element. node @ RTDraggable. "select a node to branch of new nodes from it" node when: TRMouseClick do: [ :click | activenode := click element ]. "if the label is empty: '', then its size is 0@0 and is no longer clickable to edit, hence we make the node clickable instead" node when: TRMouseDoubleClick do: [ label shape showTextMorphFor: label ]. node when: TRMouseLeave do: [ label shape hideTextMorphFor: label ]. view add: node; add: label. RTNest new stretchable; on: node nest: {label}. "when the label changes its size, the box doesn't update its size unless we add this workaround" label trachelShape addCallback: (TRExtentCallback new block: [ :aShape :ratio | node trachelShape extent: aShape extent + (20 @ 0) ]). node translateTo: ev position. "label shape showTextMorphFor: label." "this opens the node in edit mode, but somehow messes things up" (activenode notNil and: node ~= activenode) ifTrue: [ prevnode := activenode ]. prevnode ifNotNil: [ edge := RTEdge from: prevnode to: node. edge + (RTBezierLine horizontal withContinuousRectangleAttachPoint; yourself). view add: edge ]. prevnode := node. activenode := node. view signalUpdate ]. view. =========================================================================================== the behavior is a bit different than the usual mindmapping tools as it does not enforce an automatic layout but you are free to place nodes whereever you like by just clicking in the location and moving the node later. that behavior is inspired by a mindmapping tool called labyrint: https://github.com/labyrinth-team/labyrinth https://www.youtube.com/watch?v=Pv3dTovGc0E thanks to alexandre bergel and others who helped me to figure out some problems such as a workaround for RTEditableLabel not working with RTCompositeShape: shape := RTCompositeShape new. shape allOfSameSizeWithPadding. shape add: (RTBox new color: Color white; borderWidth: 2; borderColor: Color black). shape add: (RTEditableLabel new height: 30). the remaining problems are cosmetic. for example i can't seem to get the nodes to open up in edit mode. doing that with the commented line in the code above, wrecks havoc on the node. i also would like RTBezierLine to be horizontal or vertical depending on how the two nodes are positioned to each other. and it should always start at the middle of the rectangles edge at a 90degree angle. lastly, i'd like to have rounded corners on the RTBox. if/when i develop this further, i plan to add the ability to select multiple nodes and add edges between them. be able to move selected nodes as a group, and align selected (or all) nodes according to one of the layouts provided by roassal (tree, circle, etc), things like export to svg or png would also be nice. and of course, package it up... greetings, martin. -- eKita - the online platform for your entire academic life -- chief engineer eKita.co pike programmer pike.lysator.liu.se caudium.net societyserver.org secretary beijinglug.org mentor fossasia.org foresight developer foresightlinux.org realss.com unix sysadmin Martin Bähr working in china http://societyserver.org/mbaehr/