smalltalk - Roassal：条件 X 轴标签

Question

在我的图表中，x 轴代表日期。我只想标记一个月的第一天。指定刻度数是有问题的，因为它们可能是分数。

我正在寻找的是这样的：

someRoassalObject
  if: [ :point | point date dayOfMonth = 1 ]
  label: [ :point | point date mmddyyyy ]

（其中点是我响应的域对象#date）

同时，我做了以下快速而肮脏的黑客攻击：

b axisConfiguration
        labelConvertion: [ :x | (Date julianDayNumber: x rounded) mmddyyyy ].