Smalltalk 布拉格舞似乎和我在海滨的预期不同

对Pharo/Seaside来说相当陌生，我已经很久没有使用Smalltalk了。我正在尝试创建一个RESTful服务，但无法以我认为应该的方式使用pragmas使其工作。Ie这里是我在类TeamMembers中的list方法，它是WARestfulHandler的一个直接子类

list
   <get>

^ String streamContents: [ :stream |
    self teamMembers do: [ :each |
       stream nextPutAll: each ; crlf ] ]

然后，当我浏览到（）

然而，要获得Json输出，我仍然必须使用（）

我可能错过了一些非常简单的事情，但任何帮助都是非常感谢的

在Seaside中使用Pharo6.0-64.image，Seaside就是这样安装的

Metacello new
  configuration:'Seaside3';
  repository: 
 'http://www.smalltalkhub.com/mc/Seaside/MetacelloConfigurations/main';
  version: #stable;
  load.


Gofer new
  squeaksource: 'Seaside30Addons';
  package: 'Seaside-REST-Core';
  package: 'Seaside-Pharo-REST-Core';
  package: 'Seaside-Tests-REST-Core';
  load.

---

谢谢

似乎在list方法中添加另一个pragma解决了这个问题

list
   <get>
   <path: '/'>

   ^ String streamContents: [ :stream |
        self teamMembers do: [ :each |
           stream nextPutAll: each ; crlf ] ]

列表
^字符串streamContents:[：stream|
自助团队成员做：[：每个|
下一个流全部：每个；crlf]]

您需要添加

pragma，因为您有多个带有

pragma且没有参数的方法

list
   <get>
   <path: '/'>

   ^ String streamContents: [ :stream |
        self teamMembers do: [ :each |
           stream nextPutAll: each ; crlf ] ]