Old Virtual Pen Project History

30-31 August 2002, 1 September 2002

29 August 2002

28 August 2002

27 August 2002

26 August 2002

25 August 2002

24 Ausust 2002

23 August 2002

22 August 2002

21 August 2002

20 August 2002

doc.TransactionBegin

var.Push
doc.QueryFamilyIndex 1
doc.CreateStyle {var:1} Regular

# Remember style index for future use. For now, find insertion point in style
# (which is at 'style index' + 2).

var.Push
var.Add 2
doc.CreateObject Simple 1029 {var:1} Regular

# The CreateObject returns two values. We only need the first one, so split
# the result and get element 0.

var.Split 0

# Set the property values of the object we have just created

var.Push
doc.AttrSetValue {var:1} 0.0 0RGBr 0.1 200RGBg 0.2 100RGBb
var.Pop

# Now, get back to the style and make it the active style in family '1'.

var.Pop
doc.SetFamilySelStyle 1 {var:1}
doc.UpdateDefaultFamilyStyle
var.Pop

doc.TransactionValidate

18-19 August 2002

17 August 2002

16 August 2002

15 August 2002

14 August 2002

13 August 2002

12 August 2002

10-11 August 2002

9 August 2002

8 August 2002

7 August 2002

6 August 2002

5 August 2002

4 August 2002

3 August 2002

2 August 2002

1 August 2002

31 July 2002

30 July 2002

29 July 2002

26 July 2002

13-25 July 2002

12 July 2002

11 July 2002

10 July 2002

09 July 2002

08 July 2002

07 July 2002

06 July 2002

05 July 2002

04 July 2002

03 July 2002

02 July 2002

01 July 2002


History of previous months.