--- /dev/null
+# Ring ノートパットアプリケーション (RNote)
+# 原作者 : Mahmoud Fayed <msfclipper@yahoo.com>
+
+class RNoteTabWidth
+
+ func TabWidth
+ oInput = New QInputDialog(win1)
+ {
+ setwindowtitle("タブ幅の設定")
+ setgeometry(100,100,400,50)
+ setlabeltext("半角スペース換算")
+ settextvalue("1")
+ r = exec()
+ }
+ if r=0 return ok
+ nTabSpaces = 0 + oInput.textvalue()
+ SetTabSpaces()
+
+ func SetTabSpaces
+ oTFont.fromstring(cFont)
+ oFontMetrics = new QFontMetrics(oTFont)
+ nSpaceWidth = oFontMetrics.Width(" ",1)
+ textedit1.setTabStopWidth(nTabSpaces*nSpaceWidth)