更改懸停時出現在彈出窗口中的邊緣名稱

Question

如何更改在Roasal上懸停在邊緣時出現的文字？我還沒有在網上找到了這個在任何地方

Answer 1

您可以通過以下方式彈出（自定義樣式）添加到一個邊緣：

popup := ROPopup text: 'some text'. 
popup textColor: Color black. 
popup box color: (Color r: 0.9 g: 0.9 b: 0.9); borderWidth: 1; borderColor: (Color r: 0.8 g: 0.8 b: 0.8). 
aROEdge @ popup. 

Answer 2

它的一個完整的例子是：

view := ROView new. 
el1 := ROBox green element extent: 50 @ 50. 
el2 := ROBox blue element extent: 50 @ 50. 
el1 @ RODraggable. 
el2 @ RODraggable. 
el2 translateTo: 50 @ 50. 

aROEdge := ROEdge lineFrom: el1 to: el2. 
(aROEdge getShape: ROLine) width: 5. 

popup := ROPopup text: 'some text'. 
popup textColor: Color black. 
popup box color: (Color r: 0.9 g: 0.9 b: 0.9); borderWidth: 1; borderColor: (Color r: 0.8 g: 0.8 b: 0.8). 
aROEdge @ popup. 

view addAll: { el1 . el2 . aROEdge }. 
view open