vbscript.vbs - mozsearch

Enable keyboard shortcuts

++ Sub QAxWidget2_Click

++     QAxWidget2.lineWidth = QAxWidget2.lineWidth + 1

++     MainWindow.logMacro 0, "Hello from VBScript: QAxWidget2_Click", 0, ""

++ End Sub

++

++ Sub fatLines

++     QAxWidget2.lineWidth = 25

++ End Sub

++

++ Sub thinLines

++     QAxWidget2.lineWidth = 1

++ End Sub

++

++ Sub setLineWidth(width)

++     QAxWidget2.lineWidth = width

++ End Sub

++

++ Public Function getLineWidth

++     getLineWidth = QAxWidget2.lineWidth

++ End Function