Smalltalk Roassal：条件X轴标记

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

我要找的是：

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

（其中点是响应

#date

的我的域对象）

同时，我做了以下又快又脏的黑客操作：

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